Split field

[khicon73]

txtValue = "Sugar land, City of |15245|what|8558"
i would like to get the value like:
txtNewValue = "Sugar land, City of"
Please help, thanks.

 

[MajP]

Public Sub test()
Dim splitVals() As String
Dim txtValue As String
Dim newTxtValue As String
txtValue = "Sugar land, City of |15245|what|8558"
splitVals = Split(txtValue, "|")
newTxtValue = splitVals(0)
End Sub

spliVals(1) returns 15245
splitVals(2) returns what
splitVals(3) returns 8558

 

[khicon73]

Thanks MajP, it works like charm...

 

[SkipVought]

and if you don't care to define separate array variable...

Public Sub test()
 Dim txtValue As String
 Dim newTxtValue As String
 txtValue = "Sugar land, City of |15245|what|8558"[s]
' splitVals = Split(txtValue, "|")[/s]
 newTxtValue = Split(txtValue, "|")(0)
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[MajP]

actually if you just want the first one
newTxtValue = Left(txtValue, InStr(txtValue, "|") - 1)

a little less flexible.

 

[khicon73]

Thank you everyone.