Hallo Experten,
mit folgenden Code schreibe/lese ich Informationen in/aus eine Datei:
Module Allgemein
Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
Dim strTemp As String = Space(1024), lLength As Integer
lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
Return (strTemp.Substring(0, lLength))
End Function
Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0))
End Function
End Module
dabei wird folgende Datei(Auszug, das Original ist ewig lang) erstellt;
[Definition Tags Tree]
[BODY]
BACKCOLOR=Black
FORECOLOR=White
[HTML]
BACKCOLOR=Black
FORECOLOR=White
[HEAD]
BACKCOLOR=Black
FORECOLOR=White
[TITLE]
BACKCOLOR=#A5A5A5
FORECOLOR=White
...
Jetzt meine Frage. Gibt es eine direkte Möglichkeit alle strKey ( das wären die [BODY];[HTML];[HEAD];etc) auszulesen? Mir ist klar, das ich die "Text"-Datei einfach einlesen könnte und nach den Klammern [...] suchen und selektieren könnte.
Aber, vielleicht gibt es ja auch eine "richtige" Methode.
Danke vorab ... mfg eem monarch
