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

タイトル 2バイトの一文字読込
投稿日: 2006/11/26(Sun) 02:46
投稿者G
VB2005
OS:WinXPpro sp2

下記のプログラムを使い2バイトと1バイトの混合のテキストファイルを読み込みたいのですが、2バイト文字を読み込むことが出来ません。
エンコードをすべて変えてみましたが無理でした。

プログラムが悪いのかと思いましたが、1行読み込み(下記2行)に変えると正常に読み込んでくれます。

Dim ss As String

ss = tr.ReadLine



c の変数の中に "あ" に該当する数値が入ってくれないのです。



    Private Sub myFileLoad()
        ' テキストボックスにファイル内容を読込
        Dim tr As System.IO.TextReader ' 一文字ずつ読み込む
        Dim c As Integer

        Try ' ファイルから全内容を読み込む
            tr = My.Computer.FileSystem.OpenTextFileReader(myFile, System.Text.Encoding.UTF8)
            c = tr.Read
            Stop
            Do While c <> -1 ' ファイル終了(-1)になるまでくりかえす(真の間くりかえす)
                TextBox1.AppendText(Chr(Asc(c))) ' 文字コード(ASCIIコードまたは、シフトJISコード)に対応する文字を TextBox1 に返す
                c = tr.Read ' 一文字読み込む
            Loop
            tr.Close()
        Catch ex As Exception ' エラーのときはここにくる
            MsgBox("読込エラーです。")
        End Try
    End Sub




よろしくお願いします。

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

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