1、選擇添加類--TypeLib中的MFC類。
2、選擇從注冊表中添加，位置為C:\windows\system32\vbscript.dll
3、生成類文件CMatch.h CMatch2.h CMatchCollection.h CMatchCollection2.h CRegExp.h CRegExp2.h
CSubMatches.h
4、將#import "c:\\windows\\system32\\vbscript.dll\\3" no_namespace
改為#import "progid:VBScript.RegExp" no_namespace，不然會提示找不到文件

加聲明
const GUID LIBID_VBScript_RegExp_55 = {0x3F4DACA7, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_IRegExp = {0x3F4DACA0, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_IMatch = {0x3F4DACA1, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_IMatchCollection = {0x3F4DACA2, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_IRegExp2 = {0x3F4DACB0, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_IMatch2 = {0x3F4DACB1, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_IMatchCollection2 = {0x3F4DACB2, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID IID_ISubMatches = {0x3F4DACB3, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID CLSID_RegExp = {0x3F4DACA4, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID CLSID_Match = {0x3F4DACA5, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID CLSID_MatchCollection = {0x3F4DACA6, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };
const GUID CLSID_SubMatches = {0x3F4DACC0, 0x160D, 0x11D2,{ 0xA8, 0xE9, 0x00,0x10, 0x4B, 0x36,0x5C, 0x9F} };

5、調用方法如下：
void Test()
{
CoInitialize(NULL);

CLSID clsid;
HRESULT hr = ::CLSIDFromProgID(_T("VBScript.RegExp"), &clsid);
if ( FAILED( hr ))
{
? CoUninitialize();
? return;
}

IClassFactory* pCF;
hr = CoGetClassObject(clsid, CLSCTX_INPROC, NULL, IID_IClassFactory, (void**) &pCF);
if ( FAILED( hr ))
{
? CoUninitialize();
? return;
}

IRegExp2* pObj;
hr = pCF->CreateInstance(NULL, IID_IRegExp2, (void**) &pObj);
pCF->Release();
if ( FAILED( hr ))
{
? CoUninitialize();
? return;
}

pObj->Pattern = _T("^\\d{4}-\\d{4}\\u8881$");
VARIANT_BOOL pMatch = 0;

pMatch = pObj->Test(_T("3233-3456袁"));

if (pMatch)
? cout << "^\\d{4}-\\d{4}\\u8881$ match 3233-3456袁 is true" << endl;
else
? cout << "^\\d{4}-\\d{4}\\u8881$ match 3233-3456袁 is false" << endl;

pMatch = pObj->Test(_T("3233s-3456"));

if (pMatch)
? cout << "^\\d{4}-\\d{4}$ match 3233s-3456 is true" << endl;
else
? cout << "^\\d{4}-\\d{4}$ match 3233s-3456 is false" << endl;

CoUninitialize();
}

轉載于:https://www.cnblogs.com/yuanxiaoping_21cn_com/archive/2008/11/13/1332917.html

總結

以上是生活随笔為你收集整理的在VC8里调用VBScript.dll的RegularExpression的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。