• 售前

  • 售后

热门帖子
入门百科

用vbs实现文本循环读取

[复制链接]
敢想敢做敢拼 显示全部楼层 发表于 2021-8-19 18:53:28 |阅读模式 打印 上一主题 下一主题
因为测试中须要读取一批URL数据进行浏览,实在使用QTP自己的table能实现多种读取方式,但是因为须要tabel是使用excel生存的,在没有安装excel的呆板大概vsita呆板上运行该部门脚本会碰到问题,为了不须要的麻烦,因而使用txt生存网址数据。
但是vbs好像没有提供设置文件读取位置的函数(python提供),网上没有找到这块可用的代码,大概各人根本没有我这么低级的需求吧囧rz……,后来照旧搞定了,所以将代码贴出来,以作备忘。实在核心就是发现读取到文本的末了一行,那么重新打开该文件即可。
代码:
  1. msgbox(GetIni("d://vbscript//config.txt"))
  2. Function GetIni(strIniFilePath )
  3. Const ForReading = 1
  4. Const TriStateTrue = -2
  5. Dim myFso
  6. Dim MyFile
  7. Set myFso = CreateObject("Scripting.FileSystemObject")
  8. Set MyFile = myFso.OpenTextFile(strIniFilePath,ForReading,False,TriStateTrue)
  9.    GetIni = MyFile.ReadLine()
  10.    If MyFile.AtEndOfStream=True Then
  11.                    Set MyFile = Nothing
  12.                    Set MyFile = myFso.OpenTextFile(strIniFilePath,ForReading,False,TriStateTrue)
  13.    End If
  14. MyFile.Close
  15. Set MyFile = Nothing
  16. Set myFso = Nothing
  17. End Function
复制代码
config.txt
  1. https://www.jb51.net
复制代码
上面的代码比力简单,而且只能获取到第一行的数据,推荐各人用下面的代码实现配置文件读取
以下是一个读取配置文件的函数:
本函数仅实用于以下格式的配置文件(.ini,.txt,.inf):
  1. [Mark1]
  2. key1=key1value
  3. key2=key2value
  4. ........
  5. [Mark2]
  6. key1=key1value
  7. key2=key2value
复制代码
核心代码
  1. '************************************************************
  2. '功能:读取配置文件(.ini,.txt格式)的配置项的值,并返回值
  3. '参数:FilePath - 配置文件的完整路径
  4. ' Mark - 配置开始标记
  5. ' Key - 需要获取的配置项名称
  6. '调用方法:Ret = GetConfig("d:\configure.ini","Computer","IP")
  7. '作者:虎肖至尊
  8. '日期:2013-06-20
  9. '************************************************************
  10. Function GetConfig(FilePath,Mark,Key)
  11. Dim fso, Str_ReadLine
  12. Set fso = CreateObject("Scripting.FileSystemObject")
  13. '判断配置文件是否存在
  14. If fso.FileExists(FilePath) Then
  15. '初始化配置标记,默认为未找到
  16. Flag = 0
  17. '打开配置文件
  18. Set ConfigFile = fso.opentextfile(FilePath, 1)
  19. '循环读取文件数据行
  20. Do
  21. Str_ReadLine = ConfigFile.ReadLine
  22. WScript.Echo Str_ReadLine
  23. '判断读取的数据行是否为空
  24. If Str_ReadLine <> "" Then
  25. '判断读取数据行是否为需要查找的配置开始标记
  26. If LCase(Trim(Str_ReadLine))="[" & Lcase(Mark) & "]" Then
  27. '找到配置开始标记
  28. Flag = 1
  29. '循环读取当前配置开始标记下的配置项,直到在当前配置标记下找到所需配置项
  30. '或下一个配置项开始标记出现时退出
  31. Do
  32. Str_ReadLine = ConfigFile.ReadLine
  33. retNum = InStr(Str_ReadLine,"=")
  34. '检查读取的配置项是否有等号
  35. If retNum > 0 Then
  36. '判断获取配置项名称是否为所需的配置项
  37. If Trim(LCase(Left(Str_ReadLine,retNum-1)))= Trim(LCase(Key)) Then
  38. '获取配置项等号后的数据
  39. GetConfig = Trim(Right(Str_ReadLine,Len(Str_ReadLine)-retNum))
  40. '找到后,退出函数
  41. Exit Function
  42. End If
  43. End If
  44. '判断当前是否为下一个配置项开始标记
  45. If (InStr(Str_ReadLine,"[")>0 And InStr(Str_ReadLine,"]")>0) Then
  46. '标记当前配置项开始标记为下一个配置
  47. Flag = 0
  48. '退出函数
  49. Exit Function
  50. End If
  51. Loop Until (Flag = 0 Or ConfigFile.AtEndOfStream)
  52. End If
  53. End If
  54. Loop Until ConfigFile.AtEndOfStream
  55. '关闭文件
  56. ConfigFile.Close
  57. Set fso = Nothing
  58. Else
  59. '文件未找到,给出提示信息
  60. MsgBox "配置文件"&"[" & FilePath &"]不存在,请检查路径是否正确."
  61. End If
  62. End Function
复制代码
实例:
我们须要读取d:\config\environment.ini文件的[Computer2]下的IP项的值,文件内容如下:
  1. [Computer1]
  2. ComputerName=Computer1
  3. IP=192.168.1.1
  4. [Computer2]
  5. ComputerName=Computer2
  6. IP=192.168.1.2
复制代码
使用以上函数即可获取
  1. IP = GetConfig("d:\config\environment.ini","Computer2","IP")
  2. Msgbox IP
复制代码
好了到这里就完成了.

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作