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:

[Gelöst]Programm hängt

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



Anmeldungsdatum: 26.11.2006
Beiträge: 149

BeitragVerfasst am: 17.02.2007, 18:50    Titel: [Gelöst]Programm hängt Antworten mit Zitat

Code:

dim shared as string vergleich,namen,x
dim shared as integer i,y,punkte
declare sub taste1
screen 12
?"Was moechtest du tuen?"
?
?"1.) Neuen Namen+Punktzahl eintragen"
?
?"2.) Nach Namen+Punktzahl suchen"
?
?"3.) Ganze Highscore anschauen"
?
?"4.) ENDE"
taste1
sub taste1
y=0
do
    x=inkey$
    select case x
    case chr$(49)
        input"Der Name bitte:",namen
        input"Die Punktzahl bitte:",punkte
        open"liste.txt" for input as #1
        do until eof(1)
            line input #1, vergleich
            vergleich=lcase(vergleich)
                if instr(vergleich,namen) then
                    y=1
                    exit do
                else
                    y=0
                end if
        loop
        close #1
        if y=1 then
            ?"Der Name ist schon vorhanden!"
        end if
        if y=0 then
            ?"OK der Name wird gepeichert"
                open"liste.txt" for append as #1
                print #1, namen,punkte
                close #1
                sleep 300
            ?"Gespeichert!"
        end if
end select
loop until x=chr$(27)
end sub

   

so meine frage, warum werden die namen und die punktzahlen nicht in die datei eingelesen,??


Zuletzt bearbeitet von General am 17.02.2007, 18:57, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Build0815



Anmeldungsdatum: 30.09.2006
Beiträge: 51

BeitragVerfasst am: 17.02.2007, 18:56    Titel: Antworten mit Zitat

Also bei mir werden Namen und Punktzahl in die Datei "Liste.txt" richtig geschrieben. lächeln

Liste.txt hat Folgendes geschrieben:

Name_1 10101010
Name_2 20202020


Zuletzt bearbeitet von Build0815 am 17.02.2007, 19:00, insgesamt 7-mal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
General



Anmeldungsdatum: 26.11.2006
Beiträge: 149

BeitragVerfasst am: 17.02.2007, 18:57    Titel: Antworten mit Zitat

ja alles klar wird da auch gepeichert hab nur am falschen ort geguckt, verlegen verlegen verlegen , sorry mein fehler
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. 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