Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Für Emporea
| Uploader: |  MOD |
| Datum/Zeit: | 04.09.2011 19:07:51 |
Dim text As String
Dim wert As String
Declare Sub Schreibe (variable As String)
Open "test.txt" For Input Access Read As #1
Line Input #1 , text
wert = Left(text,3)
Schreibe wert
Close #1
Sub Schreibe (variable As String)
Draw String (30,30)," Der Wert ist " & variable
End Sub