+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قراءة معلومات json من الموقع (/showthread.php?tid=22039)
قراءة معلومات json من الموقع - سلامات - 09-10-17
سلام عليكم
انا عاوز اعرف ايه الفرق بين xml و json وإزاي اقراء ملف جسون من الموقع على لغة vbnet
RE: قراءة معلومات json من الموقع - a.ahmed - 09-10-17
Json.NET
PHP كود :
Imports Newtonsoft.Json 'Newtonsoft.Json.dll
'https://www.dllme.com/dll/files/newtonsoft_json_dll.html
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim json As String =
" { " & _
" 'Name': 'Bad Boys', " & _
" 'ReleaseDate': '1995-4-7T00:00:00', " & _
" 'Genres': [ " & _
" 'Action', " & _
" 'Comedy' " & _
" ] " & _
" } "
Dim m As Movie = JsonConvert.DeserializeObject(Of Movie)(json)
Dim name As String = m.Name
MsgBox("Name: " & name)
Dim releaseDate As String = m.ReleaseDate
MsgBox("ReleaseDate: " & releaseDate)
Dim genres As String = String.Join(", ", m.Genres)
MsgBox("Genres: " & genres)
End Sub
End Class
Public Class Movie
Public Name As String
Public ReleaseDate As String
Public Genres() As String
End Class
RE: قراءة معلومات json من الموقع - سلامات - 10-10-17
اخ احمد شكرا لك انا احاول قراءة هذا
PHP كود :
{"posts":[{"post":{"UserSUB":"محمد سلامه","Title":"الفصل الاول","ClassSUB":"الصف الاول"}}]}
احاول القراءة من خلال التالي
PHP كود :
Dim json As String = thepage
Dim ser As JObject = JObject.Parse(json)
Dim data As List(Of JToken) = ser.Children().ToList
Dim output As String = ""
For Each item As JProperty In data
item.CreateReader()
Select Case item.Name
Case "posts"
output += "post" + vbCrLf
For Each classsub As JObject In item.Values
Dim u As String = classsub("UserSUB")
Dim d As String = classsub("Title")
Dim c As String = classsub("ClassSUB")
output += u + vbTab + d + vbTab + c + vbTab + vbCrLf
Next
End Select
Next
MsgBox(output)
المشكلة يعيد النتيجه خالية
RE: قراءة معلومات json من الموقع - a.ahmed - 10-10-17
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim json As String = thepage
Dim data As Posts = JsonConvert.DeserializeObject(Of Posts)(json)
Dim output As String = ""
For Each p As Posts.Post In data.Posts
Dim u As String = p.Post.UserSUB
Dim d As String = p.Post.Title
Dim c As String = p.Post.ClassSUB
output += u + vbTab + d + vbTab + c + vbTab + vbCrLf
Next
MsgBox(output)
End Sub
Class Posts
Public Posts() As Post
Class Post
Public Post As Detail
Class Detail
Public UserSUB As String
Public Title As String
Public ClassSUB As String
End Class
End Class
End Class
RE: قراءة معلومات json من الموقع - سلامات - 10-10-17
شكرا اخ احمد
(10-10-17, 04:30 AM)a.ahmed كتب :PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim json As String = thepage
Dim data As Posts = JsonConvert.DeserializeObject(Of Posts)(json)
Dim output As String = ""
For Each p As Posts.Post In data.Posts
Dim u As String = p.Post.UserSUB
Dim d As String = p.Post.Title
Dim c As String = p.Post.ClassSUB
output += u + vbTab + d + vbTab + c + vbTab + vbCrLf
Next
MsgBox(output)
End Sub
Class Posts
Public Posts() As Post
Class Post
Public Post As Detail
Class Detail
Public UserSUB As String
Public Title As String
Public ClassSUB As String
End Class
End Class
End Class