XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Listbox: Textdatei (a 32 KB) en una Listbox einlesen
PRFellow-Presentación
Autor: Thomas Hölzer
Textdatei (a 32 KB) en una ListBox einlesen
Parámetro: 1 = Handle el ListBox, 2 = Dateiname, 3 = Löschflag
Wenn Parámetro 3 <> 0, se el ListBox-Inhalt siempre sólo gelöscht
Def LockWindowUpdate(1) !USER32,LockWindowUpdate
Declarar buf#

Proc AddTextFileToListBox

    Parámetros liste&,file$,reset%
    Declarar tempedit&,size&,anzahlzeilen%,i%
    FindFirst$(file$)
    Case %IOResult: Volver 0
    Case reset%: SendMessage(liste&,$0184,0,0) ListBox je después de Opción leeren
    Let tempedit&=CreateMultiEdit(GetActiveWindow(),,0,0,0,1)
    FileMode 0
    Asignar #1,file$
    OpenRW #1
    Let size&=GetFileSize(#1)
    Dim buf#,Add(size&,1)
    BlockRead(#1,buf#,0,size&)  Dateiinhalt einlesen...
    CloseRW #1
    SendMessage(tempedit&,$0C,0,buf#) ... y en  temp. Editar escribir
    Let anzahlzeilen%=SendMessage(tempedit&,$0BA,0,0)
    Disponer buf#
    LockWindowUpdate(liste&)  sieht para manchen Geschmack algo mejor de

    Mientras que Lt(i%,anzahlzeilen%)

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

    Wend

    LockWindowUpdate(0)  no vergessen!
    DestroyWindow(tempedit&)  temp. Editar liberación
    Volver 1

ENDPROC

Ejemplo
Declarar listbox&
SetTrueColor 1
Cls RGB(192,192,192)
Título de la ventana Add$(GetText $(%hwnd),  -  Powered by PRFellow 2001)
Let listbox&=CreateListBox(%hwnd,,110,20,400,400)
AddTextFileToListBox listbox&,Add$($WinPath,WIN.INI),1

Mientras que 1

    WaitInput

Wend