✔ ComboBox bis zu einem bestimmten Zeichen auslesen?

[bsellmair]

Hallo,

bestimmt kann mir jemand bei meinem Problem (VB6) helfen:

Ich habe eine ComboBox, in der Artikelnummern und deren Bezeichnungen ausgewählt werden können, getrennt mit einem " | ".

ComboArtNr1.AddItem rec2![ArtNr] & "| " & rec2![Bezeichnung]

(z.B. 1013| Magermilch)

Nun möchte ich in einer TextBox NUR die Artikelnr. anzeigen lassen, sprich alles, das vor dem " | " steht.

Ich habe so eine Ahnung dass es irgend eine String-Funktion sein muss, die das Problem lösen kann aber damit kenne ich mich leider nicht so gut aus.

Weiß eventuell jemand die entsprechenden Befehle oder kann mir einen Link zu einem guten Beispiel verraten?

Vielen Dank schon mal und Beste Grüße,
Bernhard

 

[Alex F.]

text1.text = mid(comboartnr1,1, instr(1,comboartnr1.text,"|",0,0)

Grüsse bb
kann sein das du vielleicht noch 1 abziehen musst

 

[bsellmair]

Vielen herzlichen Dank Brian, ;-)

habs dennoch anders gelöst, da bei deinem Code höchstwahrscheinlich mit den Klammern was nicht gestimmt hat.
//edit: und ja, ich habe nur die Stellen vor dem "|" gebraucht, also -1

Dim Pos1 as Byte

Pos1 = InStr(ComboArtNr1.Text, "|")
Pos1 = Pos1 - 1
Text1.Text = Mid(ComboArtNr1.Text, 1, Pos1)

Nochmals Vielen Dank!
Grüße, Bernhard