VBS读取配置文件配置项的实现代码

以下是一个读取配置文件的函数:
本函数仅适用于以下格式的配置文件(.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

好了到这里就完成了.

赞 (0)

相关推荐

  • VBS读取配置文件配置项的实现代码

    以下是一个读取配置文件的函数: 本函数仅适用于以下格式的配置文件(.ini,.txt,.inf): [Mark1] key1=key1value key2=key2value ........ [Mark2] key1=key1value key2=key2value 核心代码 '************************************************************ '功能:读取配置文件(.ini,.txt格式)的配置项的值,并返回值 '参数:FilePath

  • 用vbs读取Excel文件的函数代码

    核心代码 复制代码 代码如下: Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ) ' Function : ReadExcel ' Version : 2.00 ' This function reads data from an Excel sheet without using MS-Office ' ' Arguments: ' myXlsFile [string] The path and

  • SpringBoot读取配置文件的五种方法总结

    目录 1.使用 @Value 读取配置文件 2.使用 @ConfigurationProperties 读取配置文件 3.使用 Environment 读取配置文件 4.使用 @PropertySource 读取配置文件 中文乱码 注意事项 5.使用原生方式读取配置文件 总结 Spring Boot 中读取配置文件有以下 5 种方法: 使用 @Value 读取配置文件. 使用 @ConfigurationProperties 读取配置文件. 使用 Environment 读取配置文件. 使用 @

  • Python使用configparser库读取配置文件

    这篇文章主要介绍了Python使用configparser库读取配置文件,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 背景: 在写接口自动化框架,配置数据库连接时,测试环境和UAT环境的连接信息不一致,这时可以将连接信息写到conf或者cfg配置文件中 python环境请自行准备. python代码直接封装成类,方便其他模块的引入. from configparser import ConfigParser class DoConfig: d

  • C++读取配置文件的示例代码

    代码地址 https://github.com/gongluck/Code-snippet/tree/master/cpp/config 需求 开发中,读取配置文件信息必不可少.Windows平台有现成的API可用,也很方便.但是一旦项目迁移到Linux平台下,原先在Windows平台下的代码就全部作废.所以,实现一套跨平台的配置文件读取功能代码可以节省不少的劳动力. 实现 依赖于boost的ini_parser,可以实现跨平台读取ini格式的配置文件. // config.h /* * @Au

  • springboot如何读取自定义配置项

    我们springboot项目有自己默认的配置文件,一般地由application.yml和bootstrap.yml组成,前者是模块的配置,后者是微服务的配置,后台比前者先被框架加载. 我们有时需要自己定义配置,可能不是简单的字符串,它可能是一个对象,对象里有具体的配置段,它也是application.yml的一部分,你可以把自己的代码添加上,当然你也可以新建全新的文件. 例如,有一个配置由name和version组成,我们在application.yml里可以把它定义成project元素下面的

  • 详解SpringBoot读取配置文件的N种方法

    我们在项目开发中经常会用到配置信息,例如数据库连接的帐号.密码等,而为了方便维护,我们通常将这些信息放到配置文件中.在需要用到这些配置信息时,可以通过代码获取.下面我们看看Spring中有哪些获取配置信息的方法. PropertiesLoaderUtils读取 通过ClassPathResource加载配置文件资源,结合PropertiesLoaderUtils类读取,源码如下: ClassPathResource resource = new ClassPathResource("applic

  • SpringBoot 常用读取配置文件的三种方法详解

    目录 前言 一.使用 @Value 读取配置文件 二.使用 @ConfigurationProperties 读取配置文件 1.类上添加@Configuration注解 2.使用@EnableConfigurationProperties注解 3.使用@ConfigurationPropertiesScan扫描 三.使用 Environment 读取配置文件 四.常用的几种数据结构配置读取 我们在SpringBoot框架进行项目开发中该如何优雅的读取配置呢?或者说对于一些List或者Map应该如

  • SpringBoot加载读取配置文件过程详细分析

    目录 配置文件的读取顺序 多坏境的配置文件 个性化配置 自定义配置文件名称和路径 加载yml文件 springboot默认读取的配置文件名字是:“application.properties”和“application.yml”,默认读取四个位置的文件:根目录下.根目录的config目录下.classpath目录下.classpath目录里的config目录下: 配置文件的读取顺序 根目录/config/application.properties 根目录/config/application.

  • IIS7/iis7.5 HTTP Error 500.19 配置错误由于权限不足而无法读取配置文件的解决办法

    IIS7/iis7.5 HTTP Error 500.19 配置错误由于权限不足而无法读取配置文件的解决办法

    win7 web开发遇到的问题-由于权限不足而无法读取配置文件,无法访问请求的页面 错误一: HTTP Error 500.19 - Internal Server Error 配置错误: 不能在此路径中使用此配置节.如果在父级别上锁定了该节,便会出现这种情况.锁定是默认设置的 (overrideModeDefault="Deny"),或者是通过包含 overrideMode="Deny" 或旧有的 allowOverride="false" 的

随机推荐