VBS获取Ini配置文件一个节点下的所有字段的值


‘* 功能:使用VBS读取ini文件中指定节点下的所有值
‘* 输入参数:inipath :ini文件的地址
‘*           initypes :ini文件中包含在"["和"]"之间的值
‘* 返回值:找到的字段的值组成的array
‘* 编写人:  chenyb
‘* 编写日期:2008-12-26
‘* 其他说明:以下只是方法,具体问题具体修改

Function vbsGetIniFields(inipath,initypes)
 Const ForReading = 1 ‘定义常量
 ‘FSO对象,文本对象,下一行数据变量,字串搜索位置
 Dim objFSO,objTextFile,strNextLine,intLineFinder
 Dim state  ‘指定是否在匹配的initypes中是否找到字段
 Dim tmp    ‘临时存储字符串
 Dim typeList ‘分割字符串后的字串list
 Dim rsStr    ‘函数返回值
 Set objFSO = CreateObject("Scripting.FileSystemObject") ‘建立FSO对象
 Set objTextFile = objFSO.OpenTextFile(inipath, ForReading)‘打开文档
 Do Until objTextFile.AtEndOfStream   ‘遍历每一行
  strNextLine = objTextFile.ReadLine ‘读取一行数据
  ‘如果已经找到了initypes,又找到了"[]",那说明字段未找到
  If InStr(strNextLine, "[") <> 0 And InStr(strNextLine, "]") <> 0 Then
      If state = 1 Then
          Exit DO
      End if
      tmp = Trim(Mid(Trim(strNextLine),InStr(strNextLine, "[")+1,Len(initypes)))    
      if tmp = Trim(initypes) Then ‘找到了initypes  
          state = 1
          strNextLine = objTextFile.ReadLine
      End if
  End if
  
  If state = 1 Then  
   intLineFinder = InStr(strNextLine,"=") ‘搜索字符串中的"="
   If intLineFinder <> 0 Then ‘如果找到"="
       typeList = Split(strNextLine,"=") ‘分割字符串
       rsStr =rsStr & ",""" & typeList(1) & """" ‘赋值 
   End If
  End if
 Loop 
 objTextFile.Close ‘关闭文档
 Execute "vbsGetIniFields = Array(" & right(rsStr,Len(rsStr) - 1) & ")" ‘返回值
End Function
‘***********使用示例******************************
Dim t
t = vbsGetIniFields("公诉.ini","包括VBS")
MsgBox UBound(t)
MsgBox t(0)
MsgBox t(1)
‘*************************************************

VBS获取Ini配置文件一个节点下的所有字段的值

时间: 2024-11-05 20:35:26

VBS获取Ini配置文件一个节点下的所有字段的值的相关文章

jQuery获取元素上一个、下一个、父元素、子元素

jQuery.parent(expr),找父亲节点,可以传入expr进行过滤,比如$("span").parent()或者$("span").parent(".class") jQuery.parents(expr),类似于jQuery.parents(expr),但是是查找所有祖先元素,不限于父元素 jQuery.children(expr),返回所有子节点,这个方法只会返回直接的孩子节点,不会返回所有的子孙节点 jQuery.contents

取某一个节点下的所有子节点

using System.Xml; using System.Xml.Linq; XmlDocument document = new XmlDocument(); document.Load("SessionDef.xml"); XmlNodeList nodelist = document.SelectSingleNode("SessionGroup").ChildNodes; foreach (XmlNode node in nodelist) { strin

sql 递归(查找一个节点下的所有节点)

--这是查找菜单 第一行是一级菜单,下面是二级菜单 with temp as ( select MenuCode,ParentCode,MenuName,URL,1 as curMenuLevel from sys_menu where (ParentCode is null or ParentCode = '') and MenuCode='pms' union all select a.MenuCode,a.ParentCode,a.MenuName,a.URL, b.curMenuLeve

Python中操作ini配置文件

这篇博客我主要想总结一下python中的ini文件的使用,最近在写python操作mysql数据库,那么作为测试人员测试的环境包括(测试环境,UAT环境,生产环境)每次需要连接数据库的ip,端口,都会不同,那么如何方便的来修改这些内容,就想到了配置文件,接下来我们就了解一下python中的配置文件ini吧 ini配置文件常被用作存储程序中的一些参数,通过它,可以将经常需要改变的参数保存起来 ini文件分为两个部分,一部分是section,一部分是key,value 格式就是: [section1

GetPrivateProfileString函数--INI配置文件

GetPrivateProfileString函数用于获取INI配置文件中的内容. DWORD GetPrivateProfileString( LPCTSTR lpAppName, //INI文件中的一个字段名. LPCTSTR lpKeyName, //是lpAppName下的一个键名,通俗讲就是变量名. LPCTSTR lpDefault, //如果INI文件中没有前两个参数指定的字段名或键名,则将此值赋给变量. LPTSTR lpReturnedString, //接收INI文件中的值的

javascript 获取dom书的下一个节点。

利用javascript 写一个在页面点击加减按钮实现数字的累加.. 简略的html大概如此.看得懂就好不要在意这些细节啊 1 <input type="button" value="+" onclick="jia(this)" /> 2 <label class="num">0</label> 3 <input type="button" value="

xml 方式更新和获取 配置文件 appSettings 节点 解决办法

最近在搞一个小程序,会用到动态修改配置文件来进行处理,在百度上找了很多办法,但是始终达不到我预想的效果,先列出程序运行环境和开发工具版本: 开发工具:VS2010 .Net 运行环境:4.0 有两种方式,分别如下: 第一种方式:只能在程序运行和调试时有效,在程序打包成安装包并安装之后会出现问题,完整代码如下: /// <summary> /// 设置配置文件key对应的值 /// </summary> /// <param name="key">键&

操作ini配置文件设计一个最基本的可视化数据库系统

对于很多小项目来说,不需要搭建专门的数据库系统(例如用SQLite搭建本地数据库),这时可以用ini配置文件实现一个最基本的数据库,实现数据库最基本的增删改查功能. ini配置文件的用法参考我以前写的文章:http://www.cnblogs.com/xh6300/p/5895759.html 这种配置文件的结构如下: [section1] key1=value1 key2=value2 [section2] key3=value3 key4=value4 …… 具体配置文件如下: 如果要想让这

表格中等宽单元格td之---获取节点下字符串的宽度

当我们给了table一个固定宽度时或者宽度为100%时,如果不给tr和td固定的width.height.table内部的tr和td会根据其自身的内容自动适应宽度和高度,项目中提出了一个需求,想让table中的某些tr(或者td)的宽度根据这些部分的内容,选出最大宽度,在赋值给这几个tr(或者td),从而做到部分tr(或者td)等宽 原图是这样的:产量列下的td长短不一 解决办法: (一)首先我想到了table的 标签自己的属性: table-layout:fixed ; 此属性可以让table