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\’);
delphi 字符串查找替换函数

相关推荐

评论
