VB6.0 ファイルの一括読込み

質問

VB6.0で一行ずつ読み込む方法はわかるのですが、改行文字込で一括して全データを読込む方法はありませんでしょうか。

また、読み込んで変数に格納したStringのデータをLine Inputのように一行ずつ読み込んでいく方法はありませんでしょうか。

回答No.1

temtecomai2 · ベストアンサー

Microsoft Scripting Runtime の FileSystemObject で読み込むとか。

Dim fso As Object ' Scripting.FileSystemObject
Dim ts As Object ' Scripting.TextStream
Dim buff As String

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("e:\test.txt", 1) ' arg1=FilePath, arg2=IO Mode (1=ForReading)
buff = ts.ReadAll()
ts.Close

参考URL：

http://msdn.microsoft.com/ja-jp/library/cc409798.aspx

回答No.2

temtecomai2

#1 です。もうひとつの質問
Split 関数って VB6.0 にありませんでしたか？
改行コードをキーにして文字列型の配列に格納する。
あとは配列から順次引っ張ってくる。

Dim lines() As String
lines() = Split(buff, vbCrLf)

Dim i As Long
For i = 0 To UBound(lines)
Debug.Print lines(i)
Next i

お礼

回答有難うございます。
一括読込みはFileSystemObjectで、
そこから一行ごとの読込みはご指摘の通りSplitとUBoundで実現できました。
Open PASS For Input As intFile
Do While Not EOF(intFile)
Line Input #intFile, strData
～
Loop
Close #intFile
以外のやり方を知らなかったため、とても勉強になりました。
誠に有難うございました。