Feld nach einem bestimmten Wert durchsuchen

[chock]

Hallo Forum,

ich möchte ein Feld nach dem Wert ";" durchsuchen und alles was folgt abschneiden. Liegt das Problem vielleicht in dem @-Befehl?
Danke


Dim SearchString As String
   
   SearchString = {@Contains(HA;";")}
   If (SearchString="1") Then   
      AField(LineItem) = Strleft(UiDoc.FieldGetText("HA"),";")
   Else
      AField(LineItem) = UiDoc.FieldGetText("HA")
   End If
   BField(LineItem) = UiDoc.FieldGetText("HB")
   CField(LineItem) = UiDoc.FieldGetText("HC")
.
.
.
.
.

[Thomas Schulte]

Mach doch einfach ein
Array = Split(String,";")
Array(0)

 Viel einfacher.

[klaussal]

... oder @left.

Oh Schit, ist ja LS.

[m3]

AField(LineItem) = Left( UiDoc.FieldGetText("HA"), Instr( UiDoc.FieldGetText("HA"), ";" ) -1 )
Ist IMHO "schneller" als der Split in ein Array. Vor allem bei vielen ";" im Text.

[chock]

Vielen Dank für die schnellen Antworten. Ich habe die Lösung von m3 genommen.
THX

[ata]

... und was spricht gegen

Code

MsgBox StrLeft( {Hallole, das ist ein  Test, ob das auch klappt?} , {,} )

... das wäre das Original...

Toni