INIFile

inifile dll (inifi)

คลาสสำหรับการแยกวิเคราะห์ไฟล์ ini ใน Visual Basic 5-6

นอกจากนี้ไลบรารี inifile.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())