固定長のテキストファイル（改行なし・半角全角混在）を
２０バイト毎に読み込みたいのですが、どのようにしたら
できますでしょうか？ご教授お願い致します。
テキストファイルの文字コードはShift_JISです。

できましたら、コードサンプルのあるページなどをご紹介
していただけるとありがたいです。

よろしくお願い致します。

★ 間違って、さきほど VBの掲示板に入れてしまいました。
   VB.NETの掲示板に移動させていただきました。

>>   VB.NETに質問を移動させていただきますので、お願い致します。
>一応どちらのスレにもリンクをはっておいてください。

VBの掲示板に入れてしましました。
http://hanatyan.sakura.ne.jp/index.html

使用しているのは、 VB.NET 2003 です。
よろしくお願い致します。

泣き別れがないということなので、試しにやってみた。(ただし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

Blue さんへ

たかです。
コードまで書いていただき、びっくりです！！
（さっきまで色々調べてたのですが、よく分からなかったので、
　すごくありがたいです。）
さきほど、.NET 2003 で 確認した所、テストデータでうまくい
きました。

本当にありがとうございました。＼(^o^)／

ここの VB.NETTips一覧 他 の文字列操作関係をご覧下さい。
http://hanatyan.sakura.ne.jp/dotnet/mojiIndex.htm


> VBの掲示板に入れてしましました。
> http://hanatyan.sakura.ne.jp/index.html

URL の調べ方くらい覚えておきましょう。　上記はトップページのアドレスです。

　リンクを右クリックして、プロパティ を見て下さい。

すみませんでした。

ＵＲＬは、以下でした。
http://hanatyan.sakura.ne.jp/vbbbs/wforum.cgi