درخواست کد تبدیل یک متن Asci به Unicode

[davood-ahmadi]

با سلام به دوستان گرامی
من یک فایل تکست دارم که به اسکی ذخیره شده است و کاراکترهای فارسی آن به علامت سوال (؟؟؟) تبدیل شده است. حالا چگونه می توانم این فایل را با برنامه نویسی به حروف خوانا تبدیل کنم که در بانک اطلاعاتی ذخیره کنم.
پیشاپیش از توجه دوستان تشکر می کنم

[arash020]

با سلام

Private Function ASCIIValueToUnicode (AsciiValue As Integer) As String 'Takes an Ascii Character Value and converts it to a unicode string ASCIIValueToUnicode = StrConv (Chr(AsciiValue), vbUnicode) End Function

و استفاده :

ASCIIValueToUnicode = StrConv (Chr(AsciiValue), vbUnicode)

منبع :
http://www.dreamincode.net/forums/topic/149672-change-ascii-to-unicode/

[davood-ahmadi]

ممنون از راهنمایی تون
در کدپروجکت کمکم کردند.
این هم نمونه برای دوستان دیگر


Dim byteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(Str2)

Dim utf8Str As String = System.Text.Encoding.UTF8.GetString(byteArray)