 ファイルからデータを読み込む
ASP からファイルの読み書きをする場合、FileSystemObject を利用します。
下記は C:\Inetpub\wwwroot\sample.txt の内容を全て出力します。 まず FileSystemObject.OpenTextFile メソッドを使用して TextStreamオブジェクトを取得します。
次に Do Until ステートメントで繰り返し処理を行ないますが、この時終了条件を AtEndOfStream プロパティが True になるまでと設定しています。AtEndOfStream はテキストストリームから全てのデータを読み込んだ時に True を返すプロパティです。
下記ではファイルから ReadLine メソッドを使用してデータを一行ずつ読み込んでいます。ReadLine メソッドは一行単位でテキストストリームからデータを取得して戻り値として返します。
Dim objFSO
Dim objTS
Dim strWk
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("C:\Inetpub\wwwroot\sample.txt",1 ,True)
Do Until objTS.AtEndOfStream = True
strWk = objTS.ReadLine
Response.Write(strWk & "<br>")
Loop
objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
|
