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")));//取出匹配的东东
     }
    
 }