VB6StreamReader でファイルを 1 行ずつ読み込む

スポンサーリンク

VB6 では、Open ステートメント を使用してファイルを開きます。この時にファイル番号が必要となります。このファイル番号は、FileSystem モジュール内の FreeFile 関数で取得します。

Line Input # ステートメントを使用すると、1 行ずつ読み込むことができます。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' 使用可能なファイル番号を取得する
    Dim iFileNumber As Integer
    iFileNumber = FileSystem.FreeFile()

    ' ファイルを開く
    Open "C:\Hoge.txt" For Input As #iFileNumber

    ' 読み込んだ結果をすべて格納するための変数を宣言する
    Dim stResult As String

    ' ファイルを 1 行ずつ読み込む
    Do While (Not FileSystem.EOF(iFileNumber))
        ' ファイルを 1 行ずつ読み込む
        Dim stBuffer As String
        Line Input #iFileNumber, stBuffer
        ' 読み込んだものを追加で格納する
        stResult = stResult & stBuffer & vbNewLine
    Loop

    ' ファイルを閉じる (正しくは オブジェクトの破棄を保証する を参照)
    Close #iFileNumber

    ' 結果を表示する
    Call MsgBox(stResult)

関連するリファレンス

準備中です。

スポンサーリンク