TPerlRegExdelphi 下的正則表達(dá)式

1、tperlregex， delphi 下的正則表達(dá)式目前主流的delphi下的正則表達(dá)式，應(yīng)當(dāng)是 perlregex 。 官方網(wǎng)站: /delphi.html 挺直下載: /download/tperlregex. 安裝辦法（我用法的delphi版本是 delphi2007）: 1、先把的 tperlregex 文件夾放在 delphi 的根名目下的 imports 名目中。 2、目前最新 for win32 的版本是可以在 delphi7，delphi 2006，del

2、phi 2007，delphi 2009 下用法。 我用的是2007，于是就打開了perlregexd2007.dpk ，在 project manager 窗口中的 perlregexd2007.bpl 上點(diǎn)擊右鍵，執(zhí)行 install。這時(shí) 在 tool palette 的列表中已經(jīng)有了 tperlregex，在 jgsoft 組。 3、too - options - environment options - delphi options - library-win32 - library path - 添加路徑：$(bds)importstperlregex （注：就是剛才放置的路徑）

3、。 4、打開delphi根名目下 importstperlregexpcre ，把 pcre3.dll 文件復(fù)制到 c:windowssystem32 文件夾下，這個(gè)文件夾里是windows系統(tǒng)存放 dll 文 件的大本營。假如不復(fù)制pcre3.dll，在應(yīng)用 tperlregex 正則的時(shí)候，系統(tǒng)提醒出錯(cuò)。 5、用delphi打開 importstperlregex 名目下的 pcre.pas 文件，找到 /$define pcre_staticlink ，把之前的注釋 / 刪除；找 到 $define pcre_linkdll ，把它注釋掉，即改為 /$define pcre_linkdl

4、l 。注重：這點(diǎn)十分重要，假如不這樣改的話，在軟件開發(fā)完成后，分 發(fā)到其他電腦上的時(shí)候，軟件就會(huì)提醒 缺少pcre3.dll錯(cuò)誤 。這樣修改的緣由，是把正則挺直封包到 exe 文件里，而不需要鏈接 pcre3.dll 了；封包進(jìn) exe，付 出的代價(jià)是軟件增大了 100kb 左右的大小，固然比起必需攜帶 pcre3.dll來說，這是故意義的付出。 6、可以用法了! 挺直 uses perlregex 或從 tool palette 添加都可以。 tperlregex 安裝設(shè)置完成后，就可以舒心地用法了，一些容易的用法辦法如下： /查找是否存在var reg: tperlregex;begin

5、reg := tperlregex.create(nil); reg.subject := 'codegear delphi 2007 for win32' reg.regex := 'd' if reg.match then showmessage('找到了') else showmessage('沒找到'); freeandnil(reg);end; /替換普通字符串varreg: tperlregex;beginreg := tperlregex.create(nil);reg.subject := '我愛delph

6、i, 但delphi不愛我!'reg.regex := 'delphi'reg.replacement := ''reg.replaceall;showmessage(reg.subject); /返回: 我愛delphi, 但不愛我! freeandnil(reg);end; /分離顯示找到的每一個(gè)和總數(shù)var reg: tperlregex; num: integer; /用 num 來計(jì)數(shù)begin reg := tperlregex.create(nil); reg.subject := 'codegear delphi 2007 for

7、 win32' reg.regex := 'd' num := 0; while reg.matchagain do /matchagain 是下一個(gè) begin showmessage(reg.matchexpression); /將分離顯示: 2 0 0 7 3 2 i(num); end; showmessage(inttos(num); /6 freeandnil(reg);end; /目標(biāo)字符串的位置與長度var reg: tperlregex;begin reg := tperlregex.create(nil); reg.subject := 'c

8、odegear delphi 2007 for win32' reg.regex := 'delphi' while reg.matchagain do /很顯然: 本例只能找到一個(gè)結(jié)果 begin showmessage(reg.matchedexpression); /找到的字符串: delphi showmessage(inttostr(reg.matchedexpressionoff); /它所在的位置: 10 showmessage(inttostr(reg.matchedexpressionlength); /它的長度: 6 end; freeandnil(

9、reg);end; / matchedexpression_r 與subexpression_rs0varreg: tperlregex;beginreg := tperlregex.create(nil); reg.subject := 'codegear delphi 2007'reg.regex := 'delphi' while reg.matchagain dobegin showmessage(reg.matchedexpression_r); /delphi; 這是匹配到的內(nèi)容 showmessage(reg.subexpression_rs0);

10、 /delphi; 也可以這樣顯示匹配到的內(nèi)容end;subexpression_rs 是一個(gè)數(shù)組:subexpression_rs1 儲(chǔ)存第 1 個(gè)表達(dá)式匹配的內(nèi)容;subexpression_rs2 儲(chǔ)存第 2 個(gè)表達(dá)式匹配的內(nèi)容;subexpression_rsn 儲(chǔ)存第 n 個(gè)表達(dá)式匹配的內(nèi)容; subexpression_rs0 儲(chǔ)存囫圇表達(dá)式匹配的內(nèi)容; matchedexpression_r 表示的不過是 subexpression_rs0. freeandnil(reg);end; /提取子表達(dá)式匹配到的內(nèi)容varreg: tperlregex;beginreg := tper

11、lregex.create(nil); reg.subject := 'abc a1111 bb222 ccc33 dddd4'reg.regex :='b(a-d+)(1-4+)b' /這個(gè)表達(dá)式有兩個(gè)子表達(dá)式構(gòu)成 while reg.matchagain dobegin showmessage(reg.subexpression_rs0); /將分離顯示: a1111 bb222 ccc33dddd4 showmessage(reg.subexpression_rs1); /將分離顯示: a bb ccc dddd showmessage(reg.subex

12、pression_rs2); /將分離顯示: 1111 222 33 4 另外: reg.subexpression_rcount 是子表達(dá)式的個(gè)數(shù); reg.subexpression_rlengthsn 是第 n 個(gè)表達(dá)式返回的字符串的長度; reg.subexpression_roffsetsn 是第 n 個(gè)表達(dá)式返回的字符串在源字符串中的位置 end; freeandnil(reg);end; /子表達(dá)式不能超過 max_subexpression_rs = 99 個(gè), max_subexpression_rs 是tperlregex 的內(nèi)置常數(shù). /設(shè)定搜尋范圍: start、stopvarreg: tperlregex;beginreg := tperlregex.create(nil); reg.subject :