[سعود]

معذرة اخي الكريم
كنت ناوي اجهز المثال بفيجوال بيسك ثم احوله لكن الموضوع لم يتيسر لي هذا ما اتممته فقط جلب اسماء الاعمدة فقط اما الصفوف تحتاج مني وقت اكثر لصياغة الكود المناسب:

PHP كود :

Public Class Form1
    Dim apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\"
    Dim js As String = apath & "json.txt"
  
    Dim lines() As String = IO.File.ReadAllLines(js)
    Private Sub Getvalues(dgv As DataGridView)
        Dim row As Boolean
        For Each line As String In lines
            If line.Trim = "{" Then
                row = True
            End If
            If line.Trim.StartsWith("""") And row = True Then
                Dim colname As String = line.Trim.Split(":")(0).Replace("""", "")
                Dim colvalue As String = line.Trim.Split(":")(1).Replace("""", "")
                If colname.ToLower.Trim = "id" Then
                    dgv.Columns(0).HeaderText = colname
                ElseIf colname.ToLower.Trim = "number" Then
                    dgv.Columns(1).HeaderText = colname
                ElseIf colname.ToLower.Trim = "content" Then
                    dgv.Columns(2).HeaderText = colname
                ElseIf colname.ToLower.Trim = "tag" Then
                    dgv.Columns(3).HeaderText = colname
                ElseIf colname.ToLower.Trim = "date" Then
                    dgv.Columns(4).HeaderText = colname
                End If
            End If
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Getvalues(Me.DataGridView1)
    End Sub
End Class