I'm getting some JSON from a website, and they apparently don't properly terminate their strings. It's causing this error:
(JSONException) org.json.JSONException: Unterminated object at character 31 of {symbol=CITY, name=Manchester City Fan Token, id=1489, tradingSymbol=CITY}
s = s.SubString2(1,s.Length-1).Trim
Dim sep() As String = Regex.Split(",",s)
For Each str As String In sep
Dim seps() As String = Regex.Split("=",str)
newmap.Put(seps(0).trim,seps(1).Trim)
Next