<?xml version="1.0" encoding="GBK"?>
<rss xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>酷霸</title>
    <link>http://blog.china.com:80/u/070929/80493/</link>
    <description>Programme World</description>
    <managingEditor>discovered</managingEditor>
    <dc:creator>discovered</dc:creator>
    <item>
      <title>男子婚礼上强奸伴娘 声称按风俗可“乱玩”</title>
      <link>http://blog.china.com:80/u/070929/80493/200808/3513108.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;P&gt;&lt;STRONG&gt;&lt;SPAN&gt;大河网8月6日报道&lt;/SPAN&gt;&lt;/STRONG&gt;&lt;SPAN&gt;为他人结婚帮忙，婚礼上以和&lt;A class=kw onmouseover=showTips(event,this,1) onmouseout=hideTips(event,this); href="http://news.ifeng.com/society/1/200808/0806_343_698059.shtml#"&gt;伴娘&lt;/A&gt;乱着玩为由，和他人结伙将伴娘拉入套间，将伴娘衣服强行脱光&lt;A class=kw onmouseover=showTips(event,this,1) onmouseout=hideTips(event,this); href="http://news.ifeng.com/society/1/200808/0806_343_698059.shtml#"&gt;乱摸&lt;/A&gt;，随后趁伴娘无力反抗将伴娘强奸。近日，新郑市法院依法审结了这起&lt;A class=kw onmouseover=showTips(event,this,1) onmouseout=hideTips(event,this); href="http://news.ifeng.com/society/1/200808/0806_343_698059.shtml#"&gt;强奸案&lt;/A&gt;，依法判处被告人张某有期徒刑五年。 &lt;/SPAN&gt;&lt;/P&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;2008年5月15日上午11时许，在新郑市某镇某村，张某被本村张某某结婚邀请帮忙，在张某某与其对象举行婚礼期间，张某伙同他人（均已判处刑罚），以被害人李某是伴娘可以乱着玩为由（当地风俗可以和伴娘乱着玩），和他人结伙将伴娘拉入套间，并将房门反锁。将伴娘衣服强行脱光乱摸，当场有人以乱的过分劝阻，张某斥责劝说人，劝说人离开。张某要强行将伴娘裤头脱掉，让伴娘跳舞，伴娘不从。张某将屋内三人支出，用同伙（已判刑）提供的避孕套，趁伴娘无力反抗将伴娘强奸。&lt;/SPAN&gt;&lt;/P&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;法院经审理认为，被告人张某采用暴力手段，强行与妇女发生性关系，其行为已构成强奸罪，根据被告人张某的犯罪事实和情节，法院遂依法作出了上述判决。 &lt;/SPAN&gt;&lt;/P&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期四, 07 八月 2008 09:01:52 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200808/3513108.html</guid>
      <dc:date>2008-08-07T09:01:52Z</dc:date>
    </item>
    <item>
      <title>公司组织拼酒喝死应届大学毕业生另有14人喝倒</title>
      <link>http://blog.china.com:80/u/070929/80493/200808/3513077.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;昨天上午，亦庄同仁医院输液室内，刚刚做完透析手术的袁满(音)依然躺在床上，无法正常行走。她是今年扬翔饲料集团有限公司(以下简称扬翔集团)新招聘的200多名大学生之一。8月4日晚，公司在通州区驰普城内聚会，15名刚毕业的大学生在拼酒中喝倒，其中1人身亡。&lt;/SPAN&gt;&lt;/P&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;扬翔集团是一家以生猪养殖、猪饲料和软件开发为主业的综合性企业，此前总部刚从广西搬来北京。据公司内部人员介绍，该公司四五月份从全国招聘了200余名&lt;A class=kw onmouseover=showTips(event,this,1) onmouseout=hideTips(event,this); href="http://news.ifeng.com/society/2/200808/0807_344_701109.shtml#"&gt;应届毕业生&lt;/A&gt;，前段时间一直在进行培训。8月4日晚，公司组织这些大学生在驰普城一个活动场馆内聚会。“本来玩得好好的，但不知道怎么就转到拼酒上去了。”该员工称，公司领导让这些大学生拼酒，一名男性大学生一口气连喝了10杯2两装的白酒，当场倒地，另有10多名应届毕业生也陆续在酒后出现呕吐、昏迷等症状。公司随即将15名醉酒者送往亦庄同仁医院。 &lt;/SPAN&gt;&lt;/P&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;亦庄同仁医院证实，除一名当场猝死的男子，扬翔集团一共送来14人输液救治。前天，其中13人输液完毕后无大碍，随后离开医院，目前只有女员工袁满仍需住院治疗。昨天上午，负责陪护袁满的扬翔集团员工承认，确曾发生集体醉酒事件，目前其他醉酒者无大碍，已回公司休息。 &lt;/SPAN&gt;&lt;/P&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;据扬翔集团一名不愿透露姓名的员工称，目前，死者家属已经赶到北京，正在和公司进行协商。“我们集团总是强调竞争，强调PK，要不是这样，这孩子也不会死。”该员工认为，是公司的企业文化有问题导致了悲剧的发生。 &lt;/SPAN&gt;&lt;/P&gt;&#xD;
&lt;P&gt;&lt;SPAN&gt;扬翔集团一名张姓负责人确认，8月4日晚内部聚会时，确曾发生员工&lt;A class=kw onmouseover=showTips(event,this,1) onmouseout=hideTips(event,this); href="http://news.ifeng.com/society/2/200808/0807_344_701109.shtml#"&gt;酒后猝死&lt;/A&gt;的事件。集团正在着手处理此事，并已通知相关政府部门，其他情况不便透露。(记者彭科峰 实习生刘长) &lt;/SPAN&gt;&lt;/P&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期四, 07 八月 2008 08:55:03 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200808/3513077.html</guid>
      <dc:date>2008-08-07T08:55:03Z</dc:date>
    </item>
    <item>
      <title>2008年网络赚钱博客赚钱项目汇总强烈推荐!</title>
      <link>http://blog.china.com:80/u/070929/80493/200805/2566735.html</link>
      <description>&lt;![CDATA[ &lt;DIV id=BlogArticleDetail style="FONT-SIZE: 14px"&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;&lt;FONT color=#0000ff&gt;转眼之间,2007年即将逝去,2008年也即将来临!在2007年里,我通过自己的博客小赚了一笔,现在总结一下,特拿来分享,希望大家再2008年里也能赚到自己的网络第一桶金!&lt;/FONT&gt;&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;第一部分 地区性网络调查赚钱&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;特别推荐：&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;1 中文调查网&amp;nbsp;&amp;nbsp; &lt;A href="http://www.surveys.com.cn/register.asp?referral=discovered" target=_blank&gt;官方注册&lt;/A&gt;&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;2 第一调查网&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;A href="http://www.1diaocha.com/reg.asp?user=discovered" target=_blank&gt;官方注册&lt;/A&gt;&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;3 调客网&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;A href="http://18954745.freesurvey.net.cn/" target=_blank&gt;官方注册&lt;/A&gt;&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;3 中智库玛调查网 &lt;A href="http://www.51poll.com/member/welcome.asp?fd_id=343300" target=_blank&gt;官方注册&lt;/A&gt;&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;4 ePanel益派调查网&amp;nbsp; &lt;A href="http://www.epanel.com.cn/epanelweb/regist/xieyou/page909.do?method=show&amp;amp;para1=TeKX6jXGw6" target=_blank&gt;官方注册&lt;/A&gt;&lt;/P&gt;&#xD;
&lt;P style="FONT-SIZE: 18pt; COLOR: red"&gt;5 Ezypoint信息调查网&amp;nbsp; &lt;A href="http://www.ezypoint.com/register.html?inviterid=user4807658544a87" target=_blank&gt;官方注册&lt;/A&gt;&lt;/P&gt;&lt;/DIV&gt;&#xD;
&lt;DIV&gt;&lt;/DIV&gt;&#xD;
&lt;DIV&gt;&lt;/DIV&gt;&#xD;
&lt;DIV&gt;&lt;/DIV&gt;&#xD;
&lt;DIV&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 09 五月 2008 01:24:02 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200805/2566735.html</guid>
      <dc:date>2008-05-09T01:24:02Z</dc:date>
    </item>
    <item>
      <title>常用正则表达</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2144531.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;P&gt;匹配中文字符的正则表达式： [\u4e00-\u9fa5]&lt;!--IWMS_AD_BEGIN--&gt;&#xD;
&lt;!-- 请您使用广告标签 --&gt;&#xD;
&#xD;
&#xD;
&#xD;
&#xD;
&#xD;
alimama_pid="mm_10498610_623104_1064237"; &#xD;
alimama_titlecolor="0000FF"; &#xD;
alimama_descolor ="000000"; &#xD;
alimama_bgcolor="FFFFFF"; &#xD;
alimama_bordercolor="E6E6E6"; &#xD;
alimama_linkcolor="008000"; &#xD;
alimama_bottomcolor="FFFFFF"; &#xD;
alimama_anglesize="0"; &#xD;
alimama_bgpic="0"; &#xD;
alimama_icon="0"; &#xD;
alimama_sizecode="36"; &#xD;
alimama_width=336; &#xD;
alimama_height=280; &#xD;
alimama_type=2; &lt;!-- 请您使用广告标签 --&gt;&#xD;
&#xD;
&lt;!-- 请您使用广告标签 --&gt;&lt;!-- 请您使用广告标签 --&gt;&#xD;
 &lt;IMG id=alimamatmpf0.14725006410799846 style="BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; WIDTH: 0px; PADDING-TOP: 0px; HEIGHT: 0px; BORDER-RIGHT-WIDTH: 0px" src="http://p.mm.cn.yahoo.com/alimamal.php?i=mm_10498610_623104_1064237&amp;amp;u=http%3A%2F%2Fwww.kupoa.cn%2Fshow.aspx%3Fid%3D737%26cid%3D84&amp;amp;w=336&amp;amp;h=280&amp;amp;re=1024x768&amp;amp;sz=36&amp;amp;r=http%3A%2F%2Fwww.baidu.com%2Fs%3Fie%3Dgb2312%26bs%3Dcdns%26sr%3D%26z%3D%26cl%3D3%26f%3D8%26wd%3D%25D5%25FD%25D4%25F2%25B1%25ED%25B4%25EF%26ct%3D0&amp;amp;cg=88a7e194fd7a7577d49b809c87ee9898&amp;amp;pro=65963408&amp;amp;cas=pro&amp;amp;cah=738&amp;amp;caw=1024&amp;amp;ccd=32&amp;amp;ctz=8&amp;amp;cbh=152&amp;amp;cbw=1006&amp;amp;cja=1&amp;amp;cf=9.0&amp;amp;sx=359&amp;amp;sy=1544" border=0 name=alimamatmpf0.14725006410799846&gt;评注：匹配中文还真是个头疼的事，有了这个表达式就好办了&lt;/P&gt;&#xD;
&lt;P&gt;匹配双字节字符(包括汉字在内)：[^\x00-\xff]&lt;BR&gt;评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）&lt;/P&gt;&#xD;
&lt;P&gt;匹配空白行的正则表达式：\n\s*\r&lt;BR&gt;评注：可以用来删除空白行&lt;/P&gt;&#xD;
&lt;P&gt;匹配HTML标记的正则表达式：&amp;lt;(\S*?)[^&amp;gt;]*&amp;gt;.*?&amp;lt;/\1&amp;gt;|&amp;lt;.*? /&amp;gt;&lt;BR&gt;评注：网上流传的版本太糟糕，上面这个也仅仅能匹配部分，对于复杂的嵌套标记依旧无能为力&lt;/P&gt;&#xD;
&lt;P&gt;匹配首尾空白字符的正则表达式：^\s*|\s*$&lt;BR&gt;评注：可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式&lt;/P&gt;&#xD;
&lt;P&gt;匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*&lt;BR&gt;评注：表单验证时很实用&lt;/P&gt;&#xD;
&lt;P&gt;匹配网址URL的正则表达式：[a-zA-z]+://[^\s]*&lt;BR&gt;评注：网上流传的版本功能很有限，上面这个基本可以满足需求&lt;/P&gt;&#xD;
&lt;P&gt;匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$&lt;BR&gt;评注：表单验证时很实用&lt;/P&gt;&#xD;
&lt;P&gt;匹配国内电话号码：\d{3}-\d{8}|\d{4}-\d{7}&lt;BR&gt;评注：匹配形式如 0511-4405222 或 021-87888822&lt;/P&gt;&#xD;
&lt;P&gt;匹配腾讯QQ号：[1-9][0-9]{4,}&lt;BR&gt;评注：腾讯QQ号从10000开始&lt;/P&gt;&#xD;
&lt;P&gt;匹配中国邮政编码：[1-9]\d{5}(?!\d)&lt;BR&gt;评注：中国邮政编码为6位数字&lt;/P&gt;&#xD;
&lt;P&gt;匹配身份证：\d{15}|\d{18}&lt;BR&gt;评注：中国的身份证为15位或18位&lt;/P&gt;&#xD;
&lt;P&gt;匹配ip地址：\d+\.\d+\.\d+\.\d+&lt;BR&gt;评注：提取ip地址时有用&lt;/P&gt;&#xD;
&lt;P&gt;匹配特定数字：&lt;BR&gt;^[1-9]\d*$　 　 //匹配正整数&lt;BR&gt;^-[1-9]\d*$ 　 //匹配负整数&lt;BR&gt;^-?[1-9]\d*$　　 //匹配整数&lt;BR&gt;^[1-9]\d*|0$　 //匹配非负整数（正整数 + 0）&lt;BR&gt;^-[1-9]\d*|0$　　 //匹配非正整数（负整数 + 0）&lt;BR&gt;^[1-9]\d*\.\d*|0\.\d*[1-9]\d*$　　 //匹配正浮点数&lt;BR&gt;^-([1-9]\d*\.\d*|0\.\d*[1-9]\d*)$　 //匹配负浮点数&lt;BR&gt;^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$　 //匹配浮点数&lt;BR&gt;^[1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0$　　 //匹配非负浮点数（正浮点数 + 0）&lt;BR&gt;^(-([1-9]\d*\.\d*|0\.\d*[1-9]\d*))|0?\.0+|0$　　//匹配非正浮点数（负浮点数 + 0）&lt;BR&gt;评注：处理大量数据时有用，具体应用时注意修正&lt;/P&gt;&#xD;
&lt;P&gt;匹配特定字符串：&lt;BR&gt;^[A-Za-z]+$　　//匹配由26个英文字母组成的字符串&lt;BR&gt;^[A-Z]+$　　//匹配由26个英文字母的大写组成的字符串&lt;BR&gt;^[a-z]+$　　//匹配由26个英文字母的小写组成的字符串&lt;BR&gt;^[A-Za-z0-9]+$　　//匹配由数字和26个英文字母组成的字符串&lt;BR&gt;^\w+$　　//匹配由数字、26个英文字母或者下划线组成的字符串&lt;BR&gt;评注：最基本也是最常用的一些表达式&lt;/P&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期三, 19 三月 2008 06:11:11 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2144531.html</guid>
      <dc:date>2008-03-19T06:11:11Z</dc:date>
    </item>
    <item>
      <title>Delphi 正则表达式起步</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2109279.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;DIV class=postTitle&gt;&lt;A class=postTitle2 id=AjaxHolder_ctl01_TitleUrl href="http://www.cnblogs.com/del/archive/2007/12/21/1008108.html"&gt;&lt;FONT color=#3468a4&gt;Delphi 正则表达式起步&lt;/FONT&gt;&lt;/A&gt; &lt;/DIV&gt;在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.&lt;BR&gt;&lt;BR&gt;&lt;BR&gt;官方网站: &lt;A href="http://www.regular-expressions.info/delphi.html"&gt;&lt;FONT color=#3468a4&gt;http://www.regular-expressions.info/delphi.html&lt;/FONT&gt;&lt;/A&gt;&lt;BR&gt;直接下载: &lt;A href="http://www.regular-expressions.info/download/TPerlRegEx.zip"&gt;&lt;FONT color=#3468a4&gt;http://www.regular-expressions.info/download/TPerlRegEx.zip&lt;/FONT&gt;&lt;/A&gt;&lt;BR&gt;&lt;BR&gt;&lt;BR&gt;安装方法:&lt;BR&gt;&lt;BR&gt;1、先把解压的 TPerlRegEx 文件夹放一个合适的地方, 我放在了 Delphi 的 Imports 目录中.&lt;BR&gt;&lt;BR&gt;2、目前最新 For Win32 的版本是对 Delphi 2006 的, 2007 也能用.&amp;nbsp;&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;打开 PerlRegExD2006.dpk, 提示缺少资源文件, 没关系;&amp;nbsp;&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;在 Project Manager 窗口中的 PerlRegExD2006.bpl 上点击右键, 执行 Install;&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;这时在 Tool Palette 的列表中已经有了 TPerlRegEx, 在 JGsoft 组.&lt;BR&gt;&lt;BR&gt;3、Tools -&amp;gt; Options -&amp;gt; Environment Options -&amp;gt; Delphi Options -&amp;gt; Library-Win32 -&amp;gt; Library path -&amp;gt;&amp;nbsp;&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;添加路径: ...\Imports\TPerlRegEx&lt;BR&gt;&lt;BR&gt;4、可以使用了! 直接 uses PerlRegEx 或从 Tool Palette 添加都可以. &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;如果不喜欢 Tool Palette 的添加方式可以省略第二步.&lt;BR&gt;&lt;BR&gt;&lt;BR&gt;计划的学习步骤: 1、正则语法; 2、TPerlRegEx 功能.&lt;BR&gt;&lt;BR&gt;&#xD;
&lt;HR&gt;&#xD;
&lt;BR&gt;&lt;PRE class=Delphi&gt;&lt;PRE&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//先测试一下:&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;uses&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  PerlRegEx;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //uses 正则表达式单元&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;procedure&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt; TForm1&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;FormCreate(Sender: TObject);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //声明正则表达式变量&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //建立&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'sSsS'&lt;/FONT&gt;&lt;/SPAN&gt;;   &lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //这是要替换的源字符串&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'s'&lt;/FONT&gt;&lt;/SPAN&gt;;      &lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //这是表达式, 在这里是准备替换掉的子串&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;; &lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //要替换成的新串&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;          &lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //执行全部替换&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回替换结果: ◆S◆S&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //因为建立时属主给了 nil, 这里没有使用 reg.Free&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&lt;/PRE&gt;&lt;/PRE&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 14 三月 2008 11:46:26 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2109279.html</guid>
      <dc:date>2008-03-14T11:46:26Z</dc:date>
    </item>
    <item>
      <title>Delphi 正则表达式语法(1): 关于大小写与中文</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2109272.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;DIV class=postTitle&gt;&lt;A class=postTitle2 id=AjaxHolder_ctl01_TitleUrl href="http://www.cnblogs.com/del/archive/2007/12/21/1008138.html"&gt;&lt;FONT color=#3468a4&gt;Delphi 正则表达式语法(1): 关于大小写与中文&lt;/FONT&gt;&lt;/A&gt; &lt;/DIV&gt;&lt;PRE class=Delphi&gt;&lt;PRE&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//替换一般字符串&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'我爱DELPHI, 但Delphi不爱我!'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: 我爱DELPHI, 但◆不爱我!&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//不区分大小写&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'我爱DELPHI, 但Delphi不爱我!'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Options := [preCaseLess];&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //不区分大小的设定, 默认是区分的&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: 我爱◆, 但◆不爱我!&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//试试中文替换&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'我爱DELPHI, 但Delphi不爱我!'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'我'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆爱DELPHI, 但Delphi不爱◆!&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//如果不区分大小写, 竟然也不区分中文字了&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'我爱DELPHI, 但Delphi不爱我!'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'我'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Options := [preCaseLess];&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //也设定不区分大小&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆◆DELPHI, ◆Delphi◆◆◆!&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//我测试了不同的汉字, 除了乱以外,没有规律; 所有如果操作汉字暂时不要指定 preCaseLess&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;HR&gt;&lt;/PRE&gt;&lt;/PRE&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 14 三月 2008 11:45:39 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2109272.html</guid>
      <dc:date>2008-03-14T11:45:39Z</dc:date>
    </item>
    <item>
      <title>Delphi 正则表达式语法(2): 或者与重复</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2109265.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;DIV class=postTitle&gt;&lt;A class=postTitle2 id=AjaxHolder_ctl01_TitleUrl href="http://www.cnblogs.com/del/archive/2007/12/21/1008139.html"&gt;&lt;FONT color=#3468a4&gt;Delphi 正则表达式语法(2): 或者与重复&lt;/FONT&gt;&lt;/A&gt; &lt;/DIV&gt;&lt;PRE class=Delphi&gt;&lt;PRE&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// | 号的使用, | 是或者的意思&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'e|Delphi|0'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //使用了 | 记号&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: Cod◆G◆ar ◆ 2◆◆7&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// + 的使用, + 是重复 1 个或多个&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a aa aaa aaaa ab abb abbba a呀a'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'ab+'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //使用了 + 记号, 这里是允许 a 后面有 1 个或多个 b&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: a aa aaa aaaa ◆ ◆ ◆a a呀a&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// * 的使用, * 是重复 0 个或多个&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a aa aaa aaaa ab abb abbba a呀a'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'ab*'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //使用了 * 记号, 这里是允许 a 后面有多个或者没有 b&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ ◆◆ ◆◆◆ ◆◆◆◆ ◆ ◆ ◆◆ ◆呀◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// ? 的使用, ? 是重复 0 个或 1 个&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a aa aaa aaaa ab abb abbba a呀a'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a?'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //使用了 ? 记号&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ ◆◆ ◆◆◆ ◆◆◆◆ ◆b ◆bb ◆bbb◆ ◆呀◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//大括号的使用&amp;lt;1&amp;gt;, 指定重复数&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a aa aaa aaaa ab abb abbba a呀a'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := 'a&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;{3}&lt;/FONT&gt;&lt;/SPAN&gt;';&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //这里指定重复 3 次&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: a aa ◆ ◆a ab abb abbba a呀a&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//大括号的使用&amp;lt;2&amp;gt;&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a aa aaa aaaa ab abb abbba a呀a'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := 'a&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;{2,4}&lt;/FONT&gt;&lt;/SPAN&gt;';&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //这里指定重复 2-4 次&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: a ◆ ◆ ◆ ab abb abbba a呀a&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//大括号的使用&amp;lt;3&amp;gt;&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'a aa aaa aaaa ab abb abbba a呀a'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := 'a&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;{1,}&lt;/FONT&gt;&lt;/SPAN&gt;';&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //n 个或多个, 这里是 1 个或多个&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ ◆ ◆ ◆ ◆b ◆bb ◆bbb◆ ◆呀◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//上面这个 {1,} 和 + 是等效的;&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//还有 {0,1} 与 ? 是等效的;&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//{0,} 和 * 是等效的&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;HR&gt;&lt;/PRE&gt;&lt;/PRE&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 14 三月 2008 11:44:39 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2109265.html</guid>
      <dc:date>2008-03-14T11:44:39Z</dc:date>
    </item>
    <item>
      <title>Delphi 正则表达式语法(3): 匹配范围</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2109256.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;DIV class=postTitle&gt;&lt;A class=postTitle2 id=AjaxHolder_ctl01_TitleUrl href="http://www.cnblogs.com/del/archive/2007/12/21/1008721.html"&gt;&lt;FONT color=#3468a4&gt;Delphi 正则表达式语法(3): 匹配范围 &lt;/FONT&gt;&lt;/A&gt;&lt;/DIV&gt;&lt;PRE class=Delphi&gt;&lt;PRE&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// [A-Z]: 匹配所有大写字母&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007 for Win32'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'[A-Z]'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ode◆ear ◆elphi 2007 for ◆in32&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// [a-z]: 匹配所有小写字母&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007 for Win32'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'[a-z]'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: C◆◆◆G◆◆◆ D◆◆◆◆◆ 2007 ◆◆◆ W◆◆32&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// [0-9]: 匹配所有数字&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007 for Win32'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'[0-9]'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: CodeGear Delphi ◆◆◆◆ for Win◆◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//匹配几个范围&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007 for Win32'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'[C-Do-p0-2]'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //大写字母: C-D; 小写字母: o-p; 数字: 0-2&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆◆deGear ◆el◆hi ◆◆◆7 f◆r Win3◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;//匹配 [] 中的所有&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007 for Win32'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'[Ci2]'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //大写字母: C; 小写字母: i; 数字: 2&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆odeGear Delph◆ ◆007 for W◆n3◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// ^ 排除 [] 中的所有&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi 2007 for Win32'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'[^Ci0-2]'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //这里排除了大写字母: C; 小写字母: i; 数字: 0-2&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: C◆◆◆◆◆◆◆◆◆◆◆◆◆i◆200◆◆◆◆◆◆◆i◆◆2&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&lt;/PRE&gt;&lt;/PRE&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 14 三月 2008 11:43:22 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2109256.html</guid>
      <dc:date>2008-03-14T11:43:22Z</dc:date>
    </item>
    <item>
      <title>Delphi 正则表达式语法(4): 常用转义字符</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2109251.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;DIV class=postTitle&gt;&lt;A class=postTitle2 id=AjaxHolder_ctl01_TitleUrl href="http://www.cnblogs.com/del/archive/2007/12/21/1008786.html"&gt;&lt;FONT color=#3468a4&gt;Delphi 正则表达式语法(4): 常用转义字符与 .&lt;/FONT&gt;&lt;/A&gt; &lt;/DIV&gt;&lt;PRE class=Delphi&gt;&lt;PRE&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \d 匹配所有数字, 相当于 [0-9]&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\d'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: 期待Delphi ◆◆◆◆ for Win◆◆！&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \D 匹配所有非数字, 相当于 [^0-9]&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\D'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆◆◆◆◆◆◆◆◆◆◆2008◆◆◆◆◆◆◆◆32◆◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \w 匹配字母、数字与下划线_, 相当于 [A-Za-z0-9_]&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\w'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: 期待◆◆◆◆◆◆ ◆◆◆◆ ◆◆◆ ◆◆◆◆◆！&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \W 匹配非字母、数字与下划线_, 相当于 [^A-Za-z0-9_]&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\W'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆◆◆◆Delphi◆2008◆for◆Win32◆◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \s 匹配任何空白, 包括空格、制表、换页等, 相当于 [\f\n\r\t\v]&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\s'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: 期待Delphi◆2008◆for◆Win32！&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;{&#xD;
  \f : 换页符&#xD;
  \n : 换行符&#xD;
  \r : 回车符&#xD;
  \t : 制表符(Tab)&#xD;
  \v : 垂直制表符&#xD;
}&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \S 匹配任何非空白, 相当于 [^\f\n\r\t\v]&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\S'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆◆◆◆◆◆◆◆◆◆ ◆◆◆◆ ◆◆◆ ◆◆◆◆◆◆◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \x 匹配十六进制的 ASCII&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'CodeGear Delphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\x61'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; // a 的 ASCII 值是 97, 也就是十六进制的 61&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: CodeGe◆r Delphi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&#xD;
&lt;FONT color=#008000&gt;&lt;SPAN class=g&gt;//非常遗憾 TPerlRegEx 不能使用 \u 或 \U 匹配 Unicode 字符!&#xD;
&lt;/SPAN&gt;&lt;HR&gt;&lt;/FONT&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// . 匹配除换行符以外的任何字符&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'期待'&lt;/FONT&gt;&lt;/SPAN&gt; + &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;#&lt;SPAN class=b&gt;10&lt;/SPAN&gt;&lt;/FONT&gt;&lt;/SPAN&gt; + &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi 2008 for Win32！'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //#10是换行符&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'.'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&#xD;
  &lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;{返回:&#xD;
    ◆◆◆◆&#xD;
    ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆&#xD;
  }&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;/PRE&gt;&lt;/PRE&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 14 三月 2008 11:42:40 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2109251.html</guid>
      <dc:date>2008-03-14T11:42:40Z</dc:date>
    </item>
    <item>
      <title>Delphi 正则表达式语法(5): 边界</title>
      <link>http://blog.china.com:80/u/070929/80493/200803/2109240.html</link>
      <description>&lt;![CDATA[ &lt;DIV&gt;&#xD;
&lt;DIV class=postTitle&gt;&lt;A class=postTitle2 id=AjaxHolder_ctl01_TitleUrl href="http://www.cnblogs.com/del/archive/2007/12/21/1008874.html"&gt;&lt;FONT color=#3468a4&gt;Delphi 正则表达式语法(5): 边界&lt;/FONT&gt;&lt;/A&gt; &lt;/DIV&gt;&lt;PRE class=Delphi&gt;&lt;PRE&gt;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \b 单词边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;; &#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\bDelphi\b'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //前后边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ Delphi2007 MyDelphi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \b 单词边界: 左边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;; &#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\bDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //左边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ ◆2007 MyDelphi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \b 单词边界: 右边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;; &#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi\b'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //右边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆ Delphi2007 My◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \B 非单词边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi MyDelphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\BDelphi\B'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //现在只有 MyDelphi2007 中的 Delphi 属于非单词边界&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: Delphi My◆2007 MyDelphi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// ^ 行首&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'^Del'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //匹配在行首的 Del&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆phi Delphi2007 MyDelphi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \A 也标记行首&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'\ADel'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //匹配在行首的 Del&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: ◆phi Delphi2007 MyDelphi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// $ 行尾&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;; &#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := 'phi$';&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //匹配在行尾的 phi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: Delphi Delphi2007 MyDel◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&lt;HR&gt;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// \Z 也标记行尾&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;var&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg: TPerlRegEx;&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;begin&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;&#xD;
  reg := TPerlRegEx&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Create(&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;nil&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;);&#xD;
&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'Delphi Delphi2007 MyDelphi'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;RegEx   := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'phi\Z'&lt;/FONT&gt;&lt;/SPAN&gt;;&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //匹配在行尾的 phi&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Replacement := &lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;'◆'&lt;/FONT&gt;&lt;/SPAN&gt;;&#xD;
  reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;ReplaceAll;&#xD;
&#xD;
  ShowMessage(reg&lt;SPAN class=b&gt;&lt;FONT color=#0000ff&gt;.&lt;/FONT&gt;&lt;/SPAN&gt;Subject);&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt; //返回: Delphi Delphi2007 MyDel◆&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&#xD;
  FreeAndNil(reg);&#xD;
&lt;SPAN class=k&gt;&lt;STRONG&gt;&lt;FONT color=#000080&gt;end&lt;/FONT&gt;&lt;/STRONG&gt;&lt;/SPAN&gt;;&#xD;
&#xD;
&lt;SPAN class=g&gt;&lt;FONT color=#008000&gt;// 测试时, \Z 不区分大小写; \A 区分&#xD;
&lt;/FONT&gt;&lt;/SPAN&gt;&lt;/PRE&gt;&lt;/PRE&gt;&lt;/DIV&gt;]]&gt;</description>
      <pubDate>星期五, 14 三月 2008 11:41:44 GMT</pubDate>
      <guid>http://blog.china.com:80/u/070929/80493/200803/2109240.html</guid>
      <dc:date>2008-03-14T11:41:44Z</dc:date>
    </item>
  </channel>
</rss>

