Delphi сортировка строк в txt файлах

[sokolik-117845]

Приветствую форумчан!
Есть .txt файл в котором содержаться строки вида:

111xxxx
222xxxx
222xxxx
333xxxx
111xxxx
555xxxx
666xxxx
777xxxx
888xxxx

Выше приведенные строки необходимо раскинуть по трем .txt файлам следующим образом:
строки, которые содержат в начале символы 111, 222 вырезать из исходного файла и записать в 1.txt
строки, которые содержат в начале символы 333, 555 вырезать из исходного файла и записать в 2.txt
строки, которые содержат в начале символы 666, 777, 888 вырезать из исходного файла и записать в 3.txt

буду признателен, если кто поможет кодом с использованием TStringList! С текстовыми файлами раньше не работал, а тут срочно понадобилось!

[FaTaL]

Используй TStringList и цикл for downto do

[Serge_Bliznykov]

var ts, ts1,ts2, ts3 :TStringList;
   i : integer;
   s : string;
begin
  ts := TStringList.Create;
  ts1 := TStringList.Create;
  ts2 := TStringList.Create;
  ts3 := TStringList.Create;

  try
    ts.LoadFromFile('Исходный.txt');
    for i:=0 to ts.Count-1 do begin
      s := ts.Strings[i];
      if  (Pos('111',s)=1) or (Pos('222',s)=1) then ts1.Append(s)
      else
        if  (Pos('333',s)=1) or (Pos('555',s)=1) then ts2.Append(s)
        else
          if  (Pos('666',s)=1) or (Pos('777',s)=1)
                                      or (Pos('888',s)=1) then ts3.Append(s)
     end;
     
     {сохранение результатов}
     ts1.SaveToFile('1.txt');
     ts2.SaveToFile('2.txt');
     ts3.SaveToFile('3.txt');

    end;

  finally
     ts.Free;
     ts1.Free;
     ts2.Free;
     ts3.Free;
  end;
  

end;

[sokolik-117845]

Сообщение от Serge_Bliznykov

var ts, ts1,ts2, ts3 :TStringList;
   i : integer;
   s : string;
begin
  ts := TStringList.Create;
  ts1 := TStringList.Create;
  ts2 := TStringList.Create;
  ts3 := TStringList.Create;

  try
    ts.LoadFromFile('Исходный.txt');
    for i:=0 to ts.Count-1 do begin
      s := ts.Strings[i];
      if  (Pos('111',s)=1) or (Pos('222',s)=1) then ts1.Append(s)
      else
        if  (Pos('333',s)=1) or (Pos('555',s)=1) then ts2.Append(s)
        else
          if  (Pos('666',s)=1) or (Pos('777',s)=1)
                                      or (Pos('888',s)=1) then ts3.Append(s)
     end;
     
     {сохранение результатов}
     ts1.SaveToFile('1.txt');
     ts2.SaveToFile('2.txt');
     ts3.SaveToFile('3.txt');

    end;

  finally
     ts.Free;
     ts1.Free;
     ts2.Free;
     ts3.Free;
  end;
  

end;

Спасибо!!!

[sokolik-117845]

Еще такой вопрос:
Как к этому прикрепить прогресс бар?

[Serge_Bliznykov]

Как к этому прикрепить прогресс бар?

вообще-то, на форуме действует строгое правило Одна тема <-> один вопрос.

но, в связи, с простотой вопроса, можно так:

   //перед циклом зададим размер прогрессбара
   ProgressBar1.Max := ts.Count;

   // приращение обеспечим внутри цикла
   for i:=0 to ts.Count-1 do begin
       ...... 
       ProgressBar1.StepBy(1);
      Application.ProcessMessages;   
   end;