请教各位高手关于引入vbs的问题

yuandjing

问题是这样的：
Private Function QTP_WriteFile(words)
        Dim fileSystemObj,fileSpec,logFile
        Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
        fileSpec = "C:\" &"测试报告QTP"& ".txt"
        Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
        logFile.WriteLine (CStr(words))
       
        logFile.Close
        Set logFile = Nothing
End Function

QTP_WriteFile("ddd")

以上这段代码我在QTP下输入并且运行是正确的，并且能写入文件

但是我把
Private Sub QTP_WriteFile(words)
        Dim fileSystemObj,fileSpec,logFile
        Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
        fileSpec = "C:\" &"测试报告QTP"& ".txt"
        Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
        logFile.WriteLine (CStr(words))
       
        logFile.Close
        Set logFile = Nothing
End Sub
这个函数写到了外部的vbs文件
再在QTP中引入vbs文件，
在QTP中执行：  QTP_WriteFile("ddd")
竟然报错“类型不匹配：QTP_WriteFile”

郁闷啊～～老半天找不到为什么，请各位高手帮忙啊

walker1020

谢谢yuandjing 共享了自己写的随机函数，这个的确比原来的函数好用多了

yuandjing

呵呵，最近想把QTP和ROBOT常用的函数都写成自己的vbs文件，以后就可以方便调用了
觉得QTP生成的随机函数不够随机
哈哈
我自己写了个
'随机函数生成
'输入值：生成值范围 i～j
'返回值：随机数
Public Function Get_RandNum(fromNum,toNum)
        Dim RunTime
        Randomize   
        RunTime = Int((10 * Rnd) + 1)
        Dim MyValue,i
        For i = 1 To RunTime
                Randomize  
                MyValue = Int(((toNum) * Rnd) + (fromNum))
        Next
   Get_randNum=Myvalue
End Function
哈哈，这样就随机很多了
嗯嗯，继续去写了，谢谢各位帮助

bobile

恩，上面说的是正确的

yuandjing

俄～～我晕了，唉，下午昏昏沉沉的，谢谢大家了

yabest

原帖由 yuandjing 于 2007-8-17 14:39 发表
问题是这样的：
Private Function QTP_WriteFile(words)
        Dim fileSystemObj,fileSpec,logFile
        Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
        fileSpec = "C:\" &"测试报告QTP"& ".tx ...

Privatesdlkfj3

winfood

原帖由 yuandjing 于 2007-8-17 14:39 发表
问题是这样的：
Private Function QTP_WriteFile(words)
        Dim fileSystemObj,fileSpec,logFile
        Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
        fileSpec = "C:\" &"测试报告QTP"& ".tx ...

如果你从Test -> Settings中引用这个VBS文件，就会失败。因为在VBS里面声明函数用了Private，这是私有类型。那个函数将不能被外部调用，正确的应该是Public。

如果用ExecuteFile方式引入这个VBS文件就不会有问题了。比如：
ExecuteFile "C:\" & "***.vbs"