Delphi - Корректировка текстовго файла

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - Корректировка текстовго файла

Hardip

Новый участник

Сообщения: 29
Благодарности: 0

Профиль | Отправить PM | Цитировать

У меня вот такой вопрос. У меня есть текстовый файл. Мне нужно в конец каждой строки файла записать количество слов в данной строке. Я сделал, что программа разбирает на строки файл,

Код:

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);

А нужно каждой.. И ещё не знаю, как сделать, чтобы он это значение в конец этой-же строки в файл записывал. Заранее благодарю!

Отправлено: 22:55, 28-11-2010

Любезный

Старожил

Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать

Всё правильно - он выдаёт число слов в последней строке, ибо ты подсчитываешь слова в переменной s после того, как ты прочитал в неё последнюю строку.

Кроме того, не следует одновременно открывать один файл для чтения и для записи. Создай новый файл и пиши в него заново сформированные строки.

Это сообщение посчитали полезным следующие участники:

Drongo

Отправлено: 20:46, 29-11-2010 | #2