VBScript：テキスト処理

読み込み
---------------------
Option Explicit

Dim objFS
Dim objText
Dim strData

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objText = objFS.OpenTextFile("d:\work\flatindata.txt")

If objText.AtEndOfStream = False Then
strData = objText.ReadAll
WScript.Echo strData
End If

objText.Close

Set objText = Nothing
Set objFS = Nothing


書き込み
---------------------
Option Explicit

Dim objFS
Dim objText
Dim strData

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objText = objFS.CreateTextFile("d:\work\ren013d.txt")

objText.WriteLine "書き込み内容1"
objText.WriteLine "書き込み内容2"

objText.Close

WScript.Echo "２行書き込みました"

Set objText = Nothing
Set objFS = Nothing