Bilddateien lesen

Übersicht

BlitzBasic

Allgemein

	TheProgrammer Betreff: Bilddateien lesen	So, Mai 02, 2004 16:13 Antworten mit Zitat
Hi. Kann mir vieleicht jemand sagen, wie man aus einem Ordner alle Bilddateien lesen kann, die in BlitzBasic geladen werden können? Danke.
aktuelles Projekt: The last day of human being

TheProgrammer

Betreff: Bilddateien lesen

So, Mai 02, 2004 16:13
Antworten mit Zitat

Hi.

Kann mir vieleicht jemand sagen, wie man aus einem Ordner
alle Bilddateien lesen kann, die in BlitzBasic geladen werden können?

Danke.

aktuelles Projekt: The last day of human being

	Hubsi	So, Mai 02, 2004 16:32 Antworten mit Zitat
Mit ReadDir, NextFile und Right$ sollte das kein Prob darstellen
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Mai 02, 2004 16:32
Antworten mit Zitat

Mit ReadDir, NextFile und Right$ sollte das kein Prob darstellen Wink

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	TheProgrammer	So, Mai 02, 2004 16:45 Antworten mit Zitat
Kannst du mir bitte noch ein bsp geben?
aktuelles Projekt: The last day of human being

TheProgrammer

So, Mai 02, 2004 16:45
Antworten mit Zitat

Kannst du mir bitte noch ein bsp geben?

aktuelles Projekt: The last day of human being

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, Mai 02, 2004 16:47 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Type Daten Field Name$, Wo$ End Type DirScan("c:\Eigene Dateien\") WaitMouse ;------------------------------------------------------------------------------ Function DirScan(Pfad$);liest alle Bildtypen .JPG und PNG aus, inclusive Unterordner ; ist alles erweiterbar olddir$ = CurrentDir() ChangeDir (Pfad$) Ordner = ReadDir (CurrentDir()) Repeat Bild$ = NextFile (Ordner) If Bild$ = "" Then Exit If FileType(CurrentDir()+Bild$) = 2 Then If Bild$ <> "." And Bild$ <> ".." Then DirScan(CurrentDir()+Bild$) ;<<<<<< Rekursiv.. Also mit Unterordner End If Else ;------------------------------------------------------------------ ; was suchen wir den...... If Upper$ (Right$(bild$,3)) = "JPG" Or Upper$ (Right$(bild$,3)) = "PNG" Then Datei.Daten = New Daten Datei\Name$ = bild$ Datei\Wo$ = CurrentDir() DebugLog Datei\Wo$ + Datei\Name$ ;Daten werden im Debugfenster ausgegeben ;------------------------------------------------------------------ End If End If Forever CloseDir (Ordner) ChangeDir (olddir$) End Function ;--------------------
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, Mai 02, 2004 16:47
Antworten mit Zitat

Code: [AUSKLAPPEN]

Type Daten
Field Name$, Wo$
End Type
DirScan("c:\Eigene Dateien\")
WaitMouse

;------------------------------------------------------------------------------
Function DirScan(Pfad$);liest alle Bildtypen .JPG und PNG aus, inclusive Unterordner ; ist alles erweiterbar
olddir$ = CurrentDir()
ChangeDir (Pfad$)
Ordner = ReadDir (CurrentDir())
Repeat
Bild$ = NextFile (Ordner)
If Bild$ = "" Then Exit
If FileType(CurrentDir()+Bild$) = 2 Then
If Bild$ <> "." And Bild$ <> ".." Then
DirScan(CurrentDir()+Bild$) ;<<<<<< Rekursiv.. Also mit Unterordner
End If
Else
;------------------------------------------------------------------
; was suchen wir den......
If Upper$ (Right$(bild$,3)) = "JPG" Or Upper$ (Right$(bild$,3)) = "PNG" Then
Datei.Daten = New Daten
Datei\Name$ = bild$
Datei\Wo$ = CurrentDir()
DebugLog Datei\Wo$ + Datei\Name$
;Daten werden im Debugfenster ausgegeben
;------------------------------------------------------------------
End If
End If
Forever
CloseDir (Ordner)
ChangeDir (olddir$)
End Function
;--------------------

[BB2D | BB3D | BB+]

	TheProgrammer	So, Mai 02, 2004 16:51 Antworten mit Zitat
Danke!!!
aktuelles Projekt: The last day of human being

TheProgrammer

So, Mai 02, 2004 16:51
Antworten mit Zitat

Danke!!!

aktuelles Projekt: The last day of human being

	Hubsi	So, Mai 02, 2004 17:41 Antworten mit Zitat
Rallimen muss gleich wieder übertreiben
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Mai 02, 2004 17:41
Antworten mit Zitat

Rallimen muss gleich wieder übertreiben Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	TheProgrammer	Di, Mai 04, 2004 19:02 Antworten mit Zitat
So... Ich hätte dann noch ne Frage: Wie kann man erkennen, ob sich in einem Ordner weitere Ordner befinden? (!!!BSP!!!)
aktuelles Projekt: The last day of human being

TheProgrammer

Di, Mai 04, 2004 19:02
Antworten mit Zitat

So...
Ich hätte dann noch ne Frage:

Wie kann man erkennen, ob sich in einem Ordner weitere Ordner
befinden?

Idea

(!!!BSP!!!) Idea

aktuelles Projekt: The last day of human being

	Hubsi	Di, Mai 04, 2004 19:13 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] If FileType(file$)= 2 Then isses ein Ordner
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Di, Mai 04, 2004 19:13
Antworten mit Zitat

Code: [AUSKLAPPEN]

If FileType(file$)= 2 Then isses ein Ordner

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	TheProgrammer	Di, Mai 04, 2004 20:08 Antworten mit Zitat
Funktioniert aber irgendwie nicht. Es wird immer 0 angezeigt, obwohl ein Ordner im Ordner ist: Code: [AUSKLAPPEN] [EINKLAPPEN] Function Test(pfad$) Ordner = ReadDir(pfad$) Repeat Datei$ = NextFile(Ordner) typ = FileType(Datei$) If Datei$ <> "." Then If Datei$ <> ".." Then If typ = 2 Then es_gibt_ordner = 1 EndIf EndIf Until Datei$ = "" CloseDir(Ordner) Return es_gibt_ordner End Function Was ist falsch?
aktuelles Projekt: The last day of human being

TheProgrammer

Di, Mai 04, 2004 20:08
Antworten mit Zitat

Funktioniert aber irgendwie nicht.
Es wird immer 0 angezeigt, obwohl ein Ordner im
Ordner ist:

Code: [AUSKLAPPEN]

Function Test(pfad$)

Ordner = ReadDir(pfad$)

Repeat
Datei$ = NextFile(Ordner)
typ = FileType(Datei$)

If Datei$ <> "." Then
   If Datei$ <> ".." Then
   If typ = 2 Then es_gibt_ordner = 1
   EndIf
EndIf

Until Datei$ = ""

CloseDir(Ordner)

Return es_gibt_ordner

End Function

Was ist falsch?

aktuelles Projekt: The last day of human being

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Mai 04, 2004 20:38 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] typ = FileType(Pfad$) mach es so.... dann gehts!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Mai 04, 2004 20:38
Antworten mit Zitat

Code: [AUSKLAPPEN]

typ = FileType(Pfad$)

mach es so.... dann gehts!

[BB2D | BB3D | BB+]

	TheProgrammer	Di, Mai 04, 2004 20:42 Antworten mit Zitat
Dann wird doch nur der Ordner geprüft, in dem andere Ordner geprüft werden sollen.
aktuelles Projekt: The last day of human being

TheProgrammer

Di, Mai 04, 2004 20:42
Antworten mit Zitat

Dann wird doch nur der Ordner geprüft, in dem
andere Ordner geprüft werden sollen.

aktuelles Projekt: The last day of human being

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Mai 04, 2004 20:52 Antworten mit Zitat
das Handle steht auf einem Ordner der im Pfad$ steht, von hier aus must du natürlich erst mal in diesen Ordner wechseln um die Daten im Unterordner zu lesen! Hoffe das ich verstanden habe was du meinst EDIT Hab da gerade nicht ganz korrekt gepostet, muss Natürlich heissen Code: [AUSKLAPPEN] [EINKLAPPEN] typ = FileType(pfad$+Datei$)
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Mai 04, 2004 20:52
Antworten mit Zitat

das Handle steht auf einem Ordner der im Pfad$ steht, von hier aus must du natürlich erst mal in diesen Ordner wechseln um die Daten im Unterordner zu lesen!
Hoffe das ich verstanden habe was du meinst

EDIT
Hab da gerade nicht ganz korrekt gepostet, muss Natürlich heissen
Code: [AUSKLAPPEN]

typ = FileType(pfad$+Datei$)

[BB2D | BB3D | BB+]