نقل قول نوشته شده توسط the king مشاهده تاپیک
فرض کنیم در یک فایل متن Unicode فارسی داریم :


    Dim unicodeLog As String

    Dim bytes() As Byte

    unicodeLog = "Unicode.log"

    Open unicodeLog For Binary As #1

    bytes = "Çíä í˜ ãÊä ÝÇÑÓí ÇÓÊ"

    Put #1, , bytes

    Close #1


و با کد زیر در ansi بصورت آرایه ای از بایت های ANSI دریافتش می کنیم، 0x429 کد LCID زبان فارسی است :


    Dim unicodeLog As String

    unicodeLog = "Unicode.log"

    Dim unicode() As Byte

    Open unicodeLog For Binary As #1

    ReDim unicode(0 To LOF(1) - 1)

    Get #1, , unicode

    Close #1

    Dim text As String

    text = unicode

    Dim ansi() As Byte

    ansi = StrConv(text, vbFromUnicode, &H429)


و بصورت معکوس هم می توانیم مجددا به Unicode تبدیلش کنیم :


    text = StrConv(ansi, vbUnicode, &H429)
ممنون دوست عزیز