Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Nur so
| Uploader: |  Emporea1997 |
| Datum/Zeit: | 04.09.2011 19:00:26 |
Dim text As String
Dim wert As String
Open "test.txt" For Input Access Read #1
Line Input #1 , text
wert = Left(text,3), Text
'Weiß nicht recht wie das mit den subs aussieht . Ganz abstrakt jez
Sub Schreibe
Draw String (30,30)," Der Wert ist " & Wert
End Sub