
下載本文檔
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
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,于是就打開(kāi)了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、打開(kāi)delphi根名目下 importstperlregexpcre ,把 pcre3.dll 文件復(fù)制到 c:windowssystem32 文件夾下,這個(gè)文件夾里是windows系統(tǒng)存放 dll 文 件的大本營(yíng)。假如不復(fù)制pcre3.dll,在應(yīng)用 tperlregex 正則的時(shí)候,系統(tǒng)提醒出錯(cuò)。 5、用delphi打開(kāi) importstperlregex 名目下的 pcre.pas 文件,找到 /$define pcre_staticlink ,把之前的注釋 / 刪除;找 到 $define pcre_linkdll ,把它注釋掉,即改為 /$define pcre_linkdl
4、l 。注重:這點(diǎn)十分重要,假如不這樣改的話,在軟件開(kāi)發(fā)完成后,分 發(fā)到其他電腦上的時(shí)候,軟件就會(huì)提醒 缺少pcre3.dll錯(cuò)誤 。這樣修改的緣由,是把正則挺直封包到 exe 文件里,而不需要鏈接 pcre3.dll 了;封包進(jìn) exe,付 出的代價(jià)是軟件增大了 100kb 左右的大小,固然比起必需攜帶 pcre3.dll來(lái)說(shuō),這是故意義的付出。 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('沒(méi)找到'); freeandnil(reg);end; /替換普通字符串varreg: tperlregex;beginreg := tperlregex.create(nil);reg.subject := '我愛(ài)delph
6、i, 但delphi不愛(ài)我!'reg.regex := 'delphi'reg.replacement := ''reg.replaceall;showmessage(reg.subject); /返回: 我愛(ài)delphi, 但不愛(ài)我! freeandnil(reg);end; /分離顯示找到的每一個(gè)和總數(shù)var reg: tperlregex; num: integer; /用 num 來(lái)計(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)字符串的位置與長(zhǎng)度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); /它的長(zhǎng)度: 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 表示的不過(guò)是 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á)式返回的字符串的長(zhǎng)度; reg.subexpression_roffsetsn 是第 n 個(gè)表達(dá)式返回的字符串在源字符串中的位置 end; freeandnil(reg);end; /子表達(dá)式不能超過(guò) max_subexpression_rs = 99 個(gè), max_subexpression_rs 是tperlregex 的內(nèi)置常數(shù). /設(shè)定搜尋范圍: start、stopvarreg: tperlregex;beginreg := tperlregex.create(nil); reg.subject :
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 公司文化建立與傳承指南
- 農(nóng)業(yè)大數(shù)據(jù)驅(qū)動(dòng)的精準(zhǔn)農(nóng)業(yè)種植模式創(chuàng)新方案
- 建筑材料行業(yè)智能制造與綠色建筑發(fā)展方案
- 移動(dòng)支付安全與風(fēng)險(xiǎn)應(yīng)對(duì)策略文檔
- 健康食品追溯體系建立與優(yōu)化方案
- 貴州2025年貴州省科學(xué)技術(shù)廳所屬事業(yè)單位招聘7人筆試歷年參考題庫(kù)附帶答案詳解
- 甘肅2025年甘肅省強(qiáng)制醫(yī)療所招聘3人筆試歷年參考題庫(kù)附帶答案詳解
- 湖南2025年國(guó)家稅務(wù)總局湖南省稅務(wù)局系統(tǒng)事業(yè)單位招聘42人筆試歷年參考題庫(kù)附帶答案詳解
- 兩種膝關(guān)節(jié)鏡手術(shù)體位對(duì)發(fā)生下肢深靜脈血栓的影響
- 蒙太奇攝影工作室創(chuàng)業(yè)計(jì)劃
- 餐飲技術(shù)教學(xué)合同范例
- 高校招生輿情應(yīng)急處理預(yù)案
- 《中國(guó)最美的地方》課件
- 《中國(guó)糖尿病防治指南(2024版)》更新要點(diǎn)解讀
- 專題14 歐姆定律及其應(yīng)用(4大模塊知識(shí)清單+4個(gè)易混易錯(cuò)+5種方法技巧+典例真題解析)
- 《品質(zhì)文化》課件
- 2024年度餐飲企業(yè)節(jié)能改造工程合同
- 2024年10月自考15040習(xí)概試題及答案含評(píng)分參考
- TSGD7002-2023-壓力管道元件型式試驗(yàn)規(guī)則
- 新生兒科、兒科《新生兒窒息復(fù)蘇》理論考試試題
- DB11T 1833-2021 建筑工程施工安全操作規(guī)程
評(píng)論
0/150
提交評(píng)論