Pick out a string from within a string

[leighhobson89]

Hi guys,

I am doing a WinHTTPRequest API call. The response is stored in a variable called responseText. Somewhere in that string will be "videoID": "xxxxxxxxxxx"

The objective here is to pull out the 11 "x" characters and write them in a string.

The GET request sample looks exactly like above (although that is just a snippet from a large response), so it includes the quotes and space, and the colon. So I need to find videoID, skip 4 characters, then copy the next 11 into a variable.

Please can someone indicate the code needed to do this?

Thanks.

 

[John_w]

Try this:

    Dim x As String, p As Long
    p = InStr(responseText, """videoID"": ") + Len("""videoID"": ")
    x = Mid(responseText, p + 1, 11)
    MsgBox x

 

[Rick Rothstein]

Maybe something like this...

ID = Split(Split(ResponseText, """videoID"":")(1), """")(1)

 

[leighhobson89]

Awesome guys. I went with the first one, and haven't tried the second one as the first one worked. This web-site is awesome! Thanks again!