|
分類:[VB.NET]
■No3042に返信(Hongliangさんの記事)
> JIS(ISO-2022-JP) を使って StreamReader を作り、String に読み出して、
> それから Shift_jis を使って作った StreamWriter で書き出せばいいでしょう。
以下のようにしてみたのですが、変換ができてないように思います。
Dim ss As String = String.Empty
Dim sr As New System.IO.StreamReader("D:＼work＼Recv.dat", _
System.Text.Encoding.GetEncoding("ISO-2022-JP"))
'// 内容を一行ずつ読み込む
While sr.Peek() > -1
' ''Console.WriteLine(sr.ReadLine())
ss &= sr.ReadLine
End While
'// 閉じる
sr.Close()
'ファイルを上書きし、Shift JISで書き込む
Dim sw As New System.IO.StreamWriter("c:＼test.txt", False, _
System.Text.Encoding.GetEncoding(932))
'TextBox1.Textの内容をすべて書き込む
sw.Write(ss)
|
