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

タイトル ： Re^2: 固定長のテキストファイルをバイト毎に読込む
投稿日： 2006/09/22(Fri) 00:25
投稿者： Blue
泣き別れがないということなので、試しにやってみた。(ただしVB2005)

Module Module1

    Sub Main()
        Dim st As System.IO.FileStream = Nothing
        Dim br As System.IO.BinaryReader = Nothing
        Dim bin() As Byte
        Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
        Dim text As String
        Dim path As String

        path = "test.txt" ' 任意のテキストファイルのパス

        Try
            st = New System.IO.FileStream(path, IO.FileMode.Open)
            br = New System.IO.BinaryReader(st)

            ' ファイルの終端まで読む。 br.PeekCharだと不具合があるらしい
            While br.BaseStream.Position < br.BaseStream.Length
                ' 20バイト読み込む
                bin = br.ReadBytes(20)
                ' 文字コード変換
                text = enc.GetString(bin)
                ' 表示
                System.Console.WriteLine(text)
            End While
        Catch ex As Exception
            System.Console.WriteLine(ex.Message)
        Finally
            If Not br Is Nothing Then br.Close()
            If Not st Is Nothing Then st.Close()
        End Try
    End Sub

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

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