Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Datei im Temp-Verzeichnis einlesen
| Uploader: |  Sebastian |
| Datum/Zeit: | 11.07.2009 17:03:17 |
'Programmbeispiel für Forenposting
' http://forum.qbasic.at/viewtopic.php?t=6594
'Compiliert mit FreeBASIC 0.20.0 für Windows
'11.07.2009
DIM AS INTEGER ff
DIM AS STRING Datei, NeueIP
ff = FREEFILE
Datei = ENVIRON("TEMP")+"\xIP.txt"
PRINT CHR(153); "ffne Datei "; CHR(34);
COLOR 14
PRINT Datei;
COLOR 7
PRINT CHR(34); "..."
IF OPEN (Datei FOR INPUT AS #ff) <> 0 THEN
PRINT "Fehler: Die Datei"
COLOR 12
PRINT " "; CHR(34); Datei; CHR(34)
COLOR 7
PRINT "existiert nicht oder kann nicht geoeffnet werden."
SLEEP: END
END IF
IF EOF(ff) THEN
PRINT "Fehler: Die Datei ist leer!"
SLEEP: END
END IF
LINE INPUT #ff, NeueIP
CLOSE #ff
KILL Datei 'Datei nach dem Auslesen löschen
PRINT "Deine IP-Adresse lautet: ";
COLOR 10
PRINT NeueIP;
COLOR 7
PRINT " - Jawoll!"
SLEEP: END