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

Версия 17:08, 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