Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Line input example
| Uploader: |  darksider3 |
| Datum/Zeit: | 13.10.2011 19:43:34 |
Dim as string Eingabe,RedEmit
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 = "In" Then
datei = ""
Else
INPUT "DATEI: ",datei
if datei = "exit" 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(ff)
PRINT STRING(32, "-")
PRINT
CLOSE #ff
PRINT "DATEI: "+datei
PRINT:PRINT:PRINT
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
RedEmit = dats()
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