редактирование .txt

[Sfaiter]

Доброго времени суток!

Подскажите пожалуйста код программы в Delphi, для удаления строк в текстовом файле, начинающиеся со слова 'j', при этом после удаления чтобы не оставались пустые строки и массив текста был сплошным, и каждое предложение начиналось c новой строки.

Пример:
а(i),b(j) - предложения, где i,j - слова с которого начинается предложение.

вид текста:
а(i).
а(i).
b(j).
а(i).
b(j).
b(j).
а(i).
после выполнения получаем:
а(i).
а(i).
а(i).
а(i).
не должно получится:
а(i).
а(i).

а(i).


а(i).


За ранее очень благодарен.

[Zer0]

поключаете модуль Classes и используя TStringList получите то что нужно:

procedure ClearFile(AFileName:string);
var f:TStringList; i:integer; s:string;
begin
 f:=TStringList.Create;
 f.LoadFromFile(AFileName);
 i:=0;
 while i<f.Count do begin
 s:=f[i];
 if lowercase(s[1])='j' then 
  f.Delete(i)
 else
  inc(i);
 end;
 f.SaveToFile(AFileName);
 f.Free;
end;

[Arigato]

Лучше цикл for использовать вместо while:

for i := f.count - 1 downto 0 do
  if lowercase(f[i][1])='j' then f.Delete(i)

[Zer0]

Arigato, не соглашусь, т.к. в снижающемся цикле при удалении программа дважды будет проверять одну и ту же строчку (а то и больше)

[Arigato]

С чего это вдруг дважды?

[Аватар]

Zer0, а вы попробуйте один и второй вариант и будете очень удивлены, сравнив временные характеристики FOR и WHILE, естественно на достаточно больших объёмах данных. И двойная проверка не при делах - после удаления i уменшается

[Zer0]

Действительно, виноват, видимо не выспался сегодня