StringReplace

[s1s1s1]

попробуйте кто-нибудь

 st := TStringList.Create;
          ts := TStringList.Create;
for i:=st.Count-1 downto 0 do 
if Pos('5555',st.Strings[i])>0  then
 for v:=ts.Count-1 downto 0 do
    if Pos('6',ts.Strings[v])>0  then
St[I]:= StringReplace(st[i],st[i],ts[v], [rfReplaceAll]);

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

немного подправлю ваш код:

 st := TStringList.Create;
  ts := TStringList.Create;
  for i := st.Count - 1 downto 0 do
  begin
    if Pos('5555', st.Strings[i]) > 0 then
    begin
      for v := ts.Count - 1 downto 0 do
      begin
        if Pos('6', ts.Strings[v]) > 0 then
          St[I] := StringReplace(st[i], st[i], ts[v], [rfReplaceAll]);
      end;
    end;
  end;
end;

так компилируется , но когда выполняется этот код выделяется строчка, виснет программа

if Pos('6', ts.Strings[v]) > 0 then

файл 1
123ууу548
258686ууу
859214723
147820369
ууу147852

файл 2
уу1458885
t21478562
t76714785
1458уу147
уу1478524

должно получиться вот так

файл 1
уу1458885
1458уу147
859214723
147820369
уу1478524
как быть?

[Serge_Bliznykov]

вот полностью решение:

procedure TForm1.Button1Click(Sender: TObject);

  function FindNextString(var ts : TStringList; var Index : integer) : string;
  begin
    while (index<ts.Count) do begin
     {внимание - буквы yy - РУССКИЕ!} 
      if Pos(AnsiUpperCase('уу'),AnsiUpperCase(ts.Strings[index] ))=0
         then inc(Index)
         else Break;
    end;
    if (index<ts.Count) {значит нашли очередную строку с YY} then
    begin
      result := ts.Strings[index];
      Inc(index); 
    end
    else
      result := 'строки с YY во втором файле закончились!';
  end;

var ts1, ts2 : TStringList;
  i1, i2 : integer;
  AppDir : string;
begin
  AppDir := ExtractFilePath(ParamStr(0));
  ts1 := TStringList.Create;
  ts2 := TStringList.Create;
  ts1.LoadFromFile(AppDir+'file1');
  ts2.LoadFromFile(AppDir+'file2');

  i2 := 0;
  for i1:=0 to ts1.Count - 1 do begin
     {внимание - буквы yyy - РУССКИЕ!} 
     if Pos(AnsiUpperCase('ууу'),AnsiUpperCase(ts1.Strings[i1] ))>0 then
         ts1.Strings[i1] := FindNextString(ts2, i2);
  end;

  ts1.SaveToFile(AppDir+'file3');
  ShowMessage('Обработанные данные сохранены в '+AppDir+'file3');

  FreeAndNil(ts1);
  FreeAndNil(ts2);
end;

полный проект (исходники, + exe+ примеры файлов) в архиве.

[s1s1s1]

спасибо большое. очень выручили.