字符串截取替换问题！在线等，立马结分！

Question

有一字符串:"aaaa, bbbbbb, cccccc, pp 299-309"$$$"a Pan, b"$"2002"
我想将第一个$之前的aaaa提出放到第一个$和第二个$之间，将299-309提出放到第二个$和第三个$之间,应如何实现！
谢谢！

Answer 1

用pos 和copy函数可以实现，用法你可以查delphi的帮助文档

Answer 2

var 
  S,StrBase,StrA,strB:string;
  sp:integer;
beginStrBase:='aaaa, bbbbbb, cccccc, pp 299-309"$$$"a Pan, b"$"2002';S:=copy(StrBase,1,pos('$',StrBase)-1);strA:='aaaa';
Delete(S,pos(strA,S),length(strA));strB:='299-309';
Delete(S,pos(strB,S),length(strB));Delete(strBase,1,pos('$',StrBase));
sp:=pos('$',strBase);
S:=S+'$'+StrA+copy(strBase,1,sp)+strB+copy(strBase,sp+1,length(strBase)-sp); // result
end