[xCoder]

Добрый вечер! Столкнулся с проблемой которую никак не могу решить, всё облазил и ничего подходящего не нашел. Имею строку текста, например: slkj'sljklskdgjskdjlkdjgsserdb=d;kl;sdlkhlsdhkkd"sd;lskdgjsdlkjslkdj;lksd Как мне найти и записать в другую строчную переменную значение db=d;kl;sdlkhlsdhkkd", точнее текст который идет между db= и "? Никак не могу понять... Буду очень благодарен, три дня вожусь уже.

[Yurk@]

находишь чотетаное db= и начинаешь писать всё остальное в эту переменную ... пока не найдешь "

[xCoder]

Сообщение от Yurk@

находишь чотетаное db= и начинаешь писать всё остальное в эту переменную ... пока не найдешь "

А с помощью чего это можно реализовать? Я просто пока только учусь.

[cotseec]

можно попробовать вот так:

Код:

1 2	copy(string,pos('db=',string),length(string)-pos('db=',string)+length('db=')); delete(string,pos(' " ',string),length(string)-pos('"',string)+1);

string - строка текста, с которой проводятся операции

смысл этой ахинеи:
копируем из string, начиная с позиции первого элемента (а именно 'db=') число элементов строки, равное длине строки минус позиция вхождения искомого элемента.

из оставшегося куска строки удаляем элементы, начиная с позиции первого вхождения искомого элемента (' " ') равное длина строки минус позиция элемента.

результат будет в исходной строке string, писал по памяти, но вроде так работает
по операциям над строковым типом данных можно посмотреть вот тут

[Yurk@]

строка пишется сразу после нахождения знака = и до знака "

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var i,j:=integer; stg,db:string; ....... db:=''; for i:=0 to Length(stg)-1 do begin if stg[i]="=" then begin for j:=i to Length(stg)-i-1 do db:=db+stg[i]; end end;

я не проверял ... но принцып тот же ...

[FreeUser]

Здается мне ты парсер пишешь)))))

[xCoder]

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

Здается мне ты парсер пишешь)))))

Нет, не парсер.)) Всем спасибо!!! Получилось!

[xCoder]

Заработать, заработало но только на половину.
Вот код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
copy(a,pos('db=',a),length(a)-pos('db=',a)+length('db='));
delete(a,pos('"',a),length(a)-pos('"',a)+1);
end;

a:string;
Из строки: slkjsljklskdgjskdjlkdjgsserdb=d;kl;sdlkhlsdhkkd"sd ;lskdgjsdlkjslkdj;lksd удаляется все после " а перед db= всё остается т.е. получается строка вида: slkjsljklskdgjskdjlkdjgsserdb=d;kl;sdlkhlsdhkkd

[cotseec]

нда, с copy что-то не то, вот еще один вариант:

Код:

1 2	delete(а,pos('"',а),length(а)-pos('"',а)+1); delete(а,1,pos('db=',а)-1);

разобрался, чтобы заработал с copy надо сделать вот так:

Код:

1 2	a:=copy(a,pos('db=',a),length(a)-pos('db=',a)+length('db=')); delete(a,pos('"',a),length(a)-pos('"',a)+1);

и окончательно, все в одну строку

Код:

1	a:=copy(a,pos('db=',a),length(a)-pos('"',a)-5);

[xCoder]

Всё, теперь отлично работает! Спасибо!

[xCoder]

А если нужно несколько значений из строки вынуть, этот способ же не прокатит уже? Например: kahrtnviutnb=aie"bltnba=tbart"babntabn=rjjb"ddg, и желательно записать в разные переменные, т.е. A исходная строка, в B записать nb=aie", в C ba=tbart", в D bn=rjjb".

[Drozh]

А если несколько то можно сделать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

<b>var</b>  Pos1, Pos2: Integer;  A: <b>String</b>; // твоя строка  Res: TStrings; // результаты <b>begin</b>  Res := TStringList.Create; // инициализаруем    A := 'kahrtnviutnb=aie"bltnba=tbart"babntabn=rjjb"ddg';   // находим позиции  Pos1 := Pos('=', A);  Pos2 := Pos('"', A);   // пока чтото не нашли выполняем...  <b>while</b> (Pos1 <> 0) <b>or</b> (Pos2 <> 0) <b>do</b>  <b>begin</b>   Res.Add(Copy(A, Pos1-2, Pos2-Pos1+3)); // отрезаем нужный нам кусок и загоняем в результат)))   Delete(A, 1, Pos2); // удалям то что объискали   Pos1 := Pos('=', A); // пренаходим позиции   Pos2 := Pos('"', A);  <b>end</b>;    Memo1.Lines := Res; // выводи результат    Res.Free; // особождаем память <b>end</b>;