案例

給定一個字符串，為多個單字符串連接而成，單個字符串格式為 $bm(num,price)$ 。

以以下詳細字符串演示：

‘20151202142400000002(2,0)20151202142200000001(1,4)’

要求：

取出20151202142200000001(1,4)括號內的1和4.

直接上幹貨

var
    i,j,k,m:integer;
  str:=‘20151202142400000002(2,0)20151202142200000001(1,4)‘;
  mstr:=‘20151202142200000001‘;
  for i:=Pos(mstr,str)+length(mstr) to length(str) do
 

  begin
    j:=0;
    k:=0;
    m:=0;
    if str[i]=‘(‘ then
    begin
        j=i;
    end
    else if str[i]=‘,‘ then
    begin
        k=i;
    end
    else if str[i]=‘)‘ then
    begin
        m=i;
    end;
    if (right_bracket>comma) and (comma>left_bracket) then
       break;

  end;
  pro_num:=midstr(str,j+1
 
,k-j-1);
  pro_price:=midstr(str,k+1,m-k-1);

以上為個人總結。如有不妥之處，請在評論中指出。