在一串字符中取值后加以处理

Question

     <$MD5>vs<$MD5>vsvsv<$/MD5>vsv<$/MD5>
     语法是<$MD5>?</$MD5>
         取中间文号的值，但是上面的语句是中间还有一个<$MD5>vsvsv<$/MD5>需要转换的.     像这一种算法。我应该怎么实现呢？

Answer 1

晕死。说得我自己都乱套了.其实就是想在一串字符中里面找一个首尾相对的值。然后取出来.如下面的 ------------------------------------------- 
fgjdguyr<$MD5>vs<$MD5>vsvsv</$MD5>vsv</$MD5>uyiryir 
------------------------------------------- 我要从上面的一串字符中取出 
vs<$MD5>vsvsv</$MD5>vsv 
(首)<$MD5>中间值</$MD5>(尾) 
中间值就是上面的vs<$MD5>vsvsv</$MD5>vsv,可是我写的程序不能写现这一点..他每一次都只是将vsvsv</$MD5>值取出,而不将最后的一个<$/MD5> 
代码 Delete(memostr,1,Pos(Rextop,memostr)); 
liststr.Add(Copy(memostr,length(Rextop),Pos(Rexup,memostr)-length(Rexup)+1));

Answer 2

function GetSubValue(S: string): String;
const
  RexTop    = '<$MD5>';
  RexBottom = '</$MD5>';
var
  i, j  : Integer;
  iCount: Integer;
begin
  Result := '';
  i := Pos(RexTop, S);
  if i > 0 then
  begin
    inc (i, Length(RexTop));
    iCount := 1;
    for j := i to Length(S) - Length(RexBottom) do
    begin
      if Copy(S, j, Length(RexTop)) = RexTop then
        inc(iCount)
      else begin
        if Copy(S, j, Length(RexBottom)) = RexBottom then
        begin
          dec(iCount);
          if iCount = 0 then
          begin
            Result := Copy(S, i, j - i);
            break;
          end;
        end;
      end;
    end;
  end;
end;......
ShowMessage (GetSubValue('fgjdguyr <$MD5>vs <$MD5>vsvsv </$MD5>vsv </$MD5>uyiryir'));
......

Answer 3

var
  str,sstr,estr:string;
  s,e:integer;
begin
  str := 'fgjdguyr <$MD5>vs <$MD5>vsvsv </$MD5>vsv </$MD5>uyiryir';
  estr := '</$MD5>';
  sstr := '<$MD5>';
  e := LastDelimiter(estr,str)-+Length(estr);
  s := Pos(sstr,str)+Length(sstr);
  str := Copy(str,s,e-s);
  ShowMessage(str);
end;

Answer 4

修正一下var
  str,sstr,estr:string;
  s,e:integer;
begin
  str := 'fgjdguyr <$MD5>vs <$MD5>vsvsv </$MD5>vsv </$MD5>uyiryir';
  estr := '</$MD5>';
  sstr := '<$MD5>';
  e := LastDelimiter(estr,str)-Length(estr);
  s := Pos(sstr,str)+Length(sstr);
  str := Copy(str,s,e-s);
  ShowMessage(str);
end;

Answer 5

用TStringlist 的分割标记 

Answer 6

谢谢回答。但是没有达到我的要求。我想让我写的程序像DELPHI开发工具一样，能够组合的转换里面的值.
就像这样 
   inttostr(strtoint('1'));
  程序会找最中间的值