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