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

最近要实现一个车险特别约定内的值填空，但是又不想录单员随便在特别约定内乱录入，毕竟这是要打印到保单上面的，

所以考虑在在特别约定模板内增加部分文本弹出录入后替换，所以用到了正则表达式.

 
VC6使用正则表达式的话，有很多选择，最主要我觉得有两种：一种是使用boost的正则表达式库，还要一种是现在介绍的以com的方式调用的vbscript.dll了。

其中，我个人倾向于使用vbscript.dll的正则表达式库，原因：主要是，感觉这么小的功能，没必要动用boost这样的牛刀，杀这样一只蚂蚁也不太合适，所以

还是使用vbscript.dll，而且这个使用这个也有很多优点的，在win平台下，该dll是系统自带的，在system32里面。而且，考虑到一个问题,boost库的正则

表达式似乎与.net里面的有些许区别，而且javascript里面用的正则表达式库也是这个，总而言之，比较熟！

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

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

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

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

#import "RegExp.tlb"

因为要调用com所以在InitInstance里面

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

然后写个函数试一下

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();

 发张靓图: