| |
|
|
| | Вроде задача простая, но никак не могу ее осилить
Есть CSV файл, который надо импортировать в Access, но наименования полей в нем начинаются с 5-ой строки. Для импорта первые 4 строки надо удалить. Кто знает, как VB кодом можно это осуществить? Мне надо получить новый CSV без ненужных строк, а затем я его уже сам загоню в таблицу.
Заранее спасибо! | |
| |
| |
| |
|
|
| | да поможет вам Scripting.FileSystemObject | |
| |
| |
| |
|
|
| | а не слишком замудрено?  | |
| |
| |
| |
|
|
| | Только копированием в новый файл.
Dim i&, s$
Open "C:\Setupxlg.txt" For Input As 1
Open "C:\Setupxlg2.txt" For Output As 2
Do Until EOF(1)
i = i + 1
Line Input #1, s
If i > 4 Then Print #2, s
Loop
|
В принципе, можно сразу дерибанить полученную строку на части и вносить в таблицу.
С csv файлом можно попробовать инструкцией Input #1, var1, var2,... прочитать строку сразу в массив переменных. | |
| |
| |
| |
|
|
| | о, спасибо, попробую. сразу дербанить не буду - пока пойду простым путем.
а как убрать последние 3 строки (там результирующие данные, которые тоже не нужны)? | |
| |
| |
| |
|
|
| | >а как убрать последние 3 строки
Ну, например, если в строке есть "ИТОГО:", то:
IF s Like "*ИТОГО:*" Then Exit Do
Другой выриант - прочитать в переменную всё содержимое файла (функции Input и LOF), функцией Split() получить массив строк, и затем записывать все строки кроме 4-х первых и 3-х последних. | |
| |
| |
| |
|
|
| | Тысяча благодарностей!!! Все работает быстро и исправно! | |
| |
| |
