INIFile

INIFILE DLL (INIFI)

Klasse zum Parsen von Ini-Dateien in Visual Basic 5-6

Auch die Bibliotheksinifile.dll ist mit 1C 77 kompatibel

Setzen/Holen Sie sich den Pfad zur INI -Datei

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

Lesen und Parsen einer INI -Datei

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

Geladene Daten aus einer Datei

 Public Function Loaded() As Boolean

Überprüft, ob sich im Abschnitt Eigenschaften befindet

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

Gibt den Wert der Eigenschaft in einem bestimmten Abschnitt zurück

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

Wörterbuchvergleich

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

Holen Sie sich die Art der Eigenschaften

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

Const -Typen:

• Type_of_not_defined = -1
• Type_of_dictionary = 2
• Type_of_not_exist = 0
• Type_of_string = 1

Holen Sie sich Array -Daten in Form eines Wörterbuchs

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

Holen Sie sich Array -Daten in Form eines Arrays

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

Klasseneigenschaften

Format:

• 0 = TristateFalse - Standard. Öffnen Sie die Datei als ASCII
• -1 = Tristatetree - Öffnen Sie die Datei als Unicode
• -2 = tristateUseUsedEfault - Öffnen Sie die Datei mit dem System Standard

 Public Format As Integer

Erstellen Sie die Datei, wenn sie nicht existiert

• Richtig - erstellen
• Falsch - ignorieren

 Public Create As Boolean

Um ein vollständiges Datenwörterbuch zu exportieren

 Public Function Export() As Object

Beispiel

 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())