تبدیل حروف فارسی به کد ANSI

[shahanshahiii]

سلام خسته نباشید میخواستم بدونم چطوری میشه این کا رو توی VB.Net انجام داد !
حروف فارسی رو تبدیل به کد ANSI کرد مثل تصاویر زیر (این تصاویر مربوط به Notepad ++ میباشد)

حروف فارسی به صورت UTF-8

http://upcity.ir/images/11921566437385841003.jpg

حروف فارسی بالا پس از تبدیل به ANSI

http://upcity.ir/images/47338873265557747318.png

دقیقا این کارو میخوام تو VB.net انجام بدم خیلی واجبه لطفا Help me :گریه:

[rezaprogrammer]

این متد یک فایل متنی رو میگیره و به ansi تبدیل می کنه

Public Sub converttoAnsi()
Dim filename As String = "C:\text.txt"
Dim filestream As System.IO.StreamReader = New System.IO.StreamReader(filename)
Dim filecontent As String = filestream.ReadToEnd
filestream.Close()
Dim ansiwriter As System.IO.StreamWriter = New System.IO.StreamWriter(filename.Replace(".txt", "-ansi.txt"), False)
ansiwriter.Write(filecontent, System.Text.Encoding.Default)
ansiwriter.Close()
End Sub

[shahanshahiii]

مهندس من همین کارو انجام دادم ولی نشد اول یه فایل به نام text.txt تو درایو سی ساختم توش فارسی نوشتم سلام بعد utf8 سیو کردم
حالا این متد شما رو اجرا کردم چیزی که به من داد همون UTF8 بود

[shahanshahiii]

ببخشید توی مروگرها وقتی روی گزینه Encode > Western iso کلیک میشه اینطوری میشه تکست ها
البته تو مروگر ها اینطوری نوشته توی Notepad ++ نوشته Encode ANSI

[shahanshahiii]

آقا مرسی درست کار کرد ------- من دوباره همون تبدیل شده رو با Notepad باز میکردم UTF8 نشون میداد که نباید اینکارو میکردم مرسی بسیار فروان متشکر :لبخند:

[rezaprogrammer]

به هر حال از اینکه مشکلت حل شد خوشحالم