[ALexandr555]

[ALexandr555]

ищю слово "вопрос" и при нахождении копирую от символа "- (" до "):" верно ли?

[Konrad]

Ясно что не верно

Функция копи работает так:

copy('мегострока',2,3) = 'его'

А ругается так как ты вместо числа хочешь поставить ):

[ALexandr555]

как мне тогда из переменной Msg скопировать символы между - ( и ):

[Konrad]

Сообщение от ALexandr555

как мне тогда из переменной Msg скопировать символы между - ( и ):

Найти положение n1 (, найти положение n2 ) далее скопировать от n1 (n2-n1) символов:

PHP код:

сору(Мsg,n1,n2-n1). 


+-1)

[BoRoV]

Код:

  len := Pos('Вопрос', Msg);
  if len > 0 then
  begin
    start := PosEx('-(', Msg, len) + 2;
    len := PosEx('):', Msg, len) - start;
    a := copy(Msg, start, len);
  end;

[ALexandr555]

Код:

n1:=pos('- (',Msg);
  n2:=pos('):',Msg);
  a:=strTOint(copy(Msg,n1,n2-n1));
  Memo2.Lines.add(intTOstr(a));

вот сделал но в "a" почемуто ничего не забивается.

[ALexandr555]

Способ BoRoV'а тоже не работает

[Konrad]

Сообщение от ALexandr555

Способ BoRoV'а тоже не работает

Я ж написал +-1)
Тоесть посмотри, копи может захватывает лишние символы, или не дозахватывает

[ALexandr555]

в msg текст такого вида
[Вопрос № - (674):
[Вопрос № - (8468):

Код:

a:=strTOint(copy(Msg,n1,n2-n1+или-1));

сдесь имеете ввиду?

[BoRoV]

Мой прекрасно работает. Ты хотя бы описал бы лучше ситуацию. Мой работает при условии, что после вопроса идут эти скобки.

А ты правильно написал, вначале тебе нужно было искать "-(", а потом ты приводишь код где ищешь "- (".

Исправь в моем это:

Код:

start := PosEx('- (', Msg, len) + 3;

и всё будет работать.

[Konrad]

Сообщение от ALexandr555

в msg текст такого вида
[Вопрос № - (674):
[Вопрос № - (8468):

Код:

a:=strTOint(copy(Msg,n1,n2-n1+или-1));

сдесь имеете ввиду?

Выведи

PHP код:

Edit1.text:=copy(Msg,n1,n2-n1) 


И закинь сюда что получилось.

[ALexandr555]

от этого Вопрос № - (96):закинулось
- (96

[Konrad]

Сообщение от ALexandr555

от этого Вопрос № - (96):закинулось
- (96

В своем коде смени строку на

PHP код:

n1:=pos('- (',Msg)+3; 


Получилось?

[ALexandr555]

Благодарю, теперь ясно все, остался последний вопрос.
Как к примеру с текстового файла "zzz" в 5 строчке откопировать от ', ' до '); Думаю как откопировать разберусь, вот что не пойму то как задать копирование именно с 5 строчки или любой другой.