Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [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

Tipp für Vokabeltest (QB)

Uploader:AdministratorSebastian
Datum/Zeit:22.01.2008 20:34:10

'für QB
'$DYNAMIC
DIM Datei As String
DIM Zeilen As Integer
DIM Zeile As String
Datei = "Vok.txt"
Zeilen = 0
'Vokabeln zählen
OPEN Datei FOR INPUT AS #1
DO UNTIL EOF(1)
  LINE INPUT #1, Zeile
  Zeilen = Zeilen + 1
LOOP
CLOSE #1
'Array passend anlegen
DIM List(1 TO Zeilen) AS STRING
Zeilen = 1
OPEN Datei FOR INPUT AS #1
DO UNTIL EOF(1)
  LINE INPUT #1, List(Zeilen)
  Zeilen = Zeilen + 1
LOOP
CLOSE #1
PRINT LTRIM(STR(Zeilen-1)); " Vokabeln gefunden."
SLEEP: END