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

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

ParseFile

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, передав ей на вход счет, дату выписки и ее текст:

ParseStatement

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