打造Delphi中字符串的replace函数

Moodsky

编者注：其实Delphi的StringReplace函数就是专为满足这个需要而设的。但我们也将这篇文章发表出来——至少作者提供了一种替代方案，探索精神应该鼓励！



   这是小弟在这里的第一篇文章，加之自己水平也不是很高，就来讨论一个基础但是很实用的问题吧，希望能给大家一些帮助。

   用过vb的或asp的朋友都知道，在vb里有一个很实用的replace函数，它的功能是把一个字符串中与子串（又叫模式串）相匹配的串替换为指定的串。举个例子来说有这样一个字符串：s:=’apple is apple!’ ，用replace函数replace(s,’apple’,’box’)后，s就变为’box is box!’。串的长度也相应改变了。这是一个很有用的函数，大家都知道在开发数据库系统时会经常用到结构化查询语句sql，而这个语句中对有些字符是比较敏感的，比如说单引号，如果在sql语句中出现单引号（因为单引号是在sql中规定的一个有意义的字符）程序就会出现意想不到的错误，甚至可以被他人利用使系统产生严重安全漏洞（这就是著名的sql注入式攻击，相信大家还记得以前csdn论坛曾发现的这个漏洞吧）。这时你就需要在数据库操作时候将单引号替换为其他的字符串或空串，在读出数据的时候再替换回来，这样数据记录中就可以记录单引号，而不发生错误了。

   然而，我在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<>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;



   其实这是一个基础的数据结构问题，在经常拖放控件编程的今天就全当练习数据结构吧。当然这个函数写的不是最优的，我测试了一下替换一万字的字符串，要半秒种的时间，时间复杂度还是比较高，如果各位有更优的办法，欢迎讨论！

as3852711

不会吧！好东西没人来顶一下！不怕LZ我来挺你！/:good /:good /:good