Стоит посмотреть
Чистка message.btr
Сохранить в файлеОбсудить в форуме
Описание
Вот простейший макрос для умной чистки message.btr''а, используемого для связи БОУРМ - RS-Bank.Файл iProgBar.mac лежит в каталоге \Mac\ClientB БОУРМ (это просто объектный прогрессбар), файл message.def можно взять из дистрибутива Клиента Windows.
Текст примера
import "iProgBar.mac"; macro DeleteExcludeLast(f) var nRecs=f.NRecords(); println("Всего записей в файле: ",nRecs); var pbar=CDeferredProgressBar(nRecs," ~Пожалуйста подождите...~","Очистка файла message.btr"); f.prev(); pbar.next(); while(f.prev()) println("Удаляю запись: lCode=",f.rec().lCode); f.delete(); pbar.next(); end; println("Удалено записей: ",nRecs - f.NRecords()); end; var fname; if(not SelectFile(fname,"messag*.btr")) RunError("Пользователь отменил выполнение макроса"); end; var f=TBFile("message.btr","W",0,fname,"message.def"); DeleteExcludeLast(f);