✔ Zeichenkette trennen

[Freddy-Flieger]

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

 

[kuhlmaehn]

Hoi!

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

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

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

 

[Freddy-Flieger]

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