Zeichenkette trennen

Freddy-Flieger

Grünschnabel
Hallo Ihr,

bin noch Neuling was die VB6 Programmierung angeht und habe ein Problem.

Ich habe eine 12 Zeichen lange Zeichenkette aus Zahlen und Buchstaben welche aus einem String übergeben wird. Nun möchte diese gern anders formatieren, sprich genau nach jeder 2. Stelle möchte ich ein - (Minus) einfügen. Kann mir da jemand helfen ?

Desweiteren möchte ich in einem weiteren Schritt die Buchstaben durch eine bestimmte Zahl ersetzen. Auch wie man soetwas macht würde ich gern wissen.

Vielen Dank und liebe Grüsse
Freddy
 
Hoi!

Also das mit den 12 Zeichen würd ich so machen:

Visual Basic:
Function Einfügen(derText)

For n = 0 To 4
Einfügen = Einfügen & Mid(derText, (n * 2) + 1, 2) & "-"
Next n

Einfügen = Einfügen & Mid(derText, 11, 2)

End Function

Du rufst das dann zB mit
Visual Basic:
Private Sub Command1_Click()
Text2.Text = Einfügen(Text1.Text)
End Sub
auf.

Und das ersetzen macht man mit Replace. Guckst du zB hier ;)
http://www.vbarchiv.net/commands/Replace.php
 
Danke, hat zwar nicht auf Anhieb funktioniert, aber war nichts dramatisches. Hattest nur zu Anfang

Dim n as Integer

vergessen.

Nochmals vielen lieben Dank

Gruss Freddy
 

Neue Beiträge

Zurück