�?мпорт банковской выписки

Версия 17:32, 25 февраля 2007

Организовать импорт данных из текстововго файла в базу данных Гедымина можно как с помощью встроенного механизма импорта, так и используя регулярные выражения. В данной статье мы рассмотрим второй способ. В качестве образца файла с данными возмем банковскую выписку Белагропромбанка. Как видно, содержимое файла -- это выписка по одному или нескольким счетам. Напишем процедуру, которая будет считывать файл с диска, перекодировать его из ДОС кодировки и вызывать процедуру разбора выписки:

Sub ParseFile
  Const ForReading = 1
  Dim s
  s = System.OEMToAnsi(CreateObject("Scripting.FileSystemObject")._
    OpenTextFile("c:\temp\vyp.txt", ForReading).ReadAll)
  ParseStatement s
End Sub

Задача процедуры ParseStatement -- разбить текст на одиночные выписки и вызвать для каждой процедуру ParseOneStatement, передав ей на вход счет, дату выписки и ее текст:

Как видно, мы распознаем выписки в файле по заголовку. который содержит строку "Лицевой счет". Из заголовка мы извлекаем номер счета и дату выписки. Обратите внимание, что счет мы "склеиваем" из двух частей, так как в оригинале он содержит разделитель -- девис. Дату из текста мы извлекаем по-отдельности: день. месяц и год, объединяя их потом с помощью функции DateSerial.