打造Delphi中字符串的replace函數(shù)
編者注：其實(shí)Delphi的StringReplace函數(shù)就是專為滿足這個(gè)需要而設(shè)的。但我們也將這篇文章發(fā)表出來(lái)——至少作者提供了一種替代方案，探索精神應(yīng)該鼓勵(lì)！
這是小弟在這里的第一篇文章，加之自己水平也不是很高，就來(lái)討論一個(gè)基礎(chǔ)但是很實(shí)用的問(wèn)題吧，希望能給大家一些幫助。
用過(guò)vb的或asp的朋友都知道，在vb里有一個(gè)很實(shí)用的replace函數(shù)，它的功能是把一個(gè)字符串中與子串（又叫模式串）相匹配的串替換為指定的串。舉個(gè)例子來(lái)說(shuō)有這樣一個(gè)字符串：s:=’apple is apple!’ ，用replace函數(shù)replace(s,’apple’,’box’)后，s就變?yōu)椤痓ox is box!’。串的長(zhǎng)度也相應(yīng)改變了。這是一個(gè)很有用的函數(shù)，大家都知道在開發(fā)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)會(huì)經(jīng)常用到結(jié)構(gòu)化查詢語(yǔ)句sql，而這個(gè)語(yǔ)句中對(duì)有些字符是比較敏感的，比如說(shuō)單引號(hào)，如果在sql語(yǔ)句中出現(xiàn)單引號(hào)（因?yàn)閱我?hào)是在sql中規(guī)定的一個(gè)有意義的字符）程序就會(huì)出現(xiàn)意想不到的錯(cuò)誤，甚至可以被他人利用使系統(tǒng)產(chǎn)生嚴(yán)重安全漏洞（這就是著名的sql注入式攻擊，相信大家還記得以前csdn論壇曾發(fā)現(xiàn)的這個(gè)漏洞吧）。這時(shí)你就需要在數(shù)據(jù)庫(kù)操作時(shí)候?qū)我?hào)替換為其他的字符串或空串，在讀出數(shù)據(jù)的時(shí)候再替換回來(lái)，這樣數(shù)據(jù)記錄中就可以記錄單引號(hào)，而不發(fā)生錯(cuò)誤了。 然而，我在delphi中卻沒(méi)有發(fā)現(xiàn)類似的函數(shù)（或許是我沒(méi)找到？），實(shí)在是很不方便，于是自己寫了一個(gè)，在以后的數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)中就方便多了。說(shuō)了那么多廢話，下面是代碼，加上注釋應(yīng)該比較容易理解。
PRocedure replace(var s:string;const SourceChar:pchar;const RChar:pchar); //第一個(gè)參數(shù)是原串，第二個(gè)是模式串，第三個(gè)是替換串
var
ta,i,j:integer;
m,n,pn,sn:integer;
SLen,SCLen,RCLen:integer;//SLen表示原串的長(zhǎng)度，SCLen表示模式傳的長(zhǎng)度，RCLen表示替換串的長(zhǎng)度
IsSame:integer;
newp:array of char;//用來(lái)保存替換后的字符數(shù)組
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 //這個(gè)循環(huán)用ta統(tǒng)計(jì)模式串在原串中出現(xiàn)的次數(shù)
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的長(zhǎng)度，+1表示后面還有一個(gè)#0結(jié)束符
while s[sn]<>chr(0) do //主要循環(huán)，開始替換
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;
其實(shí)這是一個(gè)基礎(chǔ)的數(shù)據(jù)結(jié)構(gòu)問(wèn)題，在經(jīng)常拖放控件編程的今天就全當(dāng)練習(xí)數(shù)據(jù)結(jié)構(gòu)吧。當(dāng)然這個(gè)函數(shù)寫的不是最優(yōu)的，我測(cè)試了一下替換一萬(wàn)字的字符串，要半秒種的時(shí)間，時(shí)間復(fù)雜度還是比較高，如果各位有更優(yōu)的辦法，歡迎討論！
