Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textboxen
Autor: evil_uwe
Datum: 28.02.03 14:12
Hmmm, ich bekomme immer nur den letzten Eintrag angezeigt, nicht alle. Schick mal den Code dabei.... IRgendwas muß ich doch wohl falsch machen. Private Sub Command1_Click() '** Dim Eingabe Dim Nummer As String Dim Code As String Dim Kennung As String '** Eingabe = "Y:\FTP\XPedSource\esdr.cbl" Open Eingabe For Input As #1 Do While Not EOF(1) Line Input #1, textzeile Nummer = Left(textzeile, 6) Kennung = Right(textzeile, 8) filler = Left(textzeile, 72) Code = Right(filler, 66) Text1.Text = Nummer & vbCrLf Text2.Text = Code & vbCrLf Text3.Text = Kennung & vbCrLf Loop Close #1 '** MsgBox "Fertig" '*** End Sub

Textboxen	95	evil_uwe	28.02.03 13:56
Re: Textboxen	50	Mr. NoName	28.02.03 14:04
Re: Textboxen	50	evil_uwe	28.02.03 14:12
Re: Textboxen	80	Mr. NoName	28.02.03 14:30
Re: Textboxen	200	brave@heart	28.02.03 14:30
Re: Textboxen	41	evil_uwe	28.02.03 15:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen