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 - افتح الملف كحوض يونيكود
• -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())