XProfan

Deutsch

Hallo Allerseits,
ich sitze schon seit Stunden an diesem Problem und komme nicht weiter

Ich versuche eine choice Box zu erstellen, welche die Vorgaben aus einer ini bzw. Text datei liest .
Die Text datei ist wie folgt aufgebaut:

Hans
Jürgen
Fritz
Joseph

Kompilieren Markieren Separieren

Def &False 0
Def &True 1
Declare hWin&, hCombo&, Quit&,Arbeiter&
hWin& = @Create("Window", %hWnd, "ChoiceBox", 0, 0, 320, 200)

If hWin&

    hCombo& = @Create("ChoiceBox", hWin&, "", 10, 10, 280, 150)

    WhileLoop 1, 10, 1

        Arbeiter&=ReadText &loop,"Arbeiter.txt"
        @AddChoice(hCombo&, "Arbeiter " + @Str$(Arbeiter&))

    EndWhile

    Quit& = &False

    Repeat

        WaitKey

        If %Key = 2

            Quit& = &True

        EndIf

    Until Quit& = &True

EndIf

'-End-------------------------------------------------------------------
End

02.05.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nico
Madysa

ReadText funktioniert nicht ganz so, wie du es dir vorstellst.
Am besten machst du es, in dem du die Datei per Reset öffnest und mit input ausliest.
Kompilieren Markieren Separieren

declare zeile$
Assign #1,"Arbeiter.txt"'Der Datei wird eine Nummer zugewiesen
Reset #1'Datei zum Lesen geöffnet

whilenot EoF(#1)'solange Ende der Datei nicht erreicht wurde

    input #1,zeile$'Eine Zeile deiner Datei wird eingelesen
    AddChoice(hCombo&,"Arbeiter " + zeile$)

EndWhile

Close #1'Datei geschlossen