Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Line input example nr.2

Uploader:Mitglieddarksider3
Datum/Zeit:12.10.2011 18:53:18

'Liest eine Ganze datei aus
Dim as String Zeile,datei
Dim as Integer ff
ff = FREEFILE
Do
    INPUT "DATEI: ",datei
    if datei = "exit" Then
        print STRING(22, "-")
        Print "Please press any key"
        exit do
    Endif
    PRINT
    OPEN datei FOR INPUT AS #ff
    PRINT "Inhalt: "
    PRINT STRING(32, "-")
    Do
        LINE INPUT #ff, Zeile
        PRINT Zeile
    Loop Until Eof(1)
    PRINT STRING(32, "-")
    PRINT
    CLOSE #ff
    PRINT "DATEI: "+datei
loop
SLEEP