XProfan

Proc AddTextFileToListBox

    Parameters liste&,file$,reset%
    Declare tempedit&,size&,anzahlzeilen%,i%,buf#
    FindFirst$(file$)
    Case %IOResult: Return 0
    Case reset%: SendMessage(liste&,$0184,0,0)'ListBox je nach Option leeren
    Let tempedit&=Create("MultiEdit",GetActiveWindow(),"",0,0,0,1)
    Set("FileMode",0)
    Assign #1,file$
    OpenRW #1
    size&=GetFileSize(#1)
    Dim buf#,size&+1
    BlockRead(#1,buf#,0,size&)' Dateiinhalt einlesen...
    CloseRW #1
    SendMessage(tempedit&,$0C,0,buf#)'... und in  temp. Edit schreiben
    anzahlzeilen%=SendMessage(tempedit&,$0BA,0,0)
    Dispose buf#

    While i%<anzahlzeilen%

        AddString(liste&,GetString$(tempedit&,i%))
        Inc i%

    Endwhile

    DestroyWindow(tempedit&)' temp. Edit freigeben
    Return 1

EndProc

Proc Delete_Double_Entries

    Parameters liste&
    var counter%=0

    while counter%<>Getcount(liste&)-1

        if GetString$(liste&,counter%)=GetString$(liste&,counter%+1)

            DeleteString(liste&,counter%)

        else

            counter%=counter%+1

        Endif

    Endwhile

    Return 1

EndProc

Cls
var listbox&=Create("ListBox",%hwnd,1,0,30,width(%hwnd),height(%hwnd)-30)
AddTextFileToListBox(listbox&,$WinPath+"\WIN.INI",1)

whileloop 10

    AddString(listbox&,"Das ist ein Test")

Endwhile

print "Win.ini + 10 mal den String 'Das ist ein Test' eingeladen..."
waitinput
Delete_Double_Entries(listbox&)
print "Doppelte Listebox-Einträge entfernt"

While 1

    WaitInput

s4 href='./../../funcion-referencias/XProfan/endwhile/'>Endwhile