delphi 字符串查找替换函数 转

1. 提取字符串中指定子字符串前的字符串

　　Function Before( Src:string ; S:string ): string ;

　　Var

　　 F: Word ;

　　begin

　　 F:= POS(Src,S) ;

　　 if F=0 then

　　 Before := S

　　 else

　　 Before := COPY(S,1,F-1) ;

　　end ;

　　eg: Before('123','helloworld_123') 返回结果：helloworld_

　　2. 提取字符串中指定子字符串后的字符串

　　function After(Src: string; S: string):string;

　　var

　　 F: Word;

　　begin

　　 F:= Pos(Src, S);

　　 if F = 0 then

　　 After:= ''

　　 else

　　 After:= Copy(S, F+Length(Src), Length(S));

　　end;

　　3. Delphi 替换函数

　　procedure Replace(var s:string;const SourceChar:pchar;const RChar:pchar);

　　//第一个参数是原串，第二个是模式串，第三个是替换串

　　var

　　 ta,i,j:integer;

　　 m,n,pn,sn:integer;

　　 SLen,SCLen,RCLen:integer;//SLen表示原串的长度，SCLen表示模式传的长度，RCLen表示替换串的长度

　　 IsSame:integer;

　　 newp:array of char;//用来保存替换后的字符数组

　　begin

　　 SLen:=strlen(pchar(s));SCLen:=strlen(SourceChar);RCLen:=strlen(RChar);

　　 j:=pos(string(SourceChar),s);

　　 s:=s+chr(0);ta:=0;i:=j;

　　 while s[i]<>chr(0) do //这个循环用ta统计模式串在原串中出现的次数

　　 begin

　　 n:=0;IsSame:=1;

　　 for m:=i to i+SCLen-1 do

　　 begin

　　 if m>SLen then begin

　　 IsSame:=0;break;

　　 end;

　　 if s[m]<>sourceChar[n] then begin

　　 IsSame:=0;break;

　　 end;

　　 n:=n+1;

　　 end;

　　 if IsSame=1 then begin

　　 ta:=ta+1;i:=m;

　　 end

　　 else

　　 i:=i+1;

　　 end;

　　 if j>0 then

　　 begin

　　 pn:=0;sn:=1;

　　 setlength(newp,SLen-ta*SCLen+ta*RCLen+1);//分配newp的长度，+1表示后面还有一个#0结束符

　　 while s[sn]<>chr(0) do //主要循环，开始替换

　　 begin

　　 n:=0;IsSame:=1;

　　 for m:=sn to sn+SCLen-1 do //比较子串是否和模式串相同

　　 begin

　　 if m>SLen then begin IsSame:=0;break; end;

　　 if s[m]<>sourceChar[n] then begin IsSame:=0;break; end;

　　 n:=n+1;

　　 end;

　　 if IsSame=1 then//相同

　　 begin

　　 for m:=0 to RCLen-1 do

　　 begin

　　 newp[pn]:=RChar[m];pn:=pn+1;

　　 end;

　　 sn:=sn+SCLen;

　　 end

　　 else

　　 begin //不同

　　 newp[pn]:=s[sn];

　　 pn:=pn+1;sn:=sn+1;

　　 end;

　　 end;

　　 newp[pn]:=#0;

　　 s:=string(newp); //重置s，替换完成！

　　 end;

　　end;

　　4. Delphi StringReplace() 替换字符串的用法

　　str:= '{"UserName":"helloworld","UserPass":"helloworld_123","UserEmail":"lovecode@163.com"}';

　　str:= StringReplace(str,'"','\"',[rfReplaceAll]);

　　StringReplace(源字符串,'被替换字符','替换后字符',[rfReplaceAll]);

　　5. 查找字符串中指定字符及字符串最后一次出现的位置

　　function RightPosEx(const Substr,S: string): Integer;

　　var

　　 iPos: Integer;

　　 TmpStr: string;

　　 i,j,len: Integer;

　　 PCharS,PCharSub: PChar;

　　begin

　　 PCharS:=PChar(s); //将字符串转化为PChar格式　

　　 PCharSub:=PChar(Substr);

　　 Result:=0;

　　 len:=length(Substr);

　　 for i:=0 to length(S)-1 do begin

　　 for j:=0 to len-1 do begin

　　 if PCharS[i+j]<>PCharSub[j] then break;

　　 end;

　　 if j=len then Result:=i+1;

　　 end;

　　end;

　　调用方式：RightPosEx(‘\’,’123456\7\’);