web-dev-qa-db-ja.com

VBScriptを使用してテキストファイルから読み取る方法は？

VBScriptを使用してテキストファイルを読み書きする簡単な方法を探しています。

これはファイルに書き込むための許容できる方法だと思います。

 Dim f, 
 Dim fso

 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.CreateTextFile("C:\test.txt", True, True)

 f.WriteLine("Data to Add to file.")
 f.Close

ただし、同様の方法でファイルから読み取る方法を知りたいです。

windowsscriptingvbscript
7
Curtis Inderwiesche

最初にメソッド OpenTextFile を使用し、次に...

メソッド ReadAll ：を使用してファイルを一度に読み取ります。

Set file = fso.OpenTextFile("C:\test.txt", 1)
content = file.ReadAll

またはメソッドを使用して1行ずつ ReadLine ：

Set dict = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile ("c:\test.txt", 1)
row = 0
Do Until file.AtEndOfStream
  line = file.Readline
  dict.Add row, line
  row = row + 1
Loop

file.Close

'Loop over it
For Each line in dict.Items
  WScript.Echo line
Next
29
Jonas Elfström