タイトル : Re^3: 2バイトの一文字読込 投稿日 : 2006/11/26(Sun) 15:59 投稿者 : 花ちゃん
> Do While sr.Peek() >= 0 > Console.WriteLine("{0:D}", FirstChar) > FirstChar = sr.Read > Loop > sr.Close() > これだと10進数で表示してくれましたが、2バイト文字を表示してくれません。 > サンプルのどこを見たら2バイトを表示してくれる場所が掲示してあるのでしょうか。 自分で勝手にサンプルを書き直したらまともに動く物も動かなくなるのでは。 どこも変更しないで下記を試して見て下さい。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim path As String = "c:\MyTest.txt" Try If File.Exists(path) Then File.Delete(path) End If Dim sw As StreamWriter = New StreamWriter(path) sw.WriteLine("あいABCDうえお") sw.WriteLine("testあいうえおtest") sw.Close() Dim sr As StreamReader = New StreamReader(path) Do While sr.Peek() >= 0 Console.WriteLine(Convert.ToChar(sr.Read())) Loop sr.Close() Catch ex As Exception Console.Write("The process failed: {0}", ex.ToString()) End Try End Sub |