PureBoard

Verfasst: **30.12.2012 19:22**

Wie kann ich das bei dem Befehl machen? ich hab schon zwei arten ausprobiert:

ExamineDirectory(0, folder.s, "*.png|*.bmp")

oder

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png | *.bmp")

Da kommt nur, dass 'folder.s (= D:\) nicht geöffnet wurde.

Und:

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png;*.bmp")

oder

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png ; *.bmp")

Aber da findet er gar keine Dateien obwohl welche existieren

Bitte um Hilfe

mfg R3booz

EDIT:
ich hab hier einen Beitrag gefunden aber der bestätigt nur die 2. möglichkeit die nicht funktioniert:
http://www.purebasic.fr/english/viewtop ... =3&t=25537

Verfasst: **30.12.2012 19:33**

Hallo,
ich würde es so machen:

Code: Alles auswählen

EnableExplicit

Define folder.s="C:\"
Define name.s

If ExamineDirectory(0,folder,"*.*") ;alles einlesen
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_File
      name=DirectoryEntryName(0) ;Dateinamen holen
      ;und filtern
      If UCase(GetExtensionPart(folder+name))="JPG" Or UCase(GetExtensionPart(folder+name))="PNG"
        Debug name
      EndIf      
    EndIf   
  Wend
  FinishDirectory(0)
EndIf

Verfasst: **30.12.2012 19:38**

Ok vielen Dank

Problem gelöst machs nun so

und ich gelesen dass immer nur ein Pattern geht

mfg

EDIT:
anderes Problem wie kann ich das machen wenn ich eine String mit endungen hab die immer unterschiedlich ist?
z.B.

Code: Alles auswählen

*.png *.bmp *.jpg

und dann vom user zu

Code: Alles auswählen

*.txt *.bat *.png

geändert wird und dann nochmal examinedir() eingesetzt werden soll?

mfg R3booz

Verfasst: **30.12.2012 20:13**

Code: Alles auswählen

;und filtern
ExtensionsString.s = "*.png *.bmp *.jpg" ; Hier deine Endungen angeben

ExtensionsString = " " + ExtensionsString + " "
If FindString(UCase(ExtensionsString), " *." + UCase(GetExtensionPart(folder+name)) + " ")
  Debug name
EndIf

Verfasst: **30.12.2012 22:41**

ok jetzt funktioniert es ausgezeichnet
endlich danke

mfg r3booz

PureBoard

[SOLVED] ExamineDirectory() mehrere Pattern benutzen

[SOLVED] ExamineDirectory() mehrere Pattern benutzen

Re: ExamineDirectory() mehrere Pattern benutzen

Re: ExamineDirectory() mehrere Pattern benutzen

Re: ExamineDirectory() mehrere Pattern benutzen

Re: ExamineDirectory() mehrere Pattern benutzen