[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;