テキストファイルを開く

カテゴリ: VB6.0
投稿日時:2009/01/19 10:21:04
テキストファイル(CSVファイル)を開くには、以下のようにします。

参照設定に「Microsoft Scripting Runtime」を追加します。

Private Sub Command1_Click()

    Dim f As New FileSystemObject
    Dim stream As TextStream
    
    'CSVファイルを開く。
    Set stream = f.OpenTextFile("c:\test\a.csv", ForReading, False)
        
    '最後の行までループする
    Do Until stream.AtEndOfLine
        Dim line As String
        '1行読む
        line = stream.ReadLine
        
        Dim arr() As String
        'カンマ区切りで配列に変換する
        arr = Split(line, ",")
        
        '何らかの処理
        Dim i As Integer
        For i = 0 To UBound(arr)
            MsgBox arr(i)
        Next
    Loop
     
    '閉じる
    stream.Close
    
    Set stream = Nothing
    Set f = Nothing

End Sub
このエントリーをはてなブックマークに追加


スポンサード リンク