• 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(‘’,’1234567’);

  • 相关阅读:
    牛客(46)孩子们的游戏(圆圈中最后剩下的数)
    牛客(45)扑克牌顺子
    牛客(44)翻转单词顺序列
    牛客(43)左旋转字符串
    牛客(42)和为S的两个数字
    牛客(41)和为S的连续正数序列
    牛客(40)数组中只出现一次的数字
    牛客(39)平衡二叉树
    牛客(38)二叉树的深度
    牛客(37)数字在排序数组中出现的次数
  • 原文地址:https://www.cnblogs.com/qingsong/p/3513338.html
Copyright © 2020-2023  润新知