[ホーム] ＞ [VBScript FAQ 一覧] ＞ [VBScriptで csv ファイルを取り込むサンプル]

VBScriptで csv ファイルを取り込むサンプル | VBScript / VBA FAQ

以下 csv ファイルを取り込むサンプルです。c:\temp\test.csvを読み込み標準出力に出力します。

-----------------------------------------------
Dim csvname
csvname="c:\temp\test.csv"

Dim fso,csvfilestream,buf,buf_splited
Dim k , j

Set fso = CreateObject("Scripting.FileSystemObject")
Set csvfilestream = fso.OpenTextFile(csvname)
j = 1

Do While csvfilestream.AtEndOfStream = False
　buf = csvfilestream.ReadLine
　buf_splited = Split(buf, ",")

j=ubound(buf_splited)
　WScript.Echo "j=" & CStr(j)
if j<>-1 then
for k=0 to j
　　WScript.Echo "k=" & CStr(k)
　　WScript.Echo buf_splited(k)
　　next
end if
Loop
csvfilestream.Close
Set csvfilestream = Nothing
Set fso = Nothing

[ホーム] ＞ [VBScript FAQ 一覧]