2

Как решить вот такую задачу на Delphi XE4 ?

В текстовом файле есть строки, например: -----++Программа+55

  1. Как удалить все после +, чтобы получилось: -----++Программа+?

  2. Как удалить все включая +, чтобы получилось: -----++Программа?

  3. Как обрезать -----++ и все после +, чтобы получилось: Программа?

UPD

Пробовала вот так:

var s:string; 
begin 
  s :='-----++Программа+'; 
  Delete(s, Pos('+', s)+2, Length(s)); 
  ShowMessage(s); //результат 
end;
6
  • 3
    Напишите, пожалуйста, что вы уже попробовали сами и что у вас не получилось. 19 фев 2018 в 16:35
  • 1
    Регулярками можно...
    – Qwertiy
    19 фев 2018 в 16:37
  • Пробовала вот так: var s:string; begin s :='-----++Программа+'; Delete(s, Pos('+', s)+2, Length(s)); ShowMessage(s); //результат end; 19 фев 2018 в 16:39
  • Но не получается. 19 фев 2018 в 16:42
  • 1
    Вы привели только один вариант строки. Я не вижу всех критериев, по которым необходимо удалять символы. Обязательно искомая строка должна быть между '++' и '+'? Или в строке должны остаться только буквы, но не символы? 19 фев 2018 в 17:12

1 ответ 1

5

Да. Обязательно искомая строка должна быть между '++' и '+'

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  s:string;
  k:integer;

begin
   s:='-----++Программа+55';
   k:=Pos('++',s);
   s:=Copy(s,k+2,Length(s)-k-2);
   k:=Pos('+',s);
   s:=Copy(s,1,k-1);
   Writeln(s);
   Readln;

end.

Если же через Delete, то так:

   s:='-----++Программа+55';
   k:=Pos('++',s);
   Delete(s,1,k+1);
   k:=Pos('+',s);
   Delete(s,k,Length(s)-k+1);
2
  • Спасибо, очень помогли. 19 фев 2018 в 18:47
  • 2
    @Татьяна, отметьте, пожалуйста, данный ответ как верный. 20 фев 2018 в 6:01

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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