[转] csv文件的读写
Dim fso As New FileSystemObject
Dim fil As File
Dim ts As TextStream
Set fso = CreateObject("Scripting.filesystemobject")
Dim yy, y1, y2, y3
y1 = fil_path
'这里取得ASP里面传递的文件名
yy =".\text.csv"
fso.CreateTextFile (yy)
Set fil = fso.GetFile(yy)
Set ts = fil.OpenAsTextStream(ForWriting)
'数组参数传递
ts.Write (yy)
ts.WriteBlankLines (1)
ts.Write (yy)
ts.WriteBlankLines (1)
ts.Write (bol_end)
ts.WriteBlankLines (1)
ts.Write (sum_a2)
ts.WriteBlankLines (1)
Dim fil As File
Dim ts As TextStream
Set fso = CreateObject("Scripting.filesystemobject")
Dim yy, y1, y2, y3
y1 = fil_path
'这里取得ASP里面传递的文件名
yy =".\text.csv"
fso.CreateTextFile (yy)
Set fil = fso.GetFile(yy)
Set ts = fil.OpenAsTextStream(ForWriting)
'数组参数传递
ts.Write (yy)
ts.WriteBlankLines (1)
ts.Write (yy)
ts.WriteBlankLines (1)
ts.Write (bol_end)
ts.WriteBlankLines (1)
ts.Write (sum_a2)
ts.WriteBlankLines (1)