کمک جهت تبدیل رشته هگزادسیمال به فارسی
سلام محضر اعضا محترم گروه
قصد دارم رشته های هگزادسیمال مانند رشته زیر را به فارسی برگردانم از تابع زیر استفاده کردم خطای type mismatch l می دهد. لطفا راهنمایی بفرمایید
=D9=82=D8=A7=D8=B3=D9=85=20=20=D8=B7=D8=B1=D8=A7=D 8=B2=DB=8C=20=20=2D=
Function DecodeUTF8String(encodedString As String) As String
Dim byteArray() As Byte
Dim decodedString As String
' تبديل رشته به آرايه بايت
byteArray = HexToBytes(encodedString)
' تبديل آرايه بايت به رشته UTF-16
decodedString = StrConv(byteArray, vbUnicode)
DecodeUTF8String = decodedString
End Function
Function HexToBytes(hexString As String) As Byte()
Dim i As Long
Dim byteCount As Long
Dim result() As Byte
byteCount = Len(hexString) \ 2
ReDim result(byteCount - 1)
For i = 0 To byteCount - 1
result(i) = CByte("&H" & Mid(hexString, i * 2 + 1, 2))
Next i
HexToBytes = result
End Function
Sub TestDecodeB()
Dim originalString As String
originalString = "=D9=82=D8=A7=D8=B3=D9=85=20=20=D8=B7=D8=B1=D8=A7= D8=B2=DB=8C=20=20=2D="
MsgBox DecodeUTF8String(originalString)
End Sub
پاسخ با نقل قول
