Удаление строк по маске

[MSD]

Добрый день уважаемые программисты, появился вопрос помогите пожалуйста разобраться. Работа со строками, есть допустмим для примера Блэклист в формате тхт:
bebo.com
copainsdavant.linternaute.com
facebook.com
facebook.fr
linkedin.com
linkedin.fr
myspace.com
orkut.com
orkut.li
twikeo.com
vkontakte.ru
и так далее.... вобщем строк около 200000))), как сделать так чтобы оставить только домены заканчивающиеся на .ru а остальные и пустые строки удалить? написал код:

var
  source : TStringList;
  i : integer;
begin
  source := TStringList.Create;
  source.LoadFromFile('domains.txt');
   for i := 1 to source.Count -1 do begin
   if Pos('.ru',source.Strings[i])<>0  then  source.Delete(i);
   source.SaveFromFile('domains.txt');
   end;
end;

но что то не работает, и еще появляется list index out of bounds(число), сам файл остается без изменений... что не так подскажите пожалуйста. Спасибо.

[Johnson]

если предполагается "прогулка" по списку с удалением строк, то нужно использовать не for..to..do, а for..downto..do с последнего до первого итема.
list index out of bounds(число) уже предполагает, что Вы обратились по номеру, индекс которого больше количества итемов.
в остальном мысль верна.

правда, удобнее будет такой вариант, когда есть ДВА стрингЛиста. при совпадении условия строка из первого добавляется во второй. второй сохраняется. вот Вам и новый список.

[Alex2391]

source.SaveToFile('domains.txt');

[Johnson]

Алекс, Вы не прочитали проблему... ) Ошибка врядли актуальна, ТС скорее всего подправлял код прямо в браузере, потому и ошибся.

[MSD]

переписал код так.....

var
  source : TStringList;
  result : TStringList;
  i : integer;
begin
  source := TStringList.Create;
  result := TStringList.Create;
  source.LoadFromFile('domains.txt');
   for i := 0 downto source.Count -1 do begin
   if Pos('.ru',source.Strings[i])<>0  then result.Add(source.Strings[i]);
   result.SaveToFile('domains2.txt');
   end;
end;

end.

но он не работает, ошибка исчезла, спасибо, но файл domains2.txt не появляется и такое чувство что совсем глухо и ни че не происходит, что не так?

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sibedir]

1. В первом варианте ошибка в том, что цикл нужно начинать с 0.

2. В первом варианте ошибка в том, что вы работаете со списком ч/з for

for i := 0 downto source.Count -1 do begin

но после source.Delete(i) Count становится меньше. Нужен while.

3. И в первом и во втором варианте ошибка в том, что SaveToFile стоит внутри цикла (м/у begin...end).

Я бы сделал так

var
  source : TStringList;
  i : integer;
begin
  source := TStringList.Create;
  source.LoadFromFile('domains.txt');
  i := 0;
  while i < source.Count do begin
    if Pos ('.ru', source.Strings[i]) = 0 then
      inc(i)
    else
      source.Delete(i);
  end;
  source.SaveFromFile('domains.txt');
end;

[MSD]

всем спасибо за помощь, тему можно закрывать.

[Serge_Bliznykov]

Sibedir, отлично. Только "оставить только домены заканчивающиеся на .ru "
т.е. наоборот, надо удалять те, где Pos ('.ru') = 0


но, просто хочу сказать, что если написать правильно, то можно и FOR использовать:

// вариант с новым списком
var
  source : TStringList;
  result : TStringList;
  i : integer;
begin
  source := TStringList.Create;
  result := TStringList.Create;
  source.LoadFromFile('domains.txt');
  for i := 0 to source.Count -1 do
     if Pos('.ru',source.Strings[i])>0  then 
              result.Add(source.Strings[i]);
   
   result.SaveToFile('domains2.txt');
end;

// вариант с удалением из исходного списка
var
  source : TStringList;
  i : integer;
begin
  source := TStringList.Create;
  source.LoadFromFile('domains.txt');
  for i := source.Count -1 downto 0  do 
     if Pos('.ru',source.Strings[i])=0  then  source.Delete(i);

  result.SaveToFile('domains2.txt');
end;

и ещё. все предложенные варианты используют Pos('.ru')
это не совсем корректно.
1) не будут обработаны строчки в ВЕРХНЕМ регистре (т.е. домен MAIL.RU будет удалён, как не содержащий '.ru')
2) останутся домены, где домены внутренние начинаются с ru (например, www.ruby.com)

[New man]

// вариант с удалением из исходного списка
var
  source : TStringList;
  i : integer;
begin
  source := TStringList.Create;
  source.LoadFromFile('domains.txt');
  for i := source.Count -1 downto 0  do 
     if Pos('.ru',AnsiLowerCase(source.Strings[i]))=0  then  source.Delete(i);

  result.SaveToFile('domains2.txt');
end;

вот

[Johnson]

И ещё... я бы хотел заметить, что хорошим тоном является

TS.SaveToFile(ExtractFilePath(paramstr(0))+'domain.txt');

в противном случае если сменится текущая директория - то не найдете вы свой файл...