14.06.2014, 15:34
|
Прохожий
|
|
Регистрация: 24.04.2014
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
|
|
Цитата:
Сообщение от Страдалецъ
Ну вот примерно так:
Код:
programm CutFile;
var
f1,f2: Text;
S: String;
begin
if ParamCount < 2
then begin
WriteLn('Ошибка. Неверное количество параметров.');
WriteLn('Пример запуска: CutFile srcfile.txt dstfile.txt');
Exit;
end;
AssignFile(f1, ParamStr(1));
Reset(f1);
AssignFile(f2, ParamStr(2));
Rewrite(f2);
while not Eof(f1)
do begin
ReadLn(f1, S);
WriteLn(f2, Copy(S,1,6))
end;
CloseFile(f1);
CloseFile(f2);
end.
|
а дальше куда - что тыкать в Delphi?
|