Удаление субфайлов (на примере ttfile’ов) Главная страница
Топик «Скрипты или команы»
dimitrius
Мы делали так (Winfiol 6):
@set {n}=4364
@label 1
inmct:spg=0;
infir:file=ttfile00-{n};
end;
@inc {n}
@if {n}=6400 then stop
@goto 1
всё прекрасно работает!
Striy
Удаление ТТфилесов
@COMMENT "MACRO ttfile"
@CLEAR
@CONNECT
@ONERROR GOSUB myerror
@ASK {i} с номера (указать 4 цифры ):
@ASK {po} по номер (указать 4 цифры ):
@SET {i} = {i}
@SET {po} = {po}
@R-
@LABEL qqq
@SET {error} = 0
@CONNECT
inmct:spg=0;
infir:file=ttfile00-{i};
@IF {error} = 1 THEN GOTO mynext
@RELEASE
@LABEL mynext
@INC {i}
@IF {i} <= {po} THEN
GOTO qqq
@R+
@COMMENT "END MACRO удаление ttfile"
@ONERROR
@EXIT
@LABEL myerror
@INC {error} = 1
@RETURN
ну и по аналогии на другие статистики