Чистка message.btr

Автор:R-Style Softlab
Дата:23.01.2002
Просмотров:2826
Скачиваний:2131
Оценка: - , Оценок - 0
Сохранить в файле

Обсудить в форуме

Описание

Вот простейший макрос для умной чистки 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);