pos copy

[s1s1s1]

подскажите с помощью pos copy как сделать,
надо взять текст во всех строчках где есть слово back после b=и до &.

<div class=", b=123456789 &, back
<div class=", b=325698712 &, next
<div class=", b=98712563 &, back
<div class=", b=300054 &, next
<div class=", b=344889 &, next
<div class=", b=90002458 &, back

должно получится

123456789 
          98712563
          90002458

[Hacker19_90]

Ну допустим вы считываете последовательно строки
в переменную типа стринг
Тогда её можно обработать примерно так

if pos('back', str) <> 0 then
     Memo1.Lines.Add(copy(str, pos('=', str)+1, pos('&', str) - pos('=', str)));

[s1s1s1]

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

Ну допустим вы считываете последовательно строки
в переменную типа стринг
Тогда её можно обработать примерно так

if pos('back', str) <> 0 then
     Memo1.Lines.Add(copy(str, pos('=', str)+1, pos('&', str) - pos('=', str)));

а
во всех строчках где есть слово back?

[FaTaL]

Циклом for to do

[s1s1s1]

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

Циклом for to do

что я не правильно делаю

for i:=0 to memo1.lines.count-1 do begin
if pos('back', memo1.text) <> 0 then
Memo2.lines[i]:=copy(Memo1.Text, pos('=', Memo1.Text)+1, pos('&', Memo1.Text) - pos('=', Memo1.Text));

[Кольша]

for i:=0 to memo1.lines.count-1 do begin
if pos('back', memo1.text) <> 0 then
Memo2.lines[i]:=copy(Memo1.Text, pos('=', Memo1.Text)+1, pos('&', Memo1.Text) - pos('=', Memo1.Text));
delete(Memo1.Text, pos('=', Memo1.Text)+1, pos('&', Memo1.Text) - pos('=', Memo1.Text)

[_SERGEYX_]

Memo2.clear;
for i:=0 to memo1.lines.count-1 do
if pos('back', memo1.text) <> 0 then
Memo2.lines.Add(copy(Memo1.Text, pos('=', Memo1.Text)+1, pos('&', Memo1.Text) - pos('=', Memo1.Text)));

[s1s1s1]

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

Memo2.clear;
for i:=0 to memo1.lines.count-1 do
if pos('back', memo1.text) <> 0 then
Memo2.lines.Add(copy(Memo1.Text, pos('=', Memo1.Text)+1, pos('&', Memo1.Text) - pos('=', Memo1.Text)));

вопрос был вот вчем
во всех строчках где есть слово back после b=и до &.

цифры после b= 123456789(добавляется одна и таже строчка)

[Кольша]

мое пробовали?

[s1s1s1]

Сообщение от Кольша

мое пробовали?

тоже самое