XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox: Textdatei (bis 32 KB) in eine Listbox einlesen
PRFellow-Vorlage
Autor: Thomas Hölzer
Textdatei (bis 32 KB) in eine ListBox einlesen
Parameter: 1 = Handle der ListBox, 2 = Dateiname, 3 = Löschflag
Wenn Parameter 3 <> 0, wird der ListBox-Inhalt immer erst gelöscht
Def LockWindowUpdate(1) !USER32,LockWindowUpdate
Declare buf#

Proc AddTextFileToListBox

    Parameters liste&,file$,reset%
    Declare tempedit&,size&,anzahlzeilen%,i%
    FindFirst$(file$)
    Case %IOResult: Return 0
    Case reset%: SendMessage(liste&,$0184,0,0) ListBox je nach Option leeren
    Let tempedit&=CreateMultiEdit(GetActiveWindow(),,0,0,0,1)
    FileMode 0
    Assign #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#) ... und in  temp. Edit schreiben
    Let anzahlzeilen%=SendMessage(tempedit&,$0BA,0,0)
    Dispose buf#
    LockWindowUpdate(liste&)  sieht per manchen Geschmack etwas besser aus

    While Lt(i%,anzahlzeilen%)

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

    Wend

    LockWindowUpdate(0)  nicht vergessen!
    DestroyWindow(tempedit&)  temp. Edit freigeben
    Return 1

EndProc

Beispiel
Declare listbox&
SetTrueColor 1
Cls RGB(192,192,192)
WindowTitle Add$(GetText$(%hwnd),  -  Powered by PRFellow 2001)
Let listbox&=CreateListBox(%hwnd,,110,20,400,400)
AddTextFileToListBox listbox&,Add$($WinPath,WIN.INI),1

While 1

    WaitInput

Wend