软件测试论坛 › [QuickTest Professional] › 报错内存不足

yakezone 发表于 2011-8-12 14:57:27

报错内存不足

Dim fso, MyFile,tmp,i
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("c:\test\log\tmp.txt", 1 , False)
i = 0       
Dim AllDisk()       
Do Until MyFile.AtEndOfLine               
                tmp=MyFile.ReadLine
                If tmp="ls /dev | grep -i sd$" Then
                else
                                Redim Preserve AllDisk(i)       
                                AllDisk(i) = "/dev/"&tmp       
                                i = i + 1
                End If
loop
i = i - 2
Redim Preserve AllDisk(i)
MyFile.Close

执行到红色的那里 报错了。 内存不足。。
什么情况。 上午用的时候还正常

yakezone 发表于 2011-8-12 17:28:06

概率性出现。出现是因为do...loop这个段循环未执行，而直接执行了下面的-2。
偶尔会出现这种情况。   原因没弄明白。

heqingbluesky 发表于 2011-8-14 11:56:22

重启QTP试试，变量不是动态加载的，所以内存用完了。

查看完整版本: 报错内存不足