[connector]

Здавствуйте выручите пожалуйтса , нужна срочно программа работы с текстом сам я новичок в этом деле, вобщем перехожу к делу
Нужна программа которая в текстовом файле, в строках начинающихся напримерр с /200=.... итд, искала поле например /30 содержащий текст ХХХХХХ и создав новый текстовый документ копировала бы это поле в него и затем находила строку ниже чем /200 и копировала его тоже в новый тектовый документ рядом с полем 30
Вот пример:
исходный текст:
/200=11111111/201=1111/202=545/30=ХХХХХХ/06=5555ХХ
текст текст текст
/200=11111111/201=1111/202=545/30=ХХХ222/06=5555ХХ
текст2 текст2 текст2

нужно чтобы получилось:

ХХХХХХ - текст текст текст
ХХХ222 - текст2 текст2 текст2

[Sky.NET]

Вариантов много. Например можно так:

PHP код:

var
  I, p1, p2: integer;
  s, s1, s2, s3: string;
begin
  Memo1.Lines.LoadFromFile('C:\Data.txt'); // Загружаем файл 
  s2 := '/30='; // Данные находятся после /30= 
  s3 := '/'; // И перед / 
  for I := 0 to Memo1.Lines.Count - 1 do // Для каждой строки 
  begin
    s1 := Memo1.Lines.Strings[i]; // Копируем строку 
    s := Copy(s1, 1, 4); // Получаем первые символы
    if s = '/200' then // Если первые символы /200, тогда
    begin
      p1 := Pos(s2, s1); // Ищем возицию /30= 
      p1 := p1 + Length(s2) - 1; // Переходим на позицию после /30= 
      Delete(s1, 1, p1); // Удаляем всё лишнее перед данными 
      p2 := Pos(s3, s1); // Ищем / после данных 
      Memo2.Lines.Add(Copy(s1, 1, p2 - 1)); // Копируем данные 
    end
  else // Иначе
    Memo2.Lines.Add(Memo1.Lines.Strings[i]); // Копируем текст
end;
Memo2.Lines.SaveToFile('C:\File.txt'); // Сохраняем всё в файл 
end; 


[connector]

все работет

[Страдалецъ]

Забавно, это случаем не amt-файл?