テキストファイルを一行づつとる方法

質問

テキストファイルを一行だけとる方法は以下のとおりかと思いますが、最後の列まで一行づつとる場合はどうすればいいのでしょうか？教えて頂ければ幸いです。

Open "c:\data.txt" For Input As #1
Line Input #1, str
Close #1

回答No.2

imogasi · ベストアンサー

Sub test01()
Open "c:\my documents\a13.csv" For Input As #1
i = 0
While Not EOF(1)
Line Input #1, a
i = i + 1
If i Mod 2 = 1 Then
'処理
MsgBox i
End If
Wend
Close #1
End Sub
１，３，５、・・番目を処理します。
２、４、６、・・・なら　i Mod 2 = 0に変える。

回答No.1

maruru01

こんにちは。maruru01です。

ループすればいいでしょう。

Dim strData() As String
Dim i As Long

Open "c:\data.txt" For Input As #1
　　Do Until EOF(1)
　　　　ReDim Preserve strData(i)
　　　　Line Input #1, strData(i)
　　　　i = i + 1
　　Loop
Close #1