INIFile

infile dll（inifi）

在Visual Basic 5-6中解析INI文件的类

另外库infile.dll与1C 77兼容

设置/获取通往INI文件的路径

 Public Sub SetPath(inputPath)
Public Function GetPath() As String

阅读和解析INI文件

 Public Function Load() As Boolean
Public Function LoadFrom(filePath) As Boolean

从文件加载数据

 Public Function Loaded() As Boolean

检查部分内部是否有属性

 Public Function E(sectionName, Optional propertyName) As Boolean
Public Function ExistProperty(sectionName, Optional propertyName) As Boolean

在特定部分中返回属性的价值

 Public Function G(sectionName, Optional propertyName) As String
Public Function GetProperty(sectionName, Optional propertyNam) As String

字典比较词

 Public Function GetCompareMode() As Byte
Public Function SetCompareMode(mode) As Boolean

获取属性的类型

 Public Function TOP(sectionName, Optional propertyName) As Integer
Public Function TypeOfProperty(sectionName, Optional propertyName) As Integer

const类型：

• type_of_not_defined = -1
• type_of_dictionary = 2
• type_of_not_exist = 0
• type_of_string = 1

以字典的形式获取数组数据

 Public Function GD(sectionName, Optional propertyName) As Object
Public Function GetDictionary(sectionName, Optional propertyName) As Object

以数组的形式获取数组数据

 Public Function GA(sectionName, Optional propertyName)
Public Function GetArray(sectionName, Optional propertyName)

类属性

格式：

• 0 = tristatefalse-默认值。以ASCII打开文件
• -1 = tristateTrue-以unicode打开文件
• -2 = tristateusedefault-使用系统默认

 Public Format As Integer

如果文件不存在，则创建文件

• 正确 - 创建
• 错误 - 忽略

 Public Create As Boolean

导出完整的数据字典

 Public Function Export() As Object

例子

 Set FSO = CreateObject("Scripting.FileSystemObject")
Set ini = CreateObject("INIFile.INIFI")
ini.SetPath (FSO.GetAbsolutePathName(FSO.BuildPath(app.Path, app.EXEName & ".ini")))
ini.Create = True
ini.Format = -2 'Cyrillic
status = ini.SetCompareMode(vbTextCompare)
MsgBox CStr(ini.Load())