Dateiendung-Filter

Übersicht

BlitzBasic

Allgemein

	Xalon Betreff: Dateiendung-Filter	Mo, März 21, 2005 13:28 Antworten mit Zitat
HI,wenn ich meit einer funktion ordner durchsuche,und dann filtern will ob die datei eine .jpg datei ist sieht das so aus:Code: [AUSKLAPPEN] [EINKLAPPEN] Global file=WriteFile("folders.txt") get_user_daten("Fabi","jpg") Function get_user_daten(user$,endung$) getordner("C:\Dokumente und Einstellungen\"+user+"\") End End Function Function getordner(ordner$) verzeichnis=ReadDir(ordner) Repeat datei$=NextFile(verzeichnis) If datei$="" Exit If datei<>"." And datei<>".." Then pfad$=ordner+datei If FileType(pfad)=2 getordner(pfad+"/") If FileType(pfad)=1 If Instr(pfad,endung)<>0 WriteLine file,pfad EndIf EndIf Forever End Function aber dann ist auch .mp3 etc dabei,warum? THX Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

Betreff: Dateiendung-Filter

Mo, März 21, 2005 13:28
Antworten mit Zitat

HI,wenn ich meit einer funktion ordner durchsuche,und dann filtern will ob die datei eine .jpg datei ist sieht das so aus:Code: [AUSKLAPPEN]

Global file=WriteFile("folders.txt")

get_user_daten("Fabi","jpg")

Function get_user_daten(user$,endung$)

getordner("C:\Dokumente und Einstellungen\"+user+"\")
End

End Function

Function getordner(ordner$)

verzeichnis=ReadDir(ordner)

Repeat
datei$=NextFile(verzeichnis)
If datei$="" Exit
If datei<>"." And datei<>".." Then
pfad$=ordner+datei
If FileType(pfad)=2 getordner(pfad+"/")
If FileType(pfad)=1
If Instr(pfad,endung)<>0 WriteLine file,pfad
EndIf
EndIf
Forever

End Function

aber dann ist auch .mp3 etc dabei,warum?

THX
Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	Vertex	Mo, März 21, 2005 13:34 Antworten mit Zitat
Hi! Benutze mal nicht InStr sondern Right. If Right$(Datei$, Len(Endung$)+1) = "."+Endung$ Then blub mfg olli
vertex.dreamfall.at \| GitHub

Vertex

Mo, März 21, 2005 13:34
Antworten mit Zitat

Hi!
Benutze mal nicht InStr sondern Right. If Right$(Datei$, Len(Endung$)+1) = "."+Endung$ Then blub

mfg olli

vertex.dreamfall.at | GitHub

	Dreamora	Mo, März 21, 2005 13:35 Antworten mit Zitat
musst nen "." vor das jpg setzen sonst kann es sein, dass er über mp3 stolpert die jpg irgendwo im namen haben etc
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mo, März 21, 2005 13:35
Antworten mit Zitat

musst nen "." vor das jpg setzen sonst kann es sein, dass er über mp3 stolpert die jpg irgendwo im namen haben etc

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Xalon	Mo, März 21, 2005 13:42 Antworten mit Zitat
thx,aber bei BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Global file=WriteFile(\"folders.txt\") get_user_daten(\"Fabi\",\"jpg\") Function get_user_daten(user$,endung$) getordner(\"C:\Dokumente und Einstellungen\\"+user+\"\\") End End Function Function getordner(ordner$) verzeichnis=ReadDir(ordner) Repeat datei$=NextFile(verzeichnis) If datei$=\"\" Exit If datei<>\".\" And datei<>\"..\" Then pfad$=ordner+datei If FileType(pfad)=2 getordner(pfad+\"/\") If FileType(pfad)=1 If Right$(Datei$, Len(Endung$+1))= \".\"+Endung$ Then WriteLine file,datei;pfad EndIf EndIf Forever End Function is nix in der datei... ich glaub ich steig bald vollends auf c++ um .da hat man einfach mehr möglichkeiten Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

Mo, März 21, 2005 13:42
Antworten mit Zitat

thx,aber bei BlitzBasic: [AUSKLAPPEN]

Global file=WriteFile(\"folders.txt\") 


get_user_daten(\"Fabi\",\"jpg\")











Function get_user_daten(user$,endung$)



getordner(\"C:\Dokumente und Einstellungen\\"+user+\"\\") 
End 

End Function 

Function getordner(ordner$) 


verzeichnis=ReadDir(ordner) 


Repeat 
datei$=NextFile(verzeichnis) 
If datei$=\"\" Exit 
 If datei<>\".\" And datei<>\"..\" Then 
  pfad$=ordner+datei 
  If FileType(pfad)=2 getordner(pfad+\"/\") 
   If FileType(pfad)=1 
   If Right$(Datei$, Len(Endung$+1))= \".\"+Endung$ Then WriteLine file,datei;pfad   
   EndIf 
  EndIf 
Forever 


End Function

is nix in der datei...
ich glaub ich steig bald vollends auf c++ um Confused

.da hat man einfach mehr möglichkeiten
Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	Dreamora	Mo, März 21, 2005 13:45 Antworten mit Zitat
Naja wenn du das schon nicht hinbekommst, kanns mit C++ erst recht nix werden ... Wenn du die Dateinamen ausliest entweder alles zu lower oder upper machen, da Jpg != jPg != jpG etc und dann vergleichen mit lower / upper der endung.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mo, März 21, 2005 13:45
Antworten mit Zitat

Naja wenn du das schon nicht hinbekommst, kanns mit C++ erst recht nix werden ...

Wenn du die Dateinamen ausliest entweder alles zu lower oder upper machen, da Jpg != jPg != jpG etc und dann vergleichen mit lower / upper der endung.

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Xalon	Mo, März 21, 2005 13:51 Antworten mit Zitat
mein prob is net das er zu wenig findet,sondern das er zu viel findet... Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

Mo, März 21, 2005 13:51
Antworten mit Zitat

mein prob is net das er zu wenig findet,sondern das er zu viel findet... Rolling Eyes

Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	Dreamora	Mo, März 21, 2005 14:10 Antworten mit Zitat
ich glaube mir dämmert langsam das problem: Vielleicht solltest du endung$ auch an die suchfunktion übergeben Als "" wird er nämlich alles ausspucken (mit richtigem einrücken würde man so probs schneller sehen)
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mo, März 21, 2005 14:10
Antworten mit Zitat

ich glaube mir dämmert langsam das problem: Vielleicht solltest du endung$ auch an die suchfunktion übergeben Wink

Als "" wird er nämlich alles ausspucken Wink

(mit richtigem einrücken würde man so probs schneller sehen)

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Zuletzt bearbeitet von Dreamora am Mo, März 21, 2005 14:15, insgesamt einmal bearbeitet

	maximilian	Mo, März 21, 2005 14:14 Antworten mit Zitat
Lol Xalon. C++? Die String-Manipulationsmöglichkeiten von BlitzBasic genial und in ihrem Umfang einfach gut. Zähl mir doch mal diese ganzen Möglichkeiten auf? Du musst ja anscheinend die STL benutzen. Zitat: Naja wenn du das schon nicht hinbekommst, kanns mit C++ erst recht nix werden ... Sehr freundlich ausgedrückt. LordChaos
Variety is the spice of life. One day ignore people, next day annoy them.

maximilian

Mo, März 21, 2005 14:14
Antworten mit Zitat

Lol Xalon. C++? Die String-Manipulationsmöglichkeiten von BlitzBasic genial und in ihrem Umfang einfach gut.

Zähl mir doch mal diese ganzen Möglichkeiten auf? Du musst ja anscheinend die STL benutzen.

Zitat:

Naja wenn du das schon nicht hinbekommst, kanns mit C++ erst recht nix werden ...

Sehr freundlich ausgedrückt.

LordChaos

Variety is the spice of life. One day ignore people, next day annoy them.

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, März 21, 2005 14:33 Antworten mit Zitat
So gehts mit Blitz, steht auch schon lange im Forum, Suchen hilft da meistens BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Auslesen (\"c:\\",\"jpG\") WaitKey Function Auslesen (Pfad$,A$) Verzeichnis = ReadDir (Pfad$) If Verzeichnis = 0 Then Return ;falls der zugriff verweigert wird Repeat Datei$ = NextFile$ (Verzeichnis) If Datei$ <> \".\" And Datei$ <> \"..\" And Datei$ <> \"\" Then If FileType (Pfad$ + Datei$) = 1 Then If Upper(Right(Datei$,3)) = Upper(a$) Then Print Pfad$ + Datei$ End If EndIf ; If FileType (Pfad$ + Datei$) = 2 Then ; Unter Verzeichnis auslesen ; Auslesen (Pfad$ + Datei$ + \"\\",a$) ; EndIf EndIf Until Datei$ = \"\" CloseDir Verzeichnis End Function so das war die Blitz Version, Zitat: ich glaub ich steig bald vollends auf c++ um .da hat man einfach mehr möglichkeiten Xalon und nu zeig mal die einfache C++ Version Gruss Ralf
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, März 21, 2005 14:33
Antworten mit Zitat

So gehts mit Blitz, steht auch schon lange im Forum, Suchen hilft da meistens
BlitzBasic: [AUSKLAPPEN]

Auslesen (\"c:\\",\"jpG\")
WaitKey
Function Auslesen (Pfad$,A$)
    Verzeichnis = ReadDir (Pfad$) 
    If Verzeichnis = 0 Then Return  ;falls der zugriff verweigert wird 
    Repeat 
        Datei$ = NextFile$ (Verzeichnis) 
        If Datei$ <> \".\" And Datei$ <> \"..\" And Datei$ <> \"\" Then 
            If FileType (Pfad$ + Datei$) = 1 Then 
                
                If Upper(Right(Datei$,3)) = Upper(a$) Then 
                    Print Pfad$ + Datei$
                End If
                
            EndIf 
;            If FileType (Pfad$ + Datei$) = 2 Then ; Unter Verzeichnis auslesen 
;                Auslesen (Pfad$ + Datei$ + \"\\",a$) 
;            EndIf 
        EndIf 
    Until Datei$ = \"\" 
    CloseDir Verzeichnis 
End Function

so das war die Blitz Version,

Zitat:

ich glaub ich steig bald vollends auf c++ um .da hat man einfach mehr möglichkeiten
Xalon

und nu zeig mal die einfache C++ Version Very Happy

Gruss
Ralf

[BB2D | BB3D | BB+]

	blitzmaster	Mo, März 21, 2005 14:57 Antworten mit Zitat
das möcht' ich mir anschauen, wie du das in c++ machst!
*************** Blitzmaster

blitzmaster

Mo, März 21, 2005 14:57
Antworten mit Zitat

das möcht' ich mir anschauen, wie du das in c++ machst! Wink

***************
Blitzmaster

	Xalon	Mo, März 21, 2005 15:18 Antworten mit Zitat
Dreamora hat Folgendes geschrieben: ich glaube mir dämmert langsam das problem: Vielleicht solltest du endung$ auch an die suchfunktion übergeben Als "" wird er nämlich alles ausspucken (mit richtigem einrücken würde man so probs schneller sehen) ja,is mir auch grad aufgefallen Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image