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