| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3273135
建立时间:2005年6月6日 |
| |
|
 perlregex正则表达式控件的备忘
软件技术
吕向阳 发表于 2009/2/27 22:41:54 |
| var r: TPerlRegEx;begin//替换 r := TPerlRegEx.Create(nil); r.Subject := str; //这是要替换的源字符串 r.RegEx := '!!v:imagedata'; //这是表达式, 在这里是准备替换掉的子串 r.Replacement := '<v:imagedata'; //要替换成的新串 r.ReplaceAll; //执行全部替换
//查找 str := r.Subject; r.Subject := str; r.RegEx := '<img([\s\S]+?)>'; r.Match; while r.FoundMatch then begin str2 := r.SubExpressions[1];//取出当中符合条件的部分 imglist.Add(str2) r.MatchAgain; end |
|
|