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




よろしくお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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