0

Нужно доработать код что бы он обрабатывал "одновременно" вот такого плана текст (Текст между символами может быть разным).

Текст до обработки:

TEST "111111> TEST1 TEST "111111> TEST1 TEST "111111> TEST1
TEST """111111> TEST1 TEST """111111> TEST1 TEST """111111> TEST1
TEST """222222>> TEST2 TEST """222222>> TEST2 TEST """222222>> TEST2
TEST """333>>> TEST3 TEST """333>>> TEST3 TEST """333>>> TEST3
TEST "444444>>> TEST4 TEST "444444>>> TEST4 TEST "444444>>> TEST4 TEST "444444>>> TEST4
TEST ""5555>>> TEST5 TEST ""5555>>> TEST5

Результат, после обработки должен быть вот в таком виде:

TEST TEST1 TEST TEST1 TEST TEST1
TEST TEST1 TEST TEST1 TEST TEST1
TEST TEST2 TEST TEST2 TEST TEST2
TEST TEST3 TEST TEST3 TEST TEST3
TEST TEST4 TEST TEST4 TEST TEST4 TEST TEST4
TEST  TEST5 TEST TEST5

П/C: Обработка из файла и сохранение в файл.

10
  • Если с мемо работает то очевидно, что проблема с записью или чтением в/из файла
    – RealPeha
    14 апр 2018 в 14:42
  • Не подскажите как исправить ? 14 апр 2018 в 14:44
  • В основной теме указала правильно условия конкурса. Точнее в правильном виде. 16 мая 2018 в 16:11
  • Это не ответы "не являются исчерпывающими", а вопрос мутирует так, что ответы перестают на него отвечать.
    – user176262
    16 мая 2018 в 16:18
  • 1
    @Татьяна Это неправильно. Вопрос был задан и получил правильный ответ. Если вопрос теперь другой, то он должен быть задан, как новый вопрос.
    – user176262
    16 мая 2018 в 16:29

3 ответа 3

2
+100
for P := Len downto 1 do 
begin
  if S[P] = '"' then 
  begin
    if Pos1 = 0 then 
    begin
      Pos1 := P;
    end
    else 
    begin
      Delete(S, P, Pos1 - P + 1); // счетчик цикла здесь P, а не i 
      Pos1 := 0;
    end;
  end;
end;
writeln(ft2,s)

Update

Как сделать удаление по разным символам. К примеру от знака " до знака >.

for P := Len downto 1 do 
begin
  if (S[P] = '>') and (Pos1 = 0) then 
  begin
    Pos1 := P;
  end;
  if (S[P] = '"') and (Pos1 <> 0) then 
  begin
    Delete(S, P, Pos1 - P + 1);
    Pos1 := 0;
  end;
end;
writeln(ft2,s)
14
  • Если так делаю то за дублирует по много раз каждую строку и не удаляет. 14 апр 2018 в 14:50
  • 1
    @Татьяна Вы увидели, в чем была ошибка?
    – user176262
    14 апр 2018 в 15:00
  • 1
    @Татьяна Delete(S, P + 1, Pos1 - P - 1);
    – user176262
    15 апр 2018 в 13:49
  • 1
    @Татьяна Программирование вообще проще, чем многие думают :).
    – user176262
    15 апр 2018 в 14:17
  • 1
    @Татьяна Не "нашей", а "Вашей" :). Сейчас.
    – user176262
    15 апр 2018 в 15:02
1

Уберите строку Append(ft2);, т.к. файл только что создается и нету смысла использовать эту команду. Скорее всего это и есть причиной проблемы, потому что идет попытка повторно открыть уже открытый файл

3
  • 1
    Append, конечно, не нужен, но дело не в нем.
    – user176262
    14 апр 2018 в 14:57
  • Не то что мне жалко очков, но этот ответ не имеет никакого отношения к проблеме автора вопроса.
    – user176262
    14 апр 2018 в 15:10
  • 1
    @Igor, раз человек написал, что при использовании memo у него всё работает, то я рассматривал только вариант с проблемой записью/считывания в файл. И это единственная ошибка, которую я заметил. Но так получилось, что я ошибся.
    – RealPeha
    14 апр 2018 в 15:24
0

Конечно мой код не сильно быстрый но за то работает:

  procedure TForm1.Button1Click(Sender: TObject);
    var s : string;
      p1, p2 : integer;
    begin
     ..........................
      p1 := Pos('"', s);
      while p1>0 do begin
        p2 := PosEx('>', s, p1);
        if p2<1 then Break;
        while (p2<Length(s)) and (s[p2+1]='>') do Inc(p2);
        Delete(s, p1, p2+2-p1);
        p1 := Pos('"', s);
      end;
   ................................
    end;

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.