Hardip
28-11-2010, 22:55
У меня вот такой вопрос. У меня есть текстовый файл. Мне нужно в конец каждой строки файла записать количество слов в данной строке. Я сделал, что программа разбирает на строки файл,
uses
SysUtils;
var
n: byte;
S: string;
i:integer;
f:text;
begin
i:=1;
assign(f,'text');
reset(f);
while not(eof(f)) do begin
readln(f,s);
i:=i+1;
end;
n:=1;
for i:=1 to length(s) do
if s[i]=' ' then inc(n);
writeln('Slov:', n);
end.
но выдает в итоге длину последней строки. for i:=1 to length(s) do
if s[i]=' ' then inc(n);
writeln('Slov:', n);
А нужно каждой.. И ещё не знаю, как сделать, чтобы он это значение в конец этой-же строки в файл записывал. Заранее благодарю!
uses
SysUtils;
var
n: byte;
S: string;
i:integer;
f:text;
begin
i:=1;
assign(f,'text');
reset(f);
while not(eof(f)) do begin
readln(f,s);
i:=i+1;
end;
n:=1;
for i:=1 to length(s) do
if s[i]=' ' then inc(n);
writeln('Slov:', n);
end.
но выдает в итоге длину последней строки. for i:=1 to length(s) do
if s[i]=' ' then inc(n);
writeln('Slov:', n);
А нужно каждой.. И ещё не знаю, как сделать, чтобы он это значение в конец этой-же строки в файл записывал. Заранее благодарю!