vbs include 问题

caspar

本来vbs是不能像C那样 include 但是通过ExecuteGlobal 就能实现调用自定义类和函数

但是一些奇怪的问题就来了...

因为要多次调用正则来获取文字, 自身懒, 想写少点代码, 就写了一个RegExp的Function 那以后要再用到的时候 直接include
RegExp的代码:

1. 
   
2. Public Function GetMatches(ByVal patrn, ByVal strng, ByRef MatchesCount, ByRef SubMatchesCount, ByVal regExIgnoreCase, ByVal regExGlobal)
   
3.     Dim regEx, Match, Matches            ' 建立变量。
   
4.     Dim arrMatch()
   
5. 
   
6.     Set regEx = New RegExp               ' 建立正则表达式。
   
7.     regEx.Pattern = patrn                ' 设置模式。
   
8.     IF regExIgnoreCase="" Then           ' 设置不区分字符大小写。
   
9.        regEx.IgnoreCase = True   
   
10.     ELSE
    
11.        regEx.IgnoreCase = regExIgnoreCase
    
12.     End IF                          
    
13.     IF regExGlobal="" Then
    
14.        regEx.Global = True
    
15.     ELSE
    
16.        regEx.Global = regExGlobal
    
17.     End IF                               ' 设置全局可用性。
    
18.    
    
19.     Set Matches = regEx.Execute(strng)   ' 执行搜索。
    
20.    
    
21.     MatchesCount=Matches.Count           ' 获取匹配数量
    
22.     SubMatchesCount=Matches(0).SubMatches.Count
    
23. 
    
24.     ReDim arrMatch(MatchesCount)
    
25.     ReDim arrMatch(Matches.count,SubMatchesCount)
    
26. 
    
27.     n=1     
    
28.     For Each Match in Matches           ' 遍历匹配集合。
    
29.         arrMatch(n,0)=Match.Value
    
30.         For t=1 to Match.SubMatches.Count
    
31.             arrMatch(n,t)=Match.submatches(t-1)
    
32.         next
    
33.         n=n+1
    
34.      Next
    
35.      
    
36.      Set regEx = Nothing
    
37.      GetMatches = arrMatch             ' 返回匹配矩阵
    
38. End Function

复制代码

但问题来了...include之后 调用这个函数...
例如

1. Dim arrMatches()
   
2. arrMatches=GetMatches(patrn,str,mcount,smcount,true,true)

复制代码

就会提示类型不匹配...有高手知道这是为什么么...?

zz100001

高手告诉你，问题在于，你的学问太渊博了。。。。
不需要管变量类型，把太细节的东西扔掉就好了，你要写成

1. Dim arrMatches
   
2. arrMatches=GetMatches(patrn,str,mcount,smcount,true,true)

复制代码

czjt1234

返回一个数组啊，不行吧

数组赋值不是这样赋的吧

我是新手啊，大概这么猜下，不确定

要不用join函数连接成一个字符串，返回后再处理？

Demon

高手教教我怎么include吧

caspar

回复 2# zz100001


  不用ByRef的话 那要获取匹配数 只能通过全局变量了吧....- -!

caspar

回复 3# czjt1234


    那样就更烦了...因为Matches的不确定性...后期处理字符串的时候太多种可能了....如果这样 不如直接每次New RegExp...

caspar

返回一个数组啊，不行吧

数组赋值不是这样赋的吧

我是新手啊，大概这么猜下，不确定

要不用join函 ...
czjt1234 发表于 2012-11-22 18:07

    函数返回值可以有几种方式的...可以返回一个集合 数组 字串 或者通过定义ByRef在调用函数时候把变量指针传递给函数 在函数内处理时候 直接改变父程序的变量内容
   又或者用一个更不好的方式...就是全局变量...但是这个比较蛋疼...尽量避免...

   但是因为vb的语法不严谨...所以很多时候类型会很模糊...

caspar

高手教教我怎么include吧
Demon 发表于 2012-11-22 18:10

把这个代码黏贴到程序里头 然后就能像C那样 include "程序"
可以自定义类 子程序 函数等....

1. Sub Include(sInstFile)
   
2.     On Error Resume Next
   
3. 
   
4.     Dim oFSO, f, s
   
5. 
   
6.     Set oFSO = CreateObject("Scripting.FileSystemObject")
   
7.     If oFSO.FileExists(sInstFile) Then
   
8.         Set f = oFSO.OpenTextFile(sInstFile)
   
9.         s = f.ReadAll
   
10.         f.Close
    
11.         ExecuteGlobal s
    
12.     End If
    
13.     Set oFSO = Nothing
    
14.     Set f = Nothing
    
15. End Sub

复制代码

caspar

通过子程序 ByRef 数组解决了....

czjt1234

不明白，子函数Sub本来就可以调用的啊

跟 include ExecuteGlobal 有什么关系？

CrLf

回复 8# caspar


    好办法…
目测 match 好像不能又 dim 又用在 for each 中

caspar

不明白，子函数Sub本来就可以调用的啊

跟 include ExecuteGlobal 有什么关系？
czjt1234 发表于 2012-11-23 08:21

    很是神奇.... 现在改成

1. Public Sub GetMatches(ByRef arrMatch(), ByRef patrn, ByVal strng, ByRef MatchesCount, ByRef SubMatchesCount, ByVal regExIgnoreCase, ByVal regExGlobal)
   

复制代码

传递数组指针过去 就能返回了....

caspar

回复  caspar


    好办法…
目测 match 好像不能又 dim 又用在 for each 中
CrLf 发表于 2012-11-23 09:39

    咕~~(╯﹏╰)b.....改改.....

Demon

把这个代码黏贴到程序里头 然后就能像C那样 include "程序"
可以自定义类 子程序 函数等....
caspar 发表于 2012-11-22 18:46

    学习了。