XProfan

English

Hello on all sides,
i sit already since hours on this trouble and come not further

I try a choice Box to create, which The Vorgaben a ini or. Text File reads .
The Text File is How follows aufgebaut:

Hans
Jürgen
Fritz
Joseph

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

05/02/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

ReadText not working integrally so, How You it to you vorstellst.
best make You it, in the You The File by Reset open and input ausliest.
Compile Mark Separation

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 geschlo

span>