| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
 Verfasst am: 27.11.2004, 20:13 Titel: falls das wort Testomatrix vorhanden, aus test.txt löschen |
 |
|
Wie kann ichs machen das wenn ich jetzt die datein test.txt geöffnet hab dass er dann nach dem wort testomatrix sucht und falls es vorhanden ist es löscht und ansonsten zum nächsten schritt geht.
2.Wie mach ich's dass er ne datei nur öffnet wenn sie vorhanden ist, z.B. C:\test\test.txt |
|
| Nach oben |
|
 |
Manuel
Anmeldungsdatum: 23.10.2004
Beiträge: 1271
Wohnort: Bayern
|
| Verfasst am: 27.11.2004, 20:44 Titel: |
|
|
Zum ersteren Programm... das muss ich noch selbst testen, ich bin mir nicht ganz sicher, ob's bei mir klappt^^.
Wegen Programmnummer 2: | Zitat: | | 2.Wie mach ich's dass er ne datei nur öffnet wenn sie vorhanden ist, z.B. C:\test\test.txt |
Dazu kannst du die ERR-Variable nutzen. Diese Variable gibt bei einer Datei, die nicht existiert, den Wert 53 aus. Mithilfe von "ON ERROR GOTO blabla" am Programmanfang lässt sich jedoch der Fehler abfangen:
| Code: |
ON ERROR GOTO fehler
OPEN "test.txt" FOR INPUT AS #1
vorhanden:
' Er soll das und das machen
END
nichtvorhanden:
' Er soll das und das machen
END
fehler:
IF ERR = 53 THEN RESUME nichtvorhanden
|
Zur Erklärung: Wenn die Datei "test.txt" nicht vorhanden ist, springt das Programm nach 'fehler:'. Die ERR-Variable speichert, wie gesagt, den aktuellen Fehler. Ist die Fehlernummer 53, springt das Programm mit dem RESUME-Befehl nach 'nichtvorhanden' hin. 
_________________
DL Walk (Denkspiel) | DL Malek (Denkspiel) | DL Warrior (ASCII-Adventure) | DL Sokodos (Sokoban-Klon)
---
www.astorek.de.vu |
|
| Nach oben |
|
|
Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
| Verfasst am: 27.11.2004, 20:55 Titel: |
|
|
An danke das hab ich gebraucht!
so, wie klappt jetzt nur frage 1??? |
|
| Nach oben |
|
|
Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
| Verfasst am: 27.11.2004, 22:27 Titel: |
|
|
weiß jemadn was zu frage1??????  |
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 27.11.2004, 22:37 Titel: |
|
|
| Code: | datei$ = "datei.dat"
wort$ = "hallo"
open datei$ for input as #1
open "temp.dat" for output as #2
do
n=1
line input #1, zeile$
if len(zeile$) > len(wort$) then
for n = 1 to len(zeile$)-len(wort$)
print #2, mid$(n,1,1);
if mid$(zeile$,n,len(wort$) = wort$ then n = n + len(wort$)
next n
end if
print #2, mid$(zeile$,n)
loop until eof(1)
close
SHELL "rename temp.dat"+datei$ |
ohne Garantie, BrainCoding  nicht getestet.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
| Nach oben |
|
|
Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
| Verfasst am: 27.11.2004, 23:16 Titel: |
|
|
1. der code geht nich
2. Ich blick ihn nich |
|
| Nach oben |
|
|
Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
| Verfasst am: 28.11.2004, 22:38 Titel: |
|
|
| Seid ihr alle dumm oder habt ihr nur kein Bock zu antworten??? |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
| Verfasst am: 29.11.2004, 14:45 Titel: |
|
|
@Sebastian was denkst du wofür das zeichen ist:
Mit dem Seid ihr alle dumm war nur aus scherz, aber egal:
Ich arbeite mit Qbasic noch nich so lange mit externen Daten und hab deswegen auf dem gebiet nur en bisschen ahnung, eigentlich nur wie man ne datei erstellt verzeichnis erstellt, verzeichnis wechselt, datei löscht und was in ne datei schreibt mehr nich. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
