Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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 4

Uploader:Mitglieddarksider3
Datum/Zeit:13.10.2011 18:48:55

Dim as string Eingabe
Declare Function dats (datei as string = "") As string

Function exits() as Integer
    print STRING(22, "-")
    Print "You want to exit,Please press any key"
    return 0
End function
Function dats(datei as string = "") as string
    Dim as Integer ff
    Dim as String Zeile
    if datei = "interner gebrauch .- Joke"Then

    Else
        INPUT "DATEI: ",datei
        if datei = "exit" OR datei = "" Then
            exits()
        Endif
        PRINT
        ff = FREEFILE
        OPEN datei FOR INPUT AS #ff
        PRINT "Inhalt: "
        PRINT STRING(32, "-")
        Do
            LINE INPUT #ff, Zeile
        Loop Until Eof(1)
        PRINT STRING(32, "-")
        PRINT
        CLOSE #ff
        PRINT "DATEI: "+datei
    EndIf
    return Zeile
End Function
Function RandJoke() as integer

    return 0
end Function
'----------------------------------
Do
    PRINT "Waehle aus: "
    PRINT
    PRINT "1) Datei Ausgeben"
    PRINT "123) Beenden"
    PRINT
    INPUT "Eingabe: ", Eingabe
    if Eingabe = "1" Then
        dats("In")
    Endif
    if Eingabe = "123" Then
        exits()
        exit Do
    ENDif
    if str(Eingabe) = "" then
        exits()
        exit do
    ENDIF
    if str(Eingabe) = "exit" Then
        exits()
        exit do
    Endif
loop
SLEEP