在 vc 中引用 vbscript.dll 做正则表达式 IMatchCollection 类的问题？

2003-03-01 03:51:32 377 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PLSQL Developer14连接Oracle详细过程下载地址：Instant Client for Microsoft Windows (x64) 64-bit | Oracle 中国解压客户端工具到一个目录（解压文件到当前目录，自动合并成一个目录）电脑（右键）→属性→高级系统设置→环境变量→系统环境变量→新建变量名：NLS_LANG 变量值: AMERICAN_AMERICA.ZHS16GBK 变量名：TNS_ADMIN 变量值：C:\xiaxinyu\software\Oracle\instantclient_19_10 在Oracle客户端（C 阅读详情

再上帖中
http://expert.csdn.net/Expert/topic/1453/1453603.xml?temp=.921322

得到masterz 和 dispatchwengqun(≡≡★★郁闷★★≡≡) 2位大虾的帮助
顺利调试通过了 IRegExp 类的应用，但当我用 IMatchCollection类时，问题又出来了，我采用了多中写法，都不能通过。代码如下：

...全文

C++总结笔记 / ++操作这是因为定义的数组，申请的是连续的内存空间，当ptr++（ptr是int类型的指针变量），地址空间向后偏移是以int类型的大小为单位进行偏移的，相当于int类型数组元素的向后偏移。使用场景：它是最通用的转换形式，用于将一种类型转换为另一种类型，例如基本数据类型的转换（如 float 转 int），指向基类的指针或引用转为指向派生类的指针或引用等。在派生类被调用时会调用派生类中的函数，不会调用基类中的被重写的函数（基类中的函数需要加上virtual才可以，即基类中的函数是虚函数）。阅读详情

天限天空

ATL 3,248 成员 48,530 内容

+ 关注 + 加入社区

切换为时间正序

xiaohyy 2003-03-24

打赏
举报

修改向导生成的函数有什么需要学习的。。。直接改了就是。。。

masterz 2003-03-04

打赏
举报

InvokeHelper(0x0, // use 0 here, not 0x00002711

harry202 2003-03-04

打赏
举报

mark

天限天空 2003-03-04

打赏
举报

还是一样的问题!
:(

天限天空 2003-03-02

打赏
举报

copy masterz(MS MVP) 的代码,但运行到
int count = matches.GetCount();//count=2 判断 matches 应该是正确的
这部的时间就提示访问共享错误.

InvokeHelper(0x00002711,//this ID is found by OLEView
?

修改向导生成的代码,学习的东西太多了,惭愧!

masterz 2003-03-02

打赏
举报

1. modify wizard generated function
LPDISPATCH IMatchCollection::GetItem(const VARIANT& Index)
{
LPDISPATCH result;
static BYTE parms[] =
VTS_VARIANT;
InvokeHelper(0x0,//this ID is found by OLEView
DISPATCH_PROPERTYGET, VT_DISPATCH, (void*)&result, parms,
&Index);
return result;
}

2. correct your codes as the following
IRegExp * regExpPtr;//前面不用指针要出错
regExpPtr = new IRegExp();
regExpPtr->CreateDispatch("VBScript.RegExp");
regExpPtr->SetGlobal(TRUE);
regExpPtr->SetPattern(_T("(\\d+\\.?\\d*|\\.\\d+)"));
LPCTSTR testStr = _T("This 1dd2dd");
LPDISPATCH pdispcol = regExpPtr->Execute(testStr);//用指针要出错
IMatchCollection matches;
if(pdispcol)
matches.AttachDispatch(pdispcol);
int count = matches.GetCount();//count=0 判断 matches 应该是正确的
for(long i=0; i<count; i++)
{
long index=i;
IDispatch* pdisp =matches.GetItem(COleVariant((short)(index)));
if(pdisp)
{
IMatch match;
match.AttachDispatch(pdisp);
AfxMessageBox(match.GetValue());
}
}

天限天空 2003-03-02

打赏
举报

再次谢谢masterz(MS MVP)的指点，
但再次请教用直接生成类的方法，为什么不行呢？

masterz 2003-03-02

打赏
举报

#include "stdafx.h"
//使用VC++以资源的方式打开VBScript.dll，在其中选择TypeLib，将第2个TypeLib输出为regexp.tlb, put it in your project's main directory

#import "regexp.tlb" no_namespace

int main(int argc, char* argv[])
{
CoInitialize(NULL);
{
IRegExpPtr regExpPtr(__uuidof(RegExp));
regExpPtr->PutGlobal(VARIANT_TRUE);
regExpPtr->PutPattern("(\\d+\\.?\\d*|\\.\\d+)");
LPCTSTR testStr = "This 1dd2d";
IMatchCollectionPtr matches = regExpPtr->Execute(testStr);//用指针要出错

int count = matches->GetCount();//count=0 判断 matches 应该是正确的
for(int i=0; i<count; i++)
{
IMatchPtr match=matches->GetItem((long)i);
if(match)
{
printf("%s\n",(LPCTSTR)match->GetValue());
}
}
}

CoUninitialize();
printf("Test of using regular expression in VC++!\n");
return 0;
}

天限天空 2003-03-01

打赏
举报

修改
int count = matches.GetCount();//count=2 判断 matches 应该是正确的

天限天空 2003-03-01

打赏
举报

修改代码后提示早不到成员

IRegExp * regExpPtr;//前面不用指针要出错
regExpPtr = new IRegExp();
regExpPtr->CreateDispatch("VBScript.RegExp");
regExpPtr->SetGlobal(true);
regExpPtr->SetPattern("(\d+\.?\d*|\.\d+)");
CString testStr = "This 1dd2d";
//if(regExpPtr->Test(testStr)) AfxMessageBox("ddd");
IMatchCollection matches;
//matchesPtr = new IMatchCollection();
matches = regExpPtr->Execute(testStr);//用指针要出错

IMatch match;
int count = matches.GetCount();//count=0 判断 matches 应该是正确的
for(int i=0; i<count; i++){
AfxMessageBox(((IMatch)matches.GetItem(1)).GetValue()); //？？？？
}

天限天空 2003-03-01

打赏
举报

IRegExp regExp;
regExp.CreateDispatch("3F4DACA4-160D-11D2-A8E9-00104B365C9F");
//regExp.CreateDispatch("VBScript.MatchCollection");
regExp.SetGlobal(true);
regExp.SetPattern("(\d+\.?\d*|\.\d+)"); //选出其中的数字
CString testStr = "This 1dd3";
if(regExp.Test(testStr)) AfxMessageBox("ddd");

IMatchCollection** matches = ((IMatchCollection*)regExp.Execute(testStr));
IMatchCollection* matches = ((IMatchCollection**)regExp.Execute(testStr));
IMatchCollection matches = ((IMatchCollection)regExp.Execute(testStr));

matches 都是 0xcccccc
请再指教

在 vc 中 引用 vbscript.dll 做正则表达式 IMatchCollection 类的问题？

相关推荐

在 vc 中引用 vbscript.dll 做正则表达式 IMatchCollection 类的问题？