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

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

2 个答案: