如何画眉,煤矿井下窒息事故,营销中国
因为测试中需要读取一批url数据进行浏览，其实使用qtp本身的table能实现多种读取方式，但是因为需要tabel是使用excel保存的，在没有安装excel的机器或者vsita机器上运行该部分脚本会遇到问题，为了不必要的麻烦，因而使用txt保存网址数据。
但是vbs好像没有提供设置文件读取位置的函数(python提供)，网上没有找到这块可用的代码，可能大家基本没有我这么低级的需求吧囧rz……，后来还是搞定了，所以将代码贴出来，以作备忘。其实核心就是发现读取到文本的最后一行，那么重新打开该文件即可。
代码：
我要评论
msgbox(getini("d://vbscript//config.txt"))
function getini(strinifilepath )
const forreading = 1
const tristatetrue = -2
dim myfso
dim myfile
set myfso = createobject("scripting.filesystemobject")
set myfile = myfso.opentextfile(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
config.txt
https://www.jb51.net
上面的代码比较简单，而且只能获取到第一行的数据，推荐大家用下面的代码实现配置文件读取
以下是一个读取配置文件的函数:
本函数仅适用于以下格式的配置文件(.ini,.txt,.inf):
[mark1]
key1=key1value
key2=key2value
........
[mark2]
key1=key1value
key2=key2value
核心代码
'************************************************************
'功能:读取配置文件(.ini,.txt格式)的配置项的值,并返回值
'参数:filepath - 配置文件的完整路径
' mark - 配置开始标记
' key - 需要获取的配置项名称
'调用方法:ret = getconfig("d:\configure.ini","computer","ip")
'作者:虎肖至尊
'日期:2013-06-20
'************************************************************
function getconfig(filepath,mark,key)
dim fso, str_readline
set fso = createobject("scripting.filesystemobject")
'判断配置文件是否存在
if fso.fileexists(filepath) then
'初始化配置标记,默认为未找到
flag = 0
'打开配置文件
set configfile = fso.opentextfile(filepath, 1)
'循环读取文件数据行
do
str_readline = configfile.readline
wscript.echo str_readline
'判断读取的数据行是否为空
if str_readline <> "" then
'判断读取数据行是否为需要查找的配置开始标记
if lcase(trim(str_readline))="[" & lcase(mark) & "]" then
'找到配置开始标记
flag = 1
'循环读取当前配置开始标记下的配置项,直到在当前配置标记下找到所需配置项
'或下一个配置项开始标记出现时退出
do
str_readline = configfile.readline
retnum = instr(str_readline,"=")
'检查读取的配置项是否有等号
if retnum > 0 then
'判断获取配置项名称是否为所需的配置项
if trim(lcase(left(str_readline,retnum-1)))= trim(lcase(key)) then
'获取配置项等号后的数据
getconfig = trim(right(str_readline,len(str_readline)-retnum))
'找到后,退出函数
exit function
end if
end if
'判断当前是否为下一个配置项开始标记
if (instr(str_readline,"[")>0 and instr(str_readline,"]")>0) then
'标记当前配置项开始标记为下一个配置
flag = 0
'退出函数
exit function
end if
loop until (flag = 0 or configfile.atendofstream)
end if
end if
loop until configfile.atendofstream
'关闭文件
configfile.close
set fso = nothing
else
'文件未找到,给出提示信息
msgbox "配置文件"&"[" & filepath &"]不存在,请检查路径是否正确."
end if
end function
实例:
我们需要读取d:\config\environment.ini文件的[computer2]下的ip项的值,文件内容如下:
[computer1]
computername=computer1
ip=192.168.1.1
[computer2]
computername=computer2
ip=192.168.1.2
使用以上函数即可获取
ip = getconfig("d:\config\environment.ini","computer2","ip")
msgbox ip
好了到这里就完成了.
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复
网友评论