Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zeichenkette erweitern
Autor: Blue
Datum: 25.08.03 14:47
Hallo ich bins schon wieder. Habe die Zeichenkette "12345678 123456" und ich soll jetzt an die 12345678 noch zwei 00 anhängen ich musste zuerst überprüfen wann das erste Leerzeichen kommt und dann an die Stelle die Nullen anhängen. Mein Code schaut bis jetzt so aus. Das prob ist nur noch die Nullen anzuhängen. Private Sub mysplit(s As String, se() As String) Dim i As Integer For i = 0 To List1.ListCount - 1 s1 = InStr(1, List1.List(i), " ", 1) If s1 = 9 Then List1.Selected(i) = True Else If s1 = 10 Then List1.Selected(i) = True End If End If Next i End Sub Private Sub Command4_Click() Dim s1(1 To 10) As String Call mysplit(List1.List(i), s1()) Form1.Print s1(1) Form1.Print s1(2) Ciao Blue

Zeichenkette erweitern	166	Blue	25.08.03 14:47
Re: Zeichenkette erweitern	377	Dieter	25.08.03 14:54
Re: Zeichenkette erweitern	81	Bluebird	25.08.03 20:41
Re: Zeichenkette erweitern	101	Blue	26.08.03 06:59

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