quick vb question

Diddy Kong

hi, i have a string, eg "im a string @1234 @4321", i want to seperate the string, eg string1="im a string" string2="@1234 @4321", thought about an array, any suggestions on a function or work round.....

[CrimsonGhost]

Sub blah()
    Dim str As String
    Dim leftStr As String
    Dim rightStr As String
    
    Dim pos As Integer
    str = "im a string @1234 @4321"
    pos = InStr(str, "@")
    
    leftStr = Left(str, pos - 1)
    rightStr = Mid(str, pos)
    
    MsgBox str
    MsgBox leftStr
    MsgBox rightStr
End Sub

Not perfect. You'll still have a space on the end of leftStr, so you may want to strip that first. I tried that as VBA, works fine though, so should be the same in VB.

Diddy Kong

cheers, exactly what i was lookin for

Mick L

Originally posted by [CrimsonGhost]

    ...
    leftStr = [b]Trim([/b]Left(str, pos - 1)[b])[/b]
    ...

Not perfect. You'll still have a space on the end of leftStr

The trim() function will sort out any spaces

hostyle

You could also use split

The Corinthian

Originally posted by hostyle
You could also use split

Split is to be found in VBScript and not VB proper (althou in fairness dbfarrell has not specified which they're using). VB/VBS/VBA really sucks at array handling, TBH.

jessy

split can be found in VB 6 although I’m not sure what you mean by VB proper

The Corinthian

Originally posted by jessy
split can be found in VB 6 although I’m not sure what you mean by VB proper

Upps... didn't know VB6 had implemented it - VB5 dosen't