Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Текстовый файл.

Автор: someone 18.02.2007 22:18

Здравствуйте. У меня тут такая проблема. Как разделить одну строку в текстовом файле на 2, если брать во внимание то,что первая строка должна быть 50 симвлов, а 2 все оставшиеся.

Зарание благодарю. wink.gif

Автор: Артемий2 18.02.2007 23:07

var
F: Text;
s,s1,s2: string;
begin
assign(F,'ban.txt');
reset(F);
while not eof(F) do begin
read(F,s);
writeln(s);
s1:=copy(s,1,50);
writeln(s1);
s2:=copy(s,51,length(s));
writeln(s2);
end;
readln

?

Автор: someone 18.02.2007 23:18

спасибо. не думал что всё будит так просто rolleyes.gif

Автор: мисс_граффити 18.02.2007 23:19

строки в файле - не длиннее 255 символов?