投稿日 | : 2003/04/28(Mon) 19:29 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: テキストファイルから文字列抽出 |
リンクのMSの使用例を見なかったのですか?
使用例に少し追加しました。
Private Sub Command1_Click()
Const ForReading = 1, ForWriting = 2
Dim fso, f, SkipTextFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "1234567890あいうえお1234567890" & vbCrLf & "1234567890あいうえお1234567890"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
f.Skip (12) ’最初の読込位置までスキップ
'SkipTextFile = SkipTextFile 'この場合 うえお1234567890 ここまで
'従って最後まで読込む場合最後の行まで繰返します。
Do Until f.AtEndOfLine
SkipTextFile = SkipTextFile & f.ReadLine
Loop
Debug.Print SkipTextFile
End Sub
この辺は通常のシーケンシャルファイルの Line Input を使った読込と同様ですよ
使用例が載っているのですから自分で色々試して見て下さい。