PureBoard

Verfasst: **19.02.2006 20:30**

OpenWindow(4,100,120,300,300,#PB_Window_MinimizeGadget,"Alle anzeigen") 

If CreateGadgetList(WindowID(4)) 
 ListIconGadget(0,20,20,250,250,"Dateiname", 110, #LVS_SORTASCENDING | #PB_ListIcon_GridLines ) 
  AddGadgetColumn(0, 1,"Inhalt", 118)
EndIf 




If ExamineDirectory(0, "data\data","*.dat") 
    Repeat 
       FileType = NextDirectoryEntry() 
       If FileType 
                AddGadgetItem(0,-1,DirectoryEntryName()+Chr(10)+hier$) 
          While WindowEvent(): Wend 
       EndIf 
    Until FileType = 0 
EndIf 


Repeat 
   EventID.l = WaitWindowEvent() 
   If EventID = #PB_EventCloseWindow : End : EndIf 
ForEver

Hi kleine Frage, ist es möglich während er die Dateien auflistet, die dateien zu öffnen, und die erste Zeile jeder Datei zu lesen mit ReadString() und in das Zweite Colum zu schreiben?.

Verfasst: **19.02.2006 20:41**

Klar:
Du fügst folgendes in deinen Code ein:

Code: Alles auswählen

if readfile(1,"data\data\"+directoryentryname())
hier$=readstring()
closefile(1)
endif

Verfasst: **19.02.2006 20:44**

Vielen Dank!

Funktioniert wunderbar

PureBoard

ExamineDirectory, Dateien auslesen?!

ExamineDirectory, Dateien auslesen?!