Festplatte nach Dateien durchsuchen

Übersicht

BlitzBasic

Allgemein

	mr_byte Betreff: Festplatte nach Dateien durchsuchen	Mo, Mai 16, 2005 10:14 Antworten mit Zitat
Hallo, ich möchte aus einer externen Datei Dateinamen einlesen und dann die Festplatte danach durchsuchen. Ist das mit BB möglich? Danke schonmal für eure Antworten mr_byte

mr_byte

Betreff: Festplatte nach Dateien durchsuchen

Mo, Mai 16, 2005 10:14
Antworten mit Zitat

Hallo,
ich möchte aus einer externen Datei Dateinamen einlesen und dann die Festplatte danach durchsuchen. Ist das mit BB möglich?

Danke schonmal für eure Antworten

mr_byte

	simi	Mo, Mai 16, 2005 10:17 Antworten mit Zitat
ja, das ist sehr gut möglich, schau dir mal folgende Befehel an: http://www.blitzbase.de/menu/2c.htm

simi

Mo, Mai 16, 2005 10:17
Antworten mit Zitat

ja, das ist sehr gut möglich, schau dir mal folgende Befehel an:
http://www.blitzbase.de/menu/2c.htm

	mr_byte	Mo, Mai 16, 2005 14:39 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] verzeichnis = ReadDir(\"c:\windows\") Repeat A$ = NextFile(verzeichnis) If A$ <> \" \" Then Print A$ Until A$ = \" \" CloseDir(verzeichnis) WaitKey Jetzt weiß ich schonmal wie ich mir aalle Dateien in einem bestimmten System anzeigen lassen kann, aber wie vergleiche ich jetzt, ob die ermittelten Datenamen mit Dateinamen aus der externen Datei identisch sind?

mr_byte

Mo, Mai 16, 2005 14:39
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

verzeichnis = ReadDir(\"c:\windows\")
Repeat
 A$ = NextFile(verzeichnis)
 If A$ <> \" \" Then Print A$
Until A$ = \" \"
CloseDir(verzeichnis)
WaitKey

Jetzt weiß ich schonmal wie ich mir aalle Dateien in einem bestimmten System anzeigen lassen kann, aber wie vergleiche ich jetzt, ob die ermittelten Datenamen mit Dateinamen aus der externen Datei identisch sind?

	Firstdeathmaker	Mo, Mai 16, 2005 14:49 Antworten mit Zitat
entweder mit "=" oder mit "instr(aktuellerdateiname$,gesuchterdateiname$)"
www.illusion-games.de Space War 3 \| Space Race \| Galaxy on Fire \| Razoon Gewinner des BCC #57 User posted image

Firstdeathmaker

Mo, Mai 16, 2005 14:49
Antworten mit Zitat

entweder mit "=" oder mit "instr(aktuellerdateiname$,gesuchterdateiname$)"

www.illusion-games.de
Space War 3 | Space Race | Galaxy on Fire | Razoon
Gewinner des BCC #57 User posted image

	mr_byte	Mo, Mai 16, 2005 15:58 Antworten mit Zitat
Ich habe es jetzt mal so probiert BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] definitionen = ReadFile(\"definitions.txt\") Repeat Print ReadLine$(definitionen) Until Eof(definitionen) = 1 CloseFile definitionen verzeichnis = ReadDir(\"c:\windows\") Repeat B$ = NextFile(verzeichnis) If B$ = A$ Then Print B$ Until B$ = \" \" CloseDir(verzeichnis) WaitKey aber mir wird nichts angezeigt. Seht ihr in meinem Code ein Problem oder habe ich mir totalen Schwachsinn zusammen gereimt?

mr_byte

Mo, Mai 16, 2005 15:58
Antworten mit Zitat

Ich habe es jetzt mal so probiert

BlitzBasic: [AUSKLAPPEN]

definitionen = ReadFile(\"definitions.txt\")
Repeat
Print ReadLine$(definitionen)
Until Eof(definitionen) = 1
CloseFile definitionen

verzeichnis = ReadDir(\"c:\windows\")
Repeat
 B$ = NextFile(verzeichnis)
 If B$ = A$ Then Print B$
Until B$ = \" \"
CloseDir(verzeichnis)
WaitKey

aber mir wird nichts angezeigt. Seht ihr in meinem Code ein Problem oder habe ich mir totalen Schwachsinn zusammen gereimt?

	Artemis	Mo, Mai 16, 2005 16:13 Antworten mit Zitat
Du definierst A$ nicht!

Artemis

Mo, Mai 16, 2005 16:13
Antworten mit Zitat

Du definierst A$ nicht!

	mr_byte	Mo, Mai 16, 2005 16:18 Antworten mit Zitat
Sorry hab den falschen Quelltext kopiert. Hier ist der richtige: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] definitionen = ReadFile(\"definitions.txt\") Repeat A$ = ReadLine$(definitionen) Until Eof(definitionen) = 1 CloseFile definitionen verzeichnis = ReadDir(\"c:\windows\") Repeat B$ = NextFile(verzeichnis) If B$ = A$ Then Print B$ Until B$ = \" \" CloseDir(verzeichnis) WaitKey

mr_byte

Mo, Mai 16, 2005 16:18
Antworten mit Zitat

Sorry hab den falschen Quelltext kopiert. Hier ist der richtige:
BlitzBasic: [AUSKLAPPEN]

definitionen = ReadFile(\"definitions.txt\")
Repeat
A$ = ReadLine$(definitionen)
Until Eof(definitionen) = 1
CloseFile definitionen


verzeichnis = ReadDir(\"c:\windows\")
Repeat
 B$ = NextFile(verzeichnis)
 If B$ = A$ Then Print B$
Until B$ = \" \"
CloseDir(verzeichnis)
WaitKey

	D2006 Administrator	Mo, Mai 16, 2005 21:55 Antworten mit Zitat
Hi, kommt jetzt drauf. 1.) Wenn du mehr als eine Datei in der TXT stehen hast, geht das nicht. Dazu brauchst du wohl dann einen Type. 2.) hast du in der TXT nur Dateinamen stehen oder die kompletten Pfade? (also "C:\Windows\explorer.exe" oder "explorer.exe") NextFile liefert nur Dateinamen zurück. 3.) Wichtig! Mir fiel eben auf das du ein $ hinter NextFile vergessen hast! MfG D2006

D2006

Administrator

Mo, Mai 16, 2005 21:55
Antworten mit Zitat

Hi,

kommt jetzt drauf.

1.)
Wenn du mehr als eine Datei in der TXT stehen hast, geht das nicht. Dazu brauchst du wohl dann einen Type.

2.)
hast du in der TXT nur Dateinamen stehen oder die kompletten Pfade?
(also "C:\Windows\explorer.exe" oder "explorer.exe")
NextFile liefert nur Dateinamen zurück.
3.)
Wichtig!
Mir fiel eben auf das du ein $ hinter NextFile vergessen hast!

MfG
D2006

	mr_byte	Di, Mai 17, 2005 14:28 Antworten mit Zitat
Also zu1) ich habe mehrere Dateinamen in der txt Datei zu2) Da stehen nur Dateinamen drin. Gruß mr_byte

mr_byte

Di, Mai 17, 2005 14:28
Antworten mit Zitat

Also

zu1) ich habe mehrere Dateinamen in der txt Datei

zu2) Da stehen nur Dateinamen drin.

Gruß

mr_byte

	mr_byte	Fr, Mai 20, 2005 15:52 Antworten mit Zitat
Ich habe noch einmal etwas neues probiert, doch auch dieser Code macht Probleme. Findet ihr noch irgendwelche Fehler? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] definitionen = ReadFile(\"definitions.txt\") Repeat filename$ = ReadLine$(definitionen) If FileType(filename$)=1 Then Print \"Datei gefunden\" EndIf Until Eof(definitionen) = 1 CloseFile definitionen WaitKey()

mr_byte

Fr, Mai 20, 2005 15:52
Antworten mit Zitat

Ich habe noch einmal etwas neues probiert, doch auch dieser Code macht Probleme. Findet ihr noch irgendwelche Fehler?

BlitzBasic: [AUSKLAPPEN]

definitionen = ReadFile(\"definitions.txt\")
Repeat
filename$ = ReadLine$(definitionen)
If FileType(filename$)=1 Then 
 Print \"Datei gefunden\"
EndIf
Until Eof(definitionen) = 1
CloseFile definitionen
WaitKey()

	Alfadur	Fr, Mai 20, 2005 19:26 Antworten mit Zitat
dein ansatz war schon ganz gut. habs mal überarbeitet ... dein fehler waren die zwei repeat schleifen die unabhängig voneinander waren ... BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function comp_files(filename$,verz$) definitionen = ReadFile(filename$) Repeat A$ = ReadLine$(definitionen) verzeichnis = ReadDir(verz$) Repeat B$ = NextFile(verzeichnis) If B$=A$ Then Print \"Datei \"+A$+\" existiert in Verzeichnis \"+verz$:Exit Until B$=\"\" CloseDir verzeichnis Until Eof(definitionen) CloseFile definitionen End Function comp_files(\"definitionen.txt\",\"d:\projekte\egonice\\")
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Fr, Mai 20, 2005 19:26
Antworten mit Zitat

dein ansatz war schon ganz gut. habs mal überarbeitet ... dein fehler waren die zwei repeat schleifen die unabhängig voneinander waren ...

BlitzBasic: [AUSKLAPPEN]


Function comp_files(filename$,verz$)
	definitionen = ReadFile(filename$) 
	Repeat 
		A$ = ReadLine$(definitionen) 
		verzeichnis = ReadDir(verz$)
		Repeat 
			B$ = NextFile(verzeichnis)
			If B$=A$ Then Print \"Datei \"+A$+\" existiert in Verzeichnis \"+verz$:Exit 
		Until B$=\"\"
		CloseDir verzeichnis
	Until Eof(definitionen)
	CloseFile definitionen
End Function 

comp_files(\"definitionen.txt\",\"d:\projekte\egonice\\")

A Cray is the only computer that runs an endless loop in less than four hours.

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Festplatte nach Dateien durchsuchen

Betreff: Festplatte nach Dateien durchsuchen