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 spcomm 调试串口解决总是在程序断开的时候才发送指令的问题

Delphi中 tstringlist和thashedstringlist的性能对比

Delphi 得到不同平台的录音文件保存路径

Delphi高效的byte转化sring 函数

monthoftheyear:取得一个tdatetime变量的月份在年度中的索引

Delphi tparallel.for 老外得示例代码

Delphi 排列桌面图标

Delphi把流中的字符串转换为utf格式

Delphi bmp jpg 转换保存

Delphi android-api 开发常用函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...