منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم

انا عاوز اعرف ايه الفرق بين xml و json وإزاي اقراء ملف جسون من الموقع على لغة vbnet

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 

اخ احمد شكرا لك انا احاول قراءة هذا

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) 

على اعتبار أن thepage هو مصفوفة json التي في الاعلى

المشكلة يعيد النتيجه خالية Huh

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 

شكرا اخ احمد

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلامات

a.ahmed

سلامات

a.ahmed

سلامات