Михаил Реутов
Постоянный посетитель
Всего сообщений: 224
Дата регистрации: 21.11.2007
|
Создано:
08.06.2011 15:07:50
|
Приветствую.
Фрагмент кода:
| Код |
|---|
table_name = CStr(table_name)
Set tabl_1 = Rastr(from_table).Tables(table_name)
Set tabl_2 = Rastr(to_table).Tables(table_name)
str = ""
For i = 0 To tabl_1.Cols.count - 1
str = str & "," & CStr(tabl_1.Cols.Item(i).Name)
Next
str = CStr(Replace(str, ",", "",1,1))
file = pathFolder & "\" & xcol & ".csv"
'ошибка далее
tabl_1.WriteCSV 1, Cstr(file), Cstr(str), ";"
tabl_2.ReadCSV 0, Cstr(file), Cstr(str), ";", ""
|
где file - путь и сам файл в формате csv, str - перечень наименований столбцов через запятую.
Указанный фрагмент кода перестал работать. Ранее работал, сейчас нет. Код исполняется в WSH, падает Wscript.exe с ошибкой Runtime Error! Сами методы WriteCSV и ReadCSV исполняются в WSC. Хотя сам файл csv создается и в него записывается только одна строка.
Прошу подсказать где, что может быть не так в коде? Ошибка, конечно может быть и по моей вине, но мне не понятно, почему эти методы не работают?
Версия RastrWin 2.53.0.83
|
