[RESOLVED] Extract values from string

[snufse]

Have following string:

Feed.SmulocV2.Equipment,CAT,,DFT08783,2567,Hours,2010-02-07 06:37:41,Lat:35.10495,Lng:-82.99304 

The string will always have text "Lat:" and "Lng:". The value of Lat and Lng could in some cases be nothing.

Now I need to extract the values for Lat and Lng. Any good way of doing this? Thank you.

[Siddharth Rout]

Untested:

'~~> This function will give you the value of Lat
'~~> strOne = "Lat:"
'~~> strTwo = ",Lng:"
Private Function ExtractText(ByVal Source As String, _
ByVal strOne As String, ByVal strTwo As String) As String
    Dim lngRet As long = Source.IndexOf(strOne) + strOne.Length
    Return Source.Substring(lngRet, Source.IndexOf(strTwo) - lngRet)
End Function

Similarly you can find the position of "Lng:-" and get the text after that.

[.paul.]

you can do it with regex:

Dim testStr As String = "Feed.SmulocV2.Equipment,CAT,,DFT08783,2567,Hours,2010-02-07 06:37:41,Lat:35.10495,Lng:-82.99304"
'latitude
Dim rx As New Regex("(?<=Lat:)-*\d*\.*\d+")
MsgBox(rx.Match(testStr).Value)
'longitude
rx = New Regex("(?<=Lng:)-*\d*\.*\d+")
MsgBox(rx.Match(testStr).Value)

don't forget to import regex:

Imports System.Text.RegularExpressions

[snufse]

Worked. Thank you.

[.paul.]

which code did you use?

[Siddharth Rout]

OK, I get the correct value for Lat. Msgbox shows nothing for Lng.

Yes like I mentioned that function is for Lat only. You will have to write a different piece of code for Lan...

Give it a try... if you get stuck then post the code that you have tried and we will definitely help you

[luca90]

Untested:

'~~> This function will give you the value of Lat
'~~> strOne = "Lat:"
'~~> strTwo = ",Lng:"
Private Function ExtractText(ByVal Source As String, _
ByVal strOne As String, ByVal strTwo As String) As String
    Dim lngRet As long = Source.IndexOf(strOne) + strOne.Length
    Return Source.Substring(lngRet, Source.IndexOf(strTwo) - lngRet)
End Function

Similarly you can find the position of "Lng:-" and get the text after that.

Hi friend i need exactly but for vb6b classic

Sorry if i reply on old post

[.paul.]

try this:

Private Function ExtractText(ByVal Source As String, ByVal strOne As String, ByVal strTwo As String) As String
    Dim intRet As Integer = InStr(Source, strOne) + Len(strOne)
    ExtractText = Mid(Source, intRet, InStr(Source, strTwo) - intRet)
End Function

[luca90]

try this:

Private Function ExtractText(ByVal Source As String, ByVal strOne As String, ByVal strTwo As String) As String
    Dim intRet As Integer = InStr(Source, strOne) + Len(strOne)
    ExtractText = Mid(Source, intRet, InStr(Source, strTwo) - intRet)
End Function

Hi friend i need exactly but for vb6b classic

Sorry if i reply on old post

[.paul.]

that is for vb6... try it

[luca90]

that is for vb6... try it

hummmmmmmmmm.... see the red line

I use for a test vba for excel

[.paul.]

Private Function ExtractText(ByVal Source As String, ByVal strOne As String, ByVal strTwo As String) As String
    Dim intRet As Integer
    intRet = InStr(Source, strOne) + Len(strOne)
    ExtractText = Mid(Source, intRet, InStr(Source, strTwo) - intRet)
End Function