تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قراءة معلومات json من الموقع
#1
سلام عليكم

انا عاوز اعرف ايه الفرق بين xml و json وإزاي اقراء ملف جسون من الموقع على لغة vbnet
الرد
تم الشكر بواسطة:
#2
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.ObjectByVal e As System.EventArgsHandles 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 
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#3
اخ احمد شكرا لك انا احاول قراءة هذا
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 += vbTab vbTab vbTab vbCrLf
                        Next

                End Select
            Next

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

المشكلة يعيد النتيجه خالية Huh
الرد
تم الشكر بواسطة:
#4
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles 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 
+= vbTab vbTab 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 
الرد
تم الشكر بواسطة: Amir_Alzubidy , سلامات
#5
شكرا اخ احمد

(10-10-17, 04:30 AM)a.ahmed كتب :
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles 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 
+= vbTab vbTab 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 152 21-01-19, 06:49 PM
آخر رد: dubai.eig
  تبدل معلومات قاعدة البيانات SonBasel 4 200 03-01-19, 12:16 AM
آخر رد: عبدالله الصافي
  عرض معلومات ف DatagridView Emam emam 9 441 02-01-19, 03:47 PM
آخر رد: new_programer
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 15 556 29-12-18, 02:03 AM
آخر رد: a.wagdi
  نسخ معلومات من داتا تيبل الى داتا تيبل ثانيه SonBasel 0 135 27-12-18, 04:27 PM
آخر رد: SonBasel
  جلب رابط من الموقع bidaya 5 256 05-12-18, 08:10 PM
آخر رد: bidaya
  [VB.NET] استفسار :- كيف اسحب معلومات من موقع الكتروني dubai.eig 2 231 30-11-18, 03:12 PM
آخر رد: XBOOBX
  اظهار معلومات اكثر من جدول في crystal Report Rabeea Qbaha 10 417 26-11-18, 02:31 AM
آخر رد: elgokr
Lightbulb قراءة بيانات ملف من نوعbin fouadhdfouad 1 181 08-11-18, 11:02 PM
آخر رد: fouadhdfouad
  عاوز اعرف ازاى اتعامل مع هذا الموقع بدون ويب براوزر ابو روضة 4 398 24-10-18, 07:47 PM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم