Помогите. Нужно открыть, взять, записать, сохранить.....

[SLIM]

Значит есть такой файлик. Его нужно открыть, прочитать данные, взять определенные, сохранить, а далее разберемся, но...все это нужно сделать а ACCESS. Я начинающий, да еще и любитель, таких кодов я не писал. С чего начать даже не знаю. Помогите.
Но. Вся информация из файла конфеденциальна, прошу не разглашать.
Еще. Как видите у этого файла странное расширение. Так вот таких подобных файлов масса, и расширения у каждого разное. В задаче также стоит массовое прочтение данных.
Зарание благодарю. Буду очень рад хоть за какую-то помощь.

[VolkA]

1 Сливаешь файл в переменную http://vb.hut.ru/vbnovice/simple_faq.htm
2 Анализируешь её (INSTR) на вхождение ключевых слов
(например "ЗАЯВКА N " 4 следующих символа - номер заявки)
раскидываешь таким образом строку по переменным
3 Для массовой обработки надо заготовить массив имён файлов в папке.
Писал для экселя, код несложный, перепиши под своё приложение.

Успехов )))

[SLIM]

Все чудесно. Но с открытием и чтением данных их файла проблем.
Для эксперимента содал формочку и в formload зачунул текст.
Все работает пока я не закрыл базу данных.
Как только закрыл, и открываю вньвб, запускаю форму и.....Module not found. Кричит ругается. Не понимаю почему, ведь если только что создал и написал, то все работает.
Подскажите что сделать?

[SLIM]

При работе со строками родилась функция:

Код: Выделить всё

Function Stroka(START_STROKA As String, POSLE_STROKA As String, ISKAY_DO_SIMV As String) As String
Dim DLIN_POISK As Long
Dim Start_posic As Long
Dim Finish_posic As Long
   
    DLIN_POISK = Len(POSLE_STROKA)
    Start_posic = InStr(1, START_STROKA, POSLE_STROKA, vbTextCompare) + DLIN_POISK + 1
    Finish_posic = InStr(1, START_STROKA, ISKAY_DO_SIMV, vbTextCompare)
   
    Stroka = Mid(START_STROKA, Start_posic, Finish_posic - Start_posic)
End Function

Вроде работает. Ищет строку от заданного до заданного. Но вот проблема. Если один из параметров ф-ии не существует, то выдает ошибки. Как сделать обработчика ошибок?

[SLIM]

При работе со строками родилась функция:

Код: Выделить всё

Function Stroka(START_STROKA As String, POSLE_STROKA As String, ISKAY_DO_SIMV As String) As String
Dim DLIN_POISK As Long
Dim Start_posic As Long
Dim Finish_posic As Long
   
    DLIN_POISK = Len(POSLE_STROKA)
    Start_posic = InStr(1, START_STROKA, POSLE_STROKA, vbTextCompare) + DLIN_POISK + 1
    Finish_posic = InStr(1, START_STROKA, ISKAY_DO_SIMV, vbTextCompare)
   
    Stroka = Mid(START_STROKA, Start_posic, Finish_posic - Start_posic)
End Function

Вроде работает. Ищет строку от заданного до заданного. Но вот проблема. Если один из параметров ф-ии не существует, то выдает ошибки. Как сделать обработчика ошибок?

[uhm]

Вставь обычный IF, не надо никаких шибко умных "обработчиков ошибок".