登陆

Delphi正则 TPerlRegEx能让你实现

之前我用到过正则 没有出什么问题 这次发现那个自带的正则控件没了
在Import type library里面没有"Microsoft VBscript Regular Expressions"了
郁闷啊!装过 也问过别人 都None!     后来找了一下发现tperlregex也不错

直接下载: TPerlRegEx   下载过去装上 然后给个Lib路径

Delphi代码
  1. uses  
  2.   perlregex//uses 正则表达式单元   
  3.   
  4. procedure TForm1.FormCreate(Sender: TObject);   
  5. var  
  6.   reg: TPerlRegEx; //声明正则表达式变量   
  7. begin  
  8.   reg := TPerlRegEx.Create(nil); //建立   
  9.   
  10.   reg.Subject := 'sSsS';    //这是要替换的源字符串   
  11.   reg.RegEx   := 's';       //这是表达式, 在这里是准备替换掉的子串   
  12.   reg.Replacement := '◆';  //要替换成的新串   
  13.   reg.ReplaceAll;           //执行全部替换   
  14.   
  15.   ShowMessage(reg.Subject); //返回替换结果: ◆S◆S   
  16.   
  17.   FreeAndNil(reg); //因为建立时属主给了 nil, 这里没有使用 reg.Free   
  18. end;  

来自:万一博客

附:

【解决了:Project->Import type library->在列表中选择"Microsoft VBscript Regular Expressions" 生成TRegExp控件】

【一直找错地方了 我说呢这个VBscript跑哪儿去了】

Tags: 正则, tperlregex, perlregex, 无vbscript

« 上一篇 | 下一篇 »

相关文章