tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。