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