zoukankan      html  css  js  c++  java
  • 取代有规律的字符

    function SplitStr(pSource: string; OldStr: string; SpliChar: Char): string;
    var
      s: string;
      strList: TStrings;
      i: Integer;
      iPos: Integer;
      sPos: string;
    begin
      Result := '';
      strList := TStringList.Create;
    
      s := StringReplace(pSource, OldStr, SpliChar, [rfReplaceAll, rfIgnoreCase]);
      ExtractStrings([SpliChar], [], PChar(s), strList);
      for i := 0 to strList.Count - 1 do
      begin
        sPos := strList.Strings[i];
        if sPos[1] = '''' then {如果第一个字符为 ' }
        begin
          Delete(sPos, 1, 1); { 删除第一个 ' }
          iPos := Pos('''', sPos);
          if iPos <> 0 then { 查找第二个 ' }
          begin
            sPos := '''%' + StringReplace(sPos, '''', '%''', []);
            sPos := OldStr + sPos; {还原 'like ' 这个字符}
          end;
        end;
        Result := Result + sPos;
      end;
    
    
      strList.Free;{出来混总是要还的}
    end;
    
    {调用例子}
    begin
      Edit2.Text := SplitStr(Edit1.Text, 'like ', '#');
    end;
    
  • 相关阅读:
    BZOJ 4525 二分
    BZOJ 4565 状压DP
    BZOJ 3930 容斥原理
    BZOJ 4562 搜索...
    BZOJ 4563 错排+高精度
    BZOJ 1833 数位DP
    BZOJ 4517 组合数+错排
    python 入门学习(二)
    python 入门学习
    Python 爬虫
  • 原文地址:https://www.cnblogs.com/sail2000/p/1773416.html
Copyright © 2011-2022 走看看