2 Fragen zu Sektionen

Um in VB.NET 2003 alle Sektionen (Sections) einer INI-Datei aufzulisten, kannst du die Windows-API-Funktion `GetPrivateProfileSectionNames` verwenden. Diese Funktion liest alle Sektionsnamen aus einer INI-Datei in einen Puffer ein. Hier ein Beispiel, wie das geht: ```vbnet Imports System.Runtime.InteropServices Imports System.Text Public Class IniReader <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> Private Shared Function GetPrivateProfileSectionNames( ByVal lpszReturnBuffer As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer End Function Public Shared Function GetSections(ByVal iniPath As String) As List(Of String) Dim maxBuffer As Integer = 32767 Dim buffer As New StringBuilder(maxBuffer) Dim bytesReturned As Integer = GetPrivateProfileSectionNames(buffer, maxBuffer, iniPath) Dim sections As New List(Of String)() If bytesReturned > 0 Then Dim sectionNames As String() = buffer.ToString().Substring(0, bytesReturned).Split(Chr(0)) For Each section As String In sectionNames If section.Length > 0 Then sections.Add(section) End If Next End If Return sections End Function End Class ``` **Verwendung:** ```vbnet Dim sections As List(Of String) = IniReader.GetSections("C:\Pfad\zur\deiner.ini") For Each section As String In sections Console.WriteLine(section) Next ``` **Hinweise:** - Der Pfad zur INI-Datei muss korrekt angegeben werden. - Die Funktion gibt eine Liste aller Sektionsnamen zurück. - Diese Lösung funktioniert unter Windows, da sie auf die Windows-API zugreift. Weitere Infos zur API-Funktion findest du z.B. in der [Microsoft-Dokumentation](https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getprivateprofilesectionnames).

Um mit VB.NET 2003 eine Liste aller Sektionen (Sections) einer INI-Datei zu erhalten, kannst du die Windows-API-Funktion `GetPrivateProfileSectionNames` verwenden. Diese Funktion liest alle Sektionsnamen aus einer INI-Datei in einen Puffer ein. Hier ein Beispiel, wie das geht: ```vb.net Imports System.Runtime.InteropServices Imports System.Text Public Class IniReader <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> Private Shared Function GetPrivateProfileSectionNames( ByVal lpszReturnBuffer As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer End Function Public Shared Function GetSections(ByVal iniPath As String) As List(Of String) Dim maxBuffer As Integer = 32767 Dim buffer As New StringBuilder(maxBuffer) GetPrivateProfileSectionNames(buffer, maxBuffer, iniPath) Dim sections() As String = buffer.ToString().Split(Chr(0)) Dim result As New List(Of String) For Each section As String In sections If section.Length > 0 Then result.Add(section) End If Next Return result End Function End Class ``` **Verwendung:** ```vb.net Dim sections As List(Of String) = IniReader.GetSections("C:\Pfad\zur\deiner.ini") For Each section As String In sections Console.WriteLine(section) Next ``` **Hinweise:** - Der Pfad zur INI-Datei muss korrekt angegeben werden. - Die Funktion gibt eine Liste aller Sektionsnamen zurück. - Diese Lösung funktioniert unter Windows, da sie auf die Windows-API zugreift. Weitere Informationen zur API findest du z.B. in der [Microsoft-Dokumentation](https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getprivateprofilesectionnames).