تبدیل فایل متنی unicode به ansi

باسلام
من یه فایل log از جنس یونیکد دارم که میخوام وارد جدول دیتابیسم بکنمش ولی وقتی واردش میکنم اطلاعاتش بخصوص اسامی فارسیش درهم برهم میشه
همین فایل رو وقتی با نوت پد به ANSI سیو میکنم مشکل حل میشه
کد تبدیل Unicoe به Ansi رو میخوام
ممنون میشم راهنمایی بفرمایید.

نقل قول:

---

نوشته شده توسط ali190

باسلام
من یه فایل log از جنس یونیکد دارم که میخوام وارد جدول دیتابیسم بکنمش ولی وقتی واردش میکنم اطلاعاتش بخصوص اسامی فارسیش درهم برهم میشه
همین فایل رو وقتی با نوت پد به ANSI سیو میکنم مشکل حل میشه
کد تبدیل Unicoe به Ansi رو میخوام
ممنون میشم راهنمایی بفرمایید.

---

رشته های داخل VB.NET یونیکد هستند بنابر این نگهداری داده ANSI یا ASCII باید داخل آرایه ای از بایت ها باشه، به محض اینکه در String قرارش بدیم تبدیل میشن.

Imports System.IO

Imports System.Text



Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim unicodeLog As String = "Unicode.log"

        File.WriteAllText(unicodeLog, "این یک متن فارسی است")



        Dim text As String = File.ReadAllText(unicodeLog)

        Dim arabic As Encoding = Encoding.GetEncoding(1256)

        Dim ansi() As Byte = arabic.GetBytes(text)

    End Sub

End Class

فرض کنیم فایل Log شما اون Unicode.log باشه که داخلش متن فارسی هست. با arabic که کدپیج عربی است اونرو به در آرایه ansi بصورت کاراکتر های یک بایتی ANSI خواهید داشت و میتوانید در هر فایل یا ساختار داده ای باینری ذخیره کنید.