работа со строками delphi

[fize]

очень извеняюсь но найти не могу. допустим в переменную s (string) поступает информация вида-

команда

результат

ок\ерор

и выводиться в мемо
memo1.lines.add(s);
как обрезать строки команды и ок\ерор оставив только результат?

[raxp]

все с AT командами маетесь... copy, pos вам в помощь... вот как резал в своем GSM модуле... 2 способа:

function sels(s: string; nom: integer): string; //ñòðîêè
 var i,k1,k2,z:integer;
 begin
  result:= ''; z:= 0; k1:= 0; k2:= 0;
  for i:= 1 to length(s) do
   if s[i]=#10 then begin
    
    inc(z);
    if nom  = z then begin k1:= i end;
    if nom+1= z then begin k2:= i end;
   end;

  result:= copy(s, k1+1, k2-k1-2) //2-ñòðîêà
 end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var t: tstringlist;
begin
 caption:= sels(memo1.Lines.Text, 2); // тут задаем номер строки вообще // 1- способ

 t:= tstringlist.create; // 2- способ
 t.Delimiter:= #10;
 t.DelimitedText:= memo1.Lines.Text;
 memo2.Lines.Text:= trim(t[1]); // тут задаем номер значащей строки
 t.Free
end;

смысл ясен?

[fize]

raxp немного непонятно

[raxp]

вам от модема приходит ответ string содержащий несколько строк, каждая строка содержит разделитель #13#10 (ENTER), следовательно для выделения конкретной визуальной строки нужно парсить, например до знака #10...

[fize]

вот так уже понятнее. а вот если ответ приходит так-

команда

результат1
результат2

ок\ерор

как тут быть?

[raxp]

парсер уже готов, задавай последовательно 2 и 3 или в самом парсере (1) измени nom+2... для парсера (2) изменений никаких.

[fize]

raxp непойму. идут ответы-

команда1

ответ1

ок

команда2

тут ответ
на 3
строки

ок

надо ответ ''тут ответ
на 3
строки'' в одну строку чтоли переносить чтобы далее обрабатывать проще было?

[raxp]

не понял, вы что парсите из memo, то бишь как-бы из архива? парсить нужно то, что идет с com-порта... приведите то, что идет от каждого запроса в отдельности, чтоб не путаться.

[fize]

не понял, вы что парсите из memo, то бишь как-бы из архива?

это только для наглядности. естественно как все будет работать стабильно буду парсить из переменной, а уже готовый ответ посылать в мемо.

парсить нужно то, что идет с com-порта... приведите то, что идет от каждого запроса в отдельности, чтоб не путаться.

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
 s:string;
 a:array[1..255] of Byte;
 i:integer;
begin
 BComPort1.Read(a, count);
for i:=1 to Count do s:=s+Chr(a[i]);
 memo1.lines.add(s)
end;

посылаем команду1 - получаем ответ1
посылаем команду2 - получаем ответ2 на несколько строк мемо. так?

[raxp]

код-то я помню, вы тут приведите то, что реально приходит в ответ на 1 команду и на 2-команду отдельно, т.е именно так как в реальных условиях... а вообще-да, сдвигать нужно на к-во строк от предыдущей команды в memo, но имхо это запутывает.