XProfan

Français

allô Allerseits,
je sitze déjà depuis Stunden à diesem Problem et viens pas plus

je versuche une choice Box trop erstellen, quelle qui Vorgaben aus einer ini bzw. Text fichier liest .
qui Text fichier ist comment folgt aufgebaut:

Hans
Jürgen
Fritz
Joseph

Kompilieren Marque Séparation

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-------------------------------------------------------------------
Fin

02.05.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

ReadText funktioniert pas entier so, comment du es dir vorstellst.
Am besten fais du es, dans dem du qui Dossier per Reset ouvres et input ausliest.
Kompilieren Marque Séparation

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>