vbsで最後の行を削除する

質問

csvファイル(test.csv)からフラグが１のものを抽出するのですが
最終行に改行がはってしまうので、最終行を削除してcsvファイルを保存したいのですが、
うまくいきません。ご教授ください。

Dim objADO
Dim i
Dim wsql
Dim rs
Dim wHeader
Dim wData
Dim objFSO
Dim objFile

Set objADO = CreateObject('ADODb.connection')

objADO.Open "Driver={Microsoft Text Driver (*.txt;*csv)};"&_
"DBQ=C:\test;"&_
"ReadOnly=1"
'抽出条件
wsql="select * from test.csv where フラグ='1'"

Set rs =objADO.Execute(Wsql)

'ヘッダ部
wHeader='ID,商品名,商品番号,フラグ"

'データ部
wData=""
Do While rs.EOF=False
For i = 0 to rs.fields.count - 1
if i = (rs.fields.count -1) then
wData = wData & chr(34) & rs.Fields.ltem(i) & chr(34) & chr(13)
else
wData = wData & chr(34) & rs.Fields.ltem(i) & chr(34) & ","

end if
next
rs.MoveNext
loop

'最終改行削除？
rs = Left(wData,Len(wData) - Len(chr(13)))

'ファイル出力
set objFSO = createObject("Scripting.FileSystemObject")
set objFile = objFSO.OpentextFile("c:\test\test.csv",2, true)

if err.Number = 0 then
objFile.WriteLine(wHeader)
objFile.WriteLine(wData)
objFile.close
end if

set objFile = Nothing
set objFSO = Nothing
set objADO = Nothing

******************************************
ID,商品名,商品番号,フラグ
100,パソコン,100-12,1
200,ペン,200-11,1
***ここの改行を削除する*****
〔EOF〕

回答No.1

n-jun · ベストアンサー

'最終改行削除？
wData = Left(wData,Len(wData) - 1)

ではないかな？

お礼

助かりました
ありがとうございます