Question get text data from website
- Thread starter Badi
- Start date
i seen one program that made by vb net and with this same link
here is link
for example profile of Jeff
http://www.paltalk.com/people/ws/profile/Jeff?pretty=true
Yes, that is Json data, which as I said can be read with that Json.Net library. You download and extract it, and add reference to \Bin\Net40\Newtonsoft.Json.dll.
Here's an example downloading the data from web, parsing it into JToken object, and getting some properties:
Here's an example downloading the data from web, parsing it into JToken object, and getting some properties:
Dim web As New Net.WebClient
Dim text = web.DownloadString("http://www.paltalk.com/people/ws/profile/Jeff?pretty=true")
Dim token = Newtonsoft.Json.Linq.JToken.Parse(text)
Dim profile = token("Profile")
Dim country = "Country: " & profile("country").ToString
Dim content = "Content: " & profile("adContent").ToString
Dim accdate = "Date: " & profile("dateAccountCreated").ToString
Me.TextBox1.Text = String.Join(vbNewLine, {country, content, accdate})
You must be talking about the profile url, if the url don't exist DownloadString method will throw a WebException, this is something you can Try-Catch. Try...Catch...Finally Statement (Visual Basic)
hi, but if in the Json data exist more than one value or text
e.g:
country: US
country: NL
country: UK
i used this one: Dim country = "Country: " & profile("country").ToString
but i'm getting error
When you have selected the "list" token you can for example loop through all the items in that collection:
For Each item In listToken
Dim s = item("name").ToString()
Next
i'm getting 2 errors sir can you send me completed code please
Dim web As New Net.WebClient
Dim text = web.DownloadString("URL")
Dim token = Newtonsoft.Json.Linq.JToken.Parse(text)
Dim result = token("result")
For Each item In list Token
Dim s = item("name").ToString()
Next
Me.TextBox1.Text = String.Join(vbNewLine, {country, content, accdate})
2 errors
1.Expression expected.
2.Overload resolution failed because no accessible 'Join' is most specific for these arguments:
'Public Shared Function Join(Of Newtonsoft.Json.Linq.JToken)(separator As String, values As System.Collections.Generic.IEnumerable(Of Newtonsoft.Json.Linq.JToken)) As String': Not most specific.
'Public Shared Function Join(separator As String, ParamArray values() As Object) As String': Not most specific.
Dim web As New Net.WebClient
Dim text = web.DownloadString("URL")
Dim token = Newtonsoft.Json.Linq.JToken.Parse(text)
Dim result = token("result")
For Each item In list Token
Dim s = item("name").ToString()
Next
Me.TextBox1.Text = String.Join(vbNewLine, {country, content, accdate})
2 errors
1.Expression expected.
2.Overload resolution failed because no accessible 'Join' is most specific for these arguments:
'Public Shared Function Join(Of Newtonsoft.Json.Linq.JToken)(separator As String, values As System.Collections.Generic.IEnumerable(Of Newtonsoft.Json.Linq.JToken)) As String': Not most specific.
'Public Shared Function Join(separator As String, ParamArray values() As Object) As String': Not most specific.
"result" is not a collection, is has a "list" token that is a collection. Are you not able to see the tree structure of the data?
For Each item In token("result")("list")
