تقييم الموضوع :
  • 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 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله فى جهاز قراءة الباركود خالد كامل1 1 342 03-11-23, 06:42 AM
آخر رد: Taha Okla
  [VB.NET] مشكله في قراءة ملصقات الباركود CoderMM 6 1,804 15-03-23, 06:27 PM
آخر رد: المتألق9
  [سؤال] كيف اقوم بسحب معلومات من صفحة ويكيبديا zxz5432 12 7,105 20-01-23, 01:27 AM
آخر رد: lysalh65@gmail.com
  كود تحديد الموقع حماده ممدوح البحيرى 2 380 21-12-22, 10:13 AM
آخر رد: حماده ممدوح البحيرى
  كيفية استخراج كود من الموقع عن طريق vb.net crazykinko 2 525 06-12-22, 05:42 PM
آخر رد: crazykinko
  قراءة البريد الالكتروني باستخدام الفيجوال بازيك صبري زينوبي 0 378 24-08-22, 05:47 PM
آخر رد: صبري زينوبي
  قراءة خلية من الداتا قريد بصيغة نص aftfm 0 677 21-08-22, 05:22 AM
آخر رد: aftfm
  كيف نحدد فتح الموقع بمتصفح مثلاً Chrome رمضان محمد 2 607 08-08-22, 08:05 PM
آخر رد: Taha Okla
  قراءة البيانات من برنامج البصمة strongriseman 2 1,294 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو
Exclamation قراءة بيانات الصورة من قاعدة بيانات أكسس إلى أداة PictureBox أبو خالد الشكري 15 1,846 20-07-22, 05:40 PM
آخر رد: أبو خالد الشكري

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


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