نوشتن فایل text در VB.Net

[zehs_sha]

بچه ها من می خواهم فایل text بنویسم به وسیله vb.net که در برنامه ای در vb6 خوانده شود من با کد زیر :


System.IO.StreamWriter swrite;
swrite=System.IO.File.CreateText(@"c:\unicode.txt");
swrite.WriteLine("تست یونیکد i am Good");
swrite.Close();
MessageBox.Show("File Created");


انجام داده ام اما وقتی در vb6 می خوانم حروف ژاپنی می شود کجای برنامه عیب دارد



Dim St As String * 1
Open "c:\unicode.txt" For Random As 1 Len = Len(St)
While Not EOF(1)
ii = ii + 1
Get #1, ii, St
stram = stram + St
Wend
stram = Mid(stram, 1, Len(stram) - 2)

ایا در vb.net می توان فرمت ان را تغییر داد مثلا "unicode" نباشه "utf-8" باشد

[sh_mohsen taki]

گمون کنم اگه خود فرم از utf-8 استفاده کنه مقادیر خروجیش هم همون فرمت رو داشته باشن چون من اینکار رو کردم و مشکلی هم نداشتم

[titbasoft]

توی vb 6 دارید ASCII می خونید ، ببینید کد زیر برای دخیره به صورت ASCII کمکی می کنه:

Dim sw As StreamWriter = New StreamWriter("../test.txt", False, System.Text.Encoding.ASCII)
sw.WriteLine("یک متن یونیکد")
sw.Close()