VB6StreamReader でファイルをすべて読み込む

スポンサーリンク

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

VB6 では最後まで読み込む命令がないので、Line Input # ステートメントを使用して、ファイルの終端まで読み込みます。ファイルの終端の判断は、FileSystem モジュール内の EOF 関数を使用することで可能です。

サンプルコード

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

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

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

    Dim stPrompt As String

    ' テキスト ファイルの最後まで読み込む (1 行読み込みを繰り返す)
    Do While (Not FileSystem.EOF(iFileNumber))
        Dim stBuffer As String
        Line Input #iFileNumber, stBuffer
        stPrompt = stPrompt & stBuffer & vbNewLine
    Loop

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

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

関連するリファレンス

準備中です。

スポンサーリンク