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

Версия 23:27, 25 февраля 2007

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

Sub ParseStatement(s)
  Dim regEx, Matches, I, J
  Set regEx = CreateObject("VBScript.RegExp")
  regEx.IgnoreCase = True
  regEx.Global = True
  regEx.Pattern = "Лицевой\s+по\s+счету\s+N\s+(\d{4})-(\d{9}).+за\D+(\d{1,2})\.(\d{1,2})\.(\d{1,4})" 

  Set Matches = regEx.Execute(s)
  For I = 1 To Matches.Count
   If I = Matches.Count Then
     J = Len(s)
   Else
     J = Matches(I).FirstIndex
   End If
   ParseOneStatement Matches(I - 1).SubMatches(0) & Matches(I - 1).SubMatches(1), _
     DateSerial(Matches(I - 1).SubMatches(4), Matches(I - 1).SubMatches(3), Matches(I - 1).SubMatches(2)), _
     Mid(s, Matches(I - 1).FirstIndex, J - Matches(I - 1).FirstIndex)
  Next
End Sub

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

Для каждой выписки, указанная процедура извлекает номер счета, дату выписки и вместе с ее текстом передает на вход процедуре ParseOneStatement.

ParseOneStatement