如何在VBScript中逐行读取CSV文件

Question

我正在使用ASP页面,我必须读取CSV文件并将其插入到DB表"Employee"中.我正在创建一个TestReader的对象.如何编写一个循环来执行最多正在读取的CSV文件的行数/记录数？

Answer 1

不要试图自己解析文件,你只会让自己头疼.除了分割换行符和逗号之外,还有更多内容.

您可以使用OLEDB打开记录集中的文件,并像读取db表一样读取它.像这样的东西:

Dim strConn, conn, rs

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("path to folder") & ";Extended Properties='text;HDR=Yes;FMT-Delimited';"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn

Set rs = Server.CreateObject("ADODB.recordset")
rs.open "SELECT * FROM myfile.csv", conn

while not rs.eof
    ...
    rs.movenext
wend

我的vbscript生锈了,所以验证语法.

编辑: harpo的评论提出了关于字段定义的一个好点.定义schema.ini文件允许您定义期望字段的数量和数据类型.请参阅:您可以通过定义schema.ini文件来处理此问题.请参阅:http://msdn.microsoft.com/en-us/library/ms709353.aspx

Answer 2

为什么不插入CSV？例如:

SELECT * INTO MyTable FROM OPENDATASOURCE('Microsoft.JET.OLEDB.4.0', 
'Data Source=F:\MyDirectory;Extended Properties="text;HDR=No"')...
[MyCsvFile#csv]

来自:http: //coding.derkeiler.com/Archive/Delphi/borland.public.delphi.database.ado/2007-05/msg00057.html