gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS读取配置文件配置项的实现代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

以下是一个读取配置文件的函数: 本函数仅适用于以下格式的配置文件(.ini,.txt,.inf)

[Mark1] key1=key1value key2=key2value ........ [Mark2] key1=key1value key2=key2value 。

核心代码 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
'************************************************************
'功能:读取配置文件(.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 。

使用以上函数即可获取 。

?
1
2
IP = GetConfig( "d:\config\environment.ini" , "Computer2" , "IP" )
Msgbox IP

好了到这里就完成了. 。

最后此篇关于VBS读取配置文件配置项的实现代码的文章就讲到这里了,如果你想了解更多关于VBS读取配置文件配置项的实现代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com