51Testing软件测试论坛

标题: 请问如何取出datatable中的语句并运行（问题自我解决） [打印本页]

作者: 梦醒十分 时间: 2006-10-22 09:53
标题: 请问如何取出datatable中的语句并运行（问题自我解决）
在datatable中假设有一个语句如：msgbox "aaa"
那么如何让QTP取出此段并运行呢？
请各位做答。
谢谢

[ 本帖最后由梦醒十分于 2006-10-24 13:59 编辑 ]

作者: xiaonan 时间: 2006-10-23 09:14
这样取出来的,QTP只会把它作为一个字符.

作者: 梦醒十分 时间: 2006-10-23 15:05
是呀，所以想办法把它自动前后加sub XXX() end sub，然后写出到txt然后，再调用。

作者: 梦醒十分 时间: 2006-10-24 13:59
rownumber=DataTable.GetRowCount
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
string1="sub aaa"
string2="end sub"
MyFile.WriteLine(string1)
for i=1 to rownumber
DataTable.SetCurrentRow (i)
mystring=datatable.Value("A",dtGlobalSheet )

MyFile.WriteLine(mystring)
next
MyFile.WriteLine(string2)
MyFile.Close

ExecuteFile "c:\testfile.txt"
aaa

想了半天只能读出到txt再读入了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)