یافتن یونیکد حروف فارسی

[niko2008]

سلام خدمت اساتید محترم دوستان این کار به چه صورت انجام میپذیره؟

[_behnam_]

در ماژول قرار بدید

Public Function UTF8_Decode(ByVal sStr As String)
Dim L As Long, sUTF8 As String, iChar As Integer, iChar2 As Integer
sStr = Replace(sStr, "غŒ", UTF8_Encode("ي"))
sStr = Replace(sStr, "ظ‰", UTF8_Encode("ي"))
For L = 1 To Len(sStr)
iChar = Asc(Mid(sStr, L, 1))
If iChar > 127 Then
If Not iChar And 32 Then
iChar2 = Asc(Mid(sStr, L + 1, 1))
sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
L = L + 1
Else
Dim iChar3 As Integer
iChar2 = Asc(Mid(sStr, L + 1, 1))
iChar3 = Asc(Mid(sStr, L + 2, 1))
'sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
L = L + 2
End If
Else
sUTF8 = sUTF8 & Chr$(iChar)
End If
Next L
UTF8_Decode = sUTF8
End Function

Public Function EncodeString(StrText As String) As String
On Error Resume Next
Dim I As Integer, bEnc As String
For I = 1 To Len(StrText)
bEnc = bEnc & "%" & Hex(Asc(Mid(StrText, I, 1)))
Next
EncodeString = bEnc
End Function


کدها
UTF8_Encode(String)
UTF8_Decode(string)

[mr-adler]

با اجازه دوستان
من نمیدونم کد یونیکد چیه اما شاید این کد مفید واقع بشه:(کافیه تو تکست باکس فارسی بنویسید)

a = StrConv(Text1.Text, 64)
Print a

[Black_Strom]

با اجازه دوستان
من نمیدونم کد یونیکد چیه اما شاید این کد مفید واقع بشه:(کافیه تو تکست باکس فارسی بنویسید)

a = StrConv(Text1.Text, 64)
Print a


این همیشه کار نمیده . اقا نیکو من برای مسنجری که دارم می سازم با این مشکل برخورد کرده بودم خواستی دانلود کن .