Как прочитать файлы CSV линию за линией в VBScript

Да, я исправил проблему, изменив папку wcs в плагине.

9
задан AnonJr 22 October 2009 в 04:18
поделиться

2 ответа

Не пытайтесь проанализировать файл сами, Вы просто дадите себе головную боль. Существует вполне немного больше к нему, чем разделение на новой строке и запятых.

Можно использовать OLEDB, чтобы открыть файл в recordset и считать его так же, как Вы были бы таблица базы данных. Что-то вроде этого:

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

15
ответ дан 4 December 2019 в 10:06
поделиться

Почему не только вставляют 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

6
ответ дан 4 December 2019 в 10:06
поделиться
Другие вопросы по тегам:

Похожие вопросы: