VC调用vbscript.dll使用其正则表达式库

废话有点多，总而言之，用这个好！

进入正题了，首先用vc以资源的方式打开C:/Windows/System32/Vbscript.dll，注意以资源的方式打开，默认是auto，那就只是看到一个Vbscript.dll了。

选择typelib的第二项，选择导出成RegExp.tlb

然后将RegExp.tlb拷到工程目录下，在stdafx.h里面加一句

因为要调用com所以在构造函数里面

CTestDlg::CTestDlg(CWnd* pParent /*=NULL*/): CDialog(CAaDlg::IDD, pParent)

加入:

if(!AfxOleInit()) AfxMessageBox("Initial Failure");

然后写个函数试一下

void CTestDlg::OnOK() {UpdateData();Vbscript_RegExp_10::IRegExpPtr pRegExp;HRESULT hr;hr = pRegExp.CreateInstance(__uuidof(Vbscript_RegExp_10::RegExp));if(FAILED(hr)){MessageBox("无法创建正则表达式对象!");return;}pRegExp->PutPattern((_bstr_t)(const char *)m_strPattern);/*正则表达式*//**//*If the RegExp.Global property is False (the default), MatchCollection will contain only the first match. If RegExp.Global is true, Matches> will contain all matches.*/pRegExp->PutGlobal(VARIANT_TRUE);Vbscript_RegExp_10::IMatchCollectionPtr pMC = pRegExp->Execute((_bstr_t)(const char *)m_strContent);/*要匹配的内容*/Vbscript_RegExp_10::IMatchPtr pM;CString sTxt;for(int i=0;i<pMC->Count;i++){ pM = pMC->GetItem(i);sTxt = (char *)pM->GetValue();MessageBox(sTxt,"匹配项");}pRegExp.Release();}

发张靓图:

原文地址：

http://www.cnblogs.com/linbc/archive/2009/03/21/1400108.html