کمک جهت تبدیل رشته هگزادسیمال به فارسی

[mohammadsaleh]

سلام محضر اعضا محترم گروه
قصد دارم رشته های هگزادسیمال مانند رشته زیر را به فارسی برگردانم از تابع زیر استفاده کردم خطای 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

[mazoolagh]

سلام و روز خوش

این رشته ای که دارین به فرمت hex نیست!

به جز این حواستون به کدهای پیشنهادی هوش ساختگی هم باشه، سوراخ سمبه زیاد داره!
البته این ظاهرش درست بنظر میاد و اگر رشته hex واقعی داشته باشین باید کار کنه (تست نکردم).

[mohammadsaleh]

سلام بی زحمت تست بفرمایید. بله در این کد رشته را ظاهرا به هگز تبدیل بعد ترجمه می کنه ولی مشکل داره. ممنون میشم راهنمایی بفرمایید. در اصل این متن خروجی یک فایل vcf در اکسل هست.

[mazoolagh]

سلام دوباره
خب این رشته ها فرمتشون hex نیست و موقع ایمپورت کانورت شده،
2 بایت بوده که بجای بایت بالا = گذاشته شده.

شما اصل دیتا رو پیوست کنین.

[mohammadsaleh]

سلام
اصل فایل تماس ها چندین هزار شماره است که وقتی به این برنامه ایمپورت کردم جدولی را ساخت که رشته موضوع بحث در آن دیده میشود. در جدول دیگر یک vcf به صورت آنلاین ساختم که خروج جدولی شد که با حروف خاص دیده می شود
ضمنا اگر خط زیر را در سایت https://dencode.com/string/quoted-printable قرار دهیم به فارسی بر می گرداند
=D8=B9=D9=84=D9=8A=20=D8=A7=D8=B3=D9=85=D8=A7=D8=B 9=D9=8A=D9=84=D9=8A=
برگردان: علی اسماعیلی

[mazoolagh]

برنامه پیوست رو دیدم،
گویا کدها در اکسل بوده که آوردین به اکسس.

چون همه اون connection ها بیخودی هست و نیازی بهش نیست.

شما کارتون رو باید به 2 بخش (دست کم) بشکنین و هر کدوم رو جدا انجام بدین و تست کنین،


1- یک فانکشن بنویسین که یک آدرس یک text file (با انکودینگ utf-8) رو بگیره
و محتوای اون بصورت string برگردونه.

2- یک روتین بنویسین که که محتوای یک فایل رو به صورت string بگیره،
اون رو خط به خط parse کنه و دیتا رو بیرون بکشه و در جدول بریزه.

[mazoolagh]

برای بخش 1 شما از filesystemobject استفاده کردین،
ولی دقت نکردین که textstream در fso از utf-8 پشتیبانی نمیکنه!

این خروجی کدی هست که استفاده کردین (مشخصا از هوش ساختگی گرفتین!)

3.png

[mazoolagh]

باید از adodb.stream استفاده کنین که در اون adodb.stream دارین
و اون میتونه از utf-8 استفاده کنه.

اول اضافه کردن رفرنس:
1.png

Public Function ReadFile(FilePath As String) As String

    Dim Stream As New Stream ' ADODB.stream

    With Stream

        .Type = adTypeText

        .Charset = "UTF-8"

        .Open

        .LoadFromFile FilePath

        ReadFile = .ReadText

        .Close

    End With

    Set Stream = Nothing

End Function

و تست کد :
4.png

[mazoolagh]

حالا میتونین بخش 2 رو بنویسین.
قبل از هر چیز باید فرمت دیتا رو بدونین چی هست و چه فیلدهایی ممکنه داشته باشین:

مثلا EMAIL یا ADR (و خیلی فیلدهای دیگه مثل PHOTO و GENDER ) اینجا نیست،
یا فیلد N به جز دو بخش اول (last name و given name یا نام خانوادگی و نام) سه بخش دیگه هم داره (پیشوند و پسوند و عنوان مثل آقا، سرکار، دکتر، مهندس، ....)
یا TEL میتونه چند نوع باشه (CELL, WORK, HOME, ...) و همین ها هم میتونن چند زیرگونه داشته باشن.

باید حتما دقیق مشخص باشه که آیا فقط همین فیلدهای در فایل نمونه رو دارین یا ممکنه فیلدهایی که گفته شد هم باشه.