Seite 1 von 1
Nach Datei suchen
Verfasst: 15.05.2010 11:02
von mbuettner
Hallo,
ich wollte mal fragen, ob es möglich ist, mit Purebasic eine oder mehrere Dateien zu suchen. Also folgendes:
-Programmstart
-Dateisuche
Ich habe keinen entsprechenden Befehl gefunden (es sei denn, ich habe ihn überlesen).
Re: Nach Datei suchen
Verfasst: 15.05.2010 11:08
von ts-soft
Als erstes mal in der Hilfe ExamineDirectory studieren. Danach hier nochmal nach
Rekursive Funktion suchen.
Einfachen Befehl wie SucheMir(Datei.s) gibt es leider nicht
Gruß
Thomas
Re: Nach Datei suchen
Verfasst: 15.05.2010 11:30
von Shadow-Gamer
vielleicht gibts im codearchiv auch schon was entsprechendes als beispiel, zu finden auf
http://www.purearea.net
Re: Nach Datei suchen
Verfasst: 16.05.2010 18:39
von KeauHou
Was du suchst ist vermutlich eine rekursive Funktion zum durchsuchen von Verzeichnissen.
Code: Alles auswählen
Global NewList Files.s()
Procedure Recursive_Search(sPath.s)
Protected iCurrDir.i, sName.s
iCurrDir = ExamineDirectory(#PB_Any, sPath.s, "*.*")
If iCurrDir
While NextDirectoryEntry(iCurrDir)
sName = DirectoryEntryName(iCurrDir)
If sName <> "." And sName <> ".."
If DirectoryEntryType(iCurrDir) = #PB_DirectoryEntry_File
AddElement(Files())
Files() = sPath + "\" + sName
Else
Recursive_Search(sPath + "\" + sName)
EndIf
EndIf
Wend
FinishDirectory(iCurrDir)
EndIf
EndProcedure
Bei nem Aufruf speichert das ALLE gefundenen Dateien in der Linked List Files(). Kannst du ja so modifizieren dass nur Dateien mit bestimmtem Namen oder genau die Datei die du suchst in die Liste kommen, je nachdem wie du das brauchst.
MfG
KeauHou
Re: Nach Datei suchen
Verfasst: 16.05.2010 21:38
von CSHW89
Dafür gibt doch die tollen neuen FAQs:
http://www.purebasic.fr/german/viewtopi ... 76#p270676
ganz unten
Wie kann man mit ExamineDirectory() auch Unterverzeichnisse auslesen?
lg kevin