ExamineDirectory, Dateien auslesen?!

[FISCHAUGE]

Code: Alles auswählen

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?.

[Macros]

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

Code: Alles auswählen

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

[FISCHAUGE]

Vielen Dank!

Funktioniert wunderbar