Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Such -und Kopiermöglichkeiten von 1 Datei in eine andere.

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
roadrunner78



Anmeldungsdatum: 25.06.2007
Beiträge: 6
Wohnort: Hamburg
BeitragVerfasst am: 02.07.2007, 20:56    Titel: Such -und Kopiermöglichkeiten von 1 Datei in eine andere. Antworten mit Zitat
Hallo zusammen,

Ich möchte in einer Textdatei alle Zeilen nach einem String Ausdruck
durchsuchen und dann anschließend die Zeilen die den String enhalten,
in eine andere Datei kopieren. Ist das möglich?
Irgendwie komme ich bei diesem Problem nicht weiter.mit dem Kopf durch die Mauer wollen

Bin für jeden Tip dankbar.

Gruß
roadrunner78
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 02.07.2007, 21:47    Titel: Antworten mit Zitat
Hallo,
das geht wie folgt:
Code:
DIM zeile AS STRING
DIM suchwort AS STRING
DIM fundstellen AS INTEGER
fundstellen = 0
suchwort = "Banane"
OPEN "QUELLE.TXT" FOR INPUT AS #1
OPEN "ZIEL.TXT" FOR OUTPUT AS #2
DO UNTIL EOF(1)
 LINE INPUT #1, zeile
 IF INSTR(UCASE(zeile),UCASE(suchwort)) THEN
  fundstellen = fundstellen +1
  PRINT #2, zeile
 END IF
LOOP
CLOSE #2
CLOSE #1
PRINT "Fundstellen: "; LTRIM$(STR$(fundstellen))
SLEEP: END

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz