用vbs实现文本循环读取

因为测试中需要读取一批URL数据进行浏览，其实使用QTP本身的table能实现多种读取方式，但是因为需要tabel是使用excel保存的，在没有安装excel的机器或者vsita机器上运行该部分脚本会遇到问题，为了不必要的麻烦，因而使用txt保存网址数据。

但是vbs好像没有提供设置文件读取位置的函数(python提供)，网上没有找到这块可用的代码，可能大家基本没有我这么低级的需求吧囧rz……，后来还是搞定了，所以将代码贴出来，以作备忘。其实核心就是发现读取到文本的最后一行，那么重新打开该文件即可。

代码：

Call GetIni("d://test.txt") Function GetIni(strIniFilePath ) Const ForReading = 1 Const TriStateTrue = -2 Dim myFso Dim MyFile Set myFso = CreateObject("Scripting.FileSystemObject") Set MyFile = myFso.OpenTextFil(strIniFilePath,ForReading,False,TriStateTrue) GetIni = MyFile.ReadLine() If MyFile.AtEndOfStream=True Then Set MyFile = Nothing Set MyFile = myFso.OpenTextFile(strIniFilePath,ForReading,False,TriStateTrue) End If MyFile.Close Set MyFile = Nothing Set myFso = Nothing End Function