[FAQ CENTER トップ]
[VBScript FAQ トップへ]

VBScript / VBA FAQ


スポンサード リンク

【質問】 VBScriptで csv ファイルを取り込むサンプル

スポンサード リンク

【答え】
以下 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 トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2014