vbsの作法 その3

概要

vbsの作法、調べてみた。
csvを読んでみた。

サンプルコード

Set db = CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=c:\;ReadOnly=1"
Set rs = db.Execute("SELECT * FROM [test.csv]")
Do Until rs.EOF
    msgbox "lat: " & rs(0) & " lon: " & rs(1) & " mise: " & rs(2)
    rs.MoveNext
Loop
rs.close
db.close

test.csv

lat, lon, mise
 "37.929687", "140.151111", "オートショップユニット"
 "37.929220", "140.109344", "（株）エイジュウプロ"
 "37.923453", "140.093108", "（株）ホンダウイングロードショウ"
 "37.911333", "140.112004", "（有）カーセンター葵商会"
 "37.907591", "140.108036", "塚本サイクル"
 "37.928429", "140.114247", "サイクルショップ川口"
 "37.916279", "140.099879", "サイクルショップ中村"
 "37.917854", "140.101416", "菅原商会"
 "37.912485", "140.108688", "サイクルセンター卯月"
 "37.912049", "140.105914", "ホンダ野村モータース"
 "37.869915", "140.103534", "モーターハウスＫ"
 "37.918955", "140.109289", "ライダースサロン・ヤマカ"
 "37.915746", "140.108313", "中央ホンダ"
 "37.905011", "140.107225", "香澄ホンダ"
 "37.912663", "140.123328", "佐藤オート商会"
 "37.910789", "140.121636", "香坂輪店"
 "37.958525", "140.125682", "斎藤モータース"
 "37.956678", "140.117820", "ニューホンダ石山"
 "37.903901", "140.131694", "二輪屋たかはし"
 "37.886019", "140.104554", "夢工場"
 "37.874814", "140.103239", "あべ輪店"
 "37.905055", "140.137379", "レッドバロン米沢"

以上。