Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Nummern ausgeben
Autor: destiny
Datum: 19.03.02 16:06
Hallo! Ich möchte im unten aufgeführten Beispiel alle Zahlen von dem String 'str_sch' ausgeben. Ich erhalte aber bloß die erste Ziffer, also '000000000002'. Wie schaffe ich es,dass die restlichen auch ausgegeben werden? Text1.Text = "000000000002=on&000000000006=on&000000000009" str_sch = Text1.Text str_o = "000000000" lines = Split(str_sch, vbCrLf) For i = 0 To UBound(lines) pos = InStr(lines(i), str_o) If pos > 0 Then str1 = Trim(Left(lines(i), (Len(str_o) + 3))) End If Label1.Caption = str1 MsgBox pos Next

Nummern ausgeben	42	destiny	19.03.02 16:06
Re: Nummern ausgeben	166	Dieter	19.03.02 19:58

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