一个简单问题,怎样得到两个指定字符之间的字符!!

Question

怎样得到两个指定字符之间的字符呀?
如:有一字符串"asdf/afsdfasfdasf/sadfa"
怎样才能得到'/'之间的字符呀????
请写出代码谢谢
有答案了立即给分!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;str1:string;
begin
  str1:='asdf/afsdfasfdasf/sadfa';
  i:=pos('/',str1);
  str1:=copy(str1,i+1,length(str1)-i);
  i:=pos('/',str1);
  str1:=copy(str1,1,i-1);
end;

Answer 2

s:='asdf/afsdfasfdasf/sadfa';
memo1.Text:=stringreplace(s,'/',#13#10,[rfReplaceAll]);
showmessage(memo1.Lines[1]);

Answer 3

是这样的这个字符串有可能要传弟几个参数!
如:有一定符串为"<ID>10001</ID><USER>CSSA</USER><PASS>123456</PASS>";
我要怎样才能准确分别地读出这个字符串中<ID></ID>,<USER></USER>,<PASS></PASS>部分中的字符呀??请高手帮帮忙,在线等待!

Answer 4

var  
  i:integer;
  s:string;
begin
  s:='<ID>10001</ID><USER>CSSA</USER><PASS>123456</PASS>';
  memo1.Text:=stringreplace(s,'>',#13#10,[rfReplaceAll]);
  memo1.Text:=stringreplace(memo1.Text,'<',#13#10,[rfReplaceAll]);
  for i:=0 to memo1.Lines.Count-1 do
    if not odd(i) and (memo1.Lines[i]<>'')then
      showmessage(memo1.Lines[i]);

Answer 5

看来是XML，建议你把字符串用TXMLDocument包装，然后读取TXMLDocument属性，如果不要求速度，这种方法的好处是可扩展性好