XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Listbox: Textdatei (jusqu'à 32 KB) dans une Listbox einlesen
PRFellow-Présentation
Autor: Thomas Bois
Textdatei (jusqu'à 32 KB) dans une ListBox einlesen
paramètre: 1 = Handle qui ListBox, 2 = Dateiname, 3 = Löschflag
si paramètre 3 <> 0, wird qui ListBox-le contenu toujours seulement gelöscht
Def LockWindowUpdate(1) !USER32,LockWindowUpdate
Déclarer buf#

Proc AddTextFileToListBox

    Paramètres liste&,file$,reset%
    Déclarer tempedit&,size&,anzahlzeilen%,i%
    $ FindFirst(file$)
    Cas %IOResult: Retour 0
    Cas reset%: SendMessage(liste&,$0184,0,0) ListBox je pour Option vider
    Laisser tempedit&=CreateMultiEdit(GetActiveWindow(),,0,0,0,1)
    FileMode 0
    Assign #1,file$
    OpenRW #1
    Laisser size&=GetFileSize(#1)
    Faible buf#,Ajouter(size&,1)
    BlockRead(#1,buf#,0,size&)  Dateiinhalt einlesen...
    CloseRW #1
    SendMessage(tempedit&,$0C,0,buf#) ... et dans  temp. Éditer écrivons
    Laisser anzahlzeilen%=SendMessage(tempedit&,$0BA,0,0)
    Dispose buf#
    LockWindowUpdate(liste&)  sieht pour manchen Geschmack quelque chose besser aus

    Tandis que Lt(i%,anzahlzeilen%)

        AddStrings(liste&,GetLine$(tempedit&,i%))
        Inc i%

    Wend

    LockWindowUpdate(0)  pas oublier qc!
    DestroyWindow(tempedit&)  temp. Éditer freigeben
    Retour 1

ENDPROC

Beispiel
Déclarer listbox&
SetTrueColor 1
Cls RGB(192,192,192)
Titre de la fenêtre Ajouter$(GetText $(%hwnd),  -  Powered by PRFellow 2001)
Laisser listbox&=CreateListBox(%hwnd,,110,20,400,400)
AddTextFileToListBox listbox&,Ajouter$($WinPath,WIN.INI),1

Tandis que 1

    WaitInput

Wend