[RESOLVED] string manipulation

[vbbit]

Hi guys, I have this following string:

"testing|test|Name|msword|Looking|aaa"

I want to be able to get the "msword" out of that above string after the "Name|"

Also, if the string becomes like this:

"testing|test|Name|msword|"

I want to be able to get the "msword" out of that above string after the "Name|" as well -

so the format will be always Name|something....

I tried this, but it only works for 2nd scenario but no the first scenario.

Right$(sCommand, Len(sCommand) - InStrRev(sCommand, "|"))

[jmsrickland]

What do you mean by 'out'? You want it out (removed) of the string or you want to just capture it into another variable. Also is 'msword' a fixed value or what?

If you want to remove it then use Replace function.

Dim s1 As String

s1 = "testing|test|Name|msword|Looking|aaa"

s1 = Replace(s1,"msword", "")

[vbbit]

When I said "out", I meant display it to the users - using msgbox -
That msword will be dynamic. So it can be msexcel, outlook, or other app names. I do not want to replace or remove.

[jmsrickland]

Is Name fixed

[SamOscarBrown]

is 'that word' always in the fourth section of your string? (XXXX|XXXX|XXXXX|msexcel|)

[jmsrickland]

Look at his 1st example, Sam

[SamOscarBrown]

does this do it for you?
Dim mystring() As String, myWord As String, myInt As Integer
mystring = Split(Text1.Text, "Name|")
myInt = InStr(1, mystring(1), "|")
myWord = Mid(mystring(1), 1, myInt - 1)
MsgBox myWord
End Sub

[Bonnie West]

Here's another approach:

Private Function GetText(ByRef sText As String) As String
    Dim Pos As Long

    Pos = InStr(sText, "Name|") + 5&
    GetText = Mid$(sText, Pos, InStr(Pos, sText, "|") - Pos)
End Function

[vbbit]

does this do it for you?
Dim mystring() As String, myWord As String, myInt As Integer
mystring = Split(Text1.Text, "Name|")
myInt = InStr(1, mystring(1), "|")
myWord = Mid(mystring(1), 1, myInt - 1)
MsgBox myWord
End Sub

Thanks, this solution works!