改行コードによらずファイルを1行ずつに分ける

ファイルを読み込んで一行ずつに分けるときに、
改行コードによらずにわける方法です。

改行コードがわかっているなら
System.String.Splitを使えばよいですが、
わからない場合は、System.IO.StringReaderを使います。

        Dim objFile As System.IO.StreamReader
        Dim objSR As System.IO.StringReader
        '読み込むファイルのパス
        Dim sFilePath As String
        'ファイルの内容
        Dim sContents As String
        '各行の文字列
        Dim sLine As String

       
        'ファイルを読み込む(Encodingはファイルにあわせる)
        objFile = New System.IO.StreamReader(sFilePath, System.Text.Encoding.GetEncoding(932))
        'ファイル内の文字列を全て取得する
        sContents = objFile.ReadToEnd
        'StringReaderで読み込む
        objSR = New System.IO.StringReader(sContents)
        '一行ずつ読み込む
        Do
            sLine = objSR.ReadLine()
            If sLine Is Nothing Then
                '空の行は
                'sLine = ""
                'なので、ここでは引っかからない
                Exit Do
            End If
        Loop

これで、ファイルの内容を一行ずつ最後まで読み取ることができます。
posted by VB.NET+MSDE+ActiveReports at 15:01 | Comment(0) | TrackBack(0) | ファイル・フォルダ
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/8871361