欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

bcb利用vbscript正则表达式处置字符串

更新时间: 2014-01-05 01:52:21 责任编辑: Author_N1

 

BCB利用VBScript正则表达式处理字符串

转自:http://www.cnblogs.com/NewZi/archive/2011/01/29/1947545.html

void __fastcall TForm1::Button1Click(TObject *Sender)
  {
       //在ccrun.com学习到的,用宏节省时间,为了方便查看就放在这里了
       //感谢妖哥的ccrun.com
       #define   PG   OlePropertyGet
      #define   PS   OlePropertySet
      #define   FN   OleFunction
      #define   PR   OleProcedure
      Memo3->Clear();
     Variant    Axl= Variant::CreateObject("VBScript.RegExp"); //利用脚本里的正则
      Axl.PS("Global",true);//全局匹配
      Axl.PS("Pattern", Memo1->Text.t_str());  //写入正则表达式
      Variant    rtn=Axl.FN("Execute", Memo2->Text.t_str());//开始执行
      for (int i=0; i!= rtn.PG("Count"); i++) {
         Memo3->Lines->Add((rtn.PG("Item",i).PG("Value")));//取出匹配的东东
     }
    
 }


上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:21
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2303/
本文WWW.DOC100.NET DOC100.NET版权所有。