XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Alle Sektionsnamen einer INI-Datei auslesen
PRFellow-Vorlage
Autor: Thomas Hölzer
Alle Sektionsnamen einer INI-Datei auslesen
Def GetPrivateProfileSectionNames(3) !KERNEL32,GetPrivateProfileSectionNamesA
Declare file#,buffer#,penv&,text$,laenge%,break%
Cls
Dim buffer#,2048   sicherheitshalber ziemlich hoch gesetzt
GetPrivateProfileSectionNames(buffer#,2048,0)
statt 0 kann als 3. Parameter ein Bereich angegeben werden,
der einen selbstdefinierten
Inidateinamen enthält, siehe 2. Beispiel
Let laenge%=0

WhileNot break%

    Let text$=String$(buffer#,laenge%)

    If Equ$(text$,)

        Let break%=1

    Else

        Add laenge%,Len(text$)
        Inc laenge%

    EndIf

    Addstring text$

Wend

ListBox$(WIN.INI-Sektionen,2)
2. Beispiel:
Clear buffer#
ClearList
Dim file#,16
String file#,0=SYSTEM.INI
GetPrivateProfileSectionNames(buffer#,2048,file#)
Let laenge%=0
Let break%=0

WhileNot break%

    Let text$=String$(buffer#,laenge%)

    If Equ$(text$,)

        Let break%=1

    Else

        Add laenge%,Len(text$)
        Inc laenge%

    EndIf

    Addstring text$

Wend

Dispose file#
Dispose buffer#
ListBox$(SYSTEM.INI-Sektionen,2)