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


اريد مساعدة في المثال التالي 
تعيئة الداتا قؤيد 
id
number
content
tag
date


الملفات المرفقة
.rar   benhe.rar (الحجم : 26.77 ك ب / التحميلات : 17)
الرد }}}
تم الشكر بواسطة:
#2
و عليكم السلام ورحمة الله و بركاته
بحثت بقوقل ووجدت اغلب الحلول بتحميل اضافة وتثبيتها واستخدامها ....كنت اود استخدم حيلتي بفيجوال ببيسك لكن تفاجات ان القسم الحالي هو سي شارب.
المهم هل المحتوى بمربع النص هو كود json كامل و صحيح؟
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: bidaya
#3
شكرا لك اخي سعود على اهتمامك 



نعم اخي الكود عبارة عن json  وهو صحيح 
وهو عبارة على مجموعة من الرسائل قابل للزيادة 
اريج جلب
 الid
وال number الي هو رقم المرسل
والcontent الي هو النص مشفر
وال date الي هو التاريخ

اريد تعبئة الداتا قريد بهذه المعلومات المرسلة
وشكرا
الرد }}}
تم الشكر بواسطة:
#4
معذرة اخي الكريم
كنت ناوي اجهز المثال بفيجوال بيسك ثم احوله لكن الموضوع لم يتيسر لي هذا ما اتممته فقط جلب اسماء الاعمدة فقط اما الصفوف تحتاج مني وقت اكثر لصياغة الكود المناسب:
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 
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: bidaya
#5
في البداية يجب تصحيح كود الjson الموجود في textBox1 لانه كل مجموعة بيانات لم تغلق {

تحتاج المكتبة Newtonsoft.Json.dll
PHP كود :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace 
benhe
{
 
   public partial class Form1 Form
    
{
 
       private DataTable table;

 
       public Form1()
 
       {
 
           InitializeComponent();
 
           this.table = new DataTable();
 
           this.table.Columns.Add("tag"typeof(bool));
 
           this.table.Columns.Add("Statu"typeof(Image));
 
           this.table.Columns.Add("number"typeof(string));
 
           this.table.Columns.Add("content"typeof(string));
 
           this.table.Columns.Add("Date"typeof(string));
 
           this.table.Columns.Add("Id"typeof(string));
 
           this.dataGridView1.DataSource this.table;
 
           this.dataGridView1.Columns[0].AutoSizeMode DataGridViewAutoSizeColumnMode.ColumnHeader;
 
           this.dataGridView1.Columns[1].AutoSizeMode DataGridViewAutoSizeColumnMode.ColumnHeader;
 
           this.dataGridView1.Columns[2].AutoSizeMode DataGridViewAutoSizeColumnMode.ColumnHeader;
 
           this.dataGridView1.Columns[3].AutoSizeMode DataGridViewAutoSizeColumnMode.Fill;
 
       }

 
       private void button1_Click(object senderEventArgs e)
 
       {
 
           int num 0;
 
           var jobjects Newtonsoft.Json.JsonConvert.DeserializeObject<List<Newtonsoft.Json.Linq.JObject>>(this.textBox1.Text);
 
           foreach (var o in jobjects)
 
           {
 
               DataRow dr this.table.NewRow();
 
               dr["id"] = (string)o.SelectToken("id");
 
               dr["tag"] = ((string)o.SelectToken("tag") == "1");
 
               dr["number"] = (string)o.SelectToken("number");
 
               dr["content"] = (string)o.SelectToken("content");
 
               String[] = ((string)o.SelectToken("date")).Split(',');
 
               String date String.Format("20{0}/{1}/{2} {3}:{4}:{5}"d[0], d[1], d[2], d[3], d[4], d[5]);
 
               dr["date"] = date;
 
               this.table.Rows.Add(dr);
 
               if ((string)o.SelectToken("tag") == "0"num++;
 
           }
 
           this.toolStripStatusLabel1.Text "Total : " table.Rows.Count;
 
           this.toolStripStatusLabel2.Text "non Lus :" num.ToString();
 
       }
 
   }

بالنسبة لnum الخاص ب non Lus لست متاكد من طريقتها، فقد تحتاج لتعديلها

كود json بعد التصحيح
PHP كود :
[
 
 {
 
   "id""3175",
 
   "number""0125548753",
 
   "content""0056006F00740072002E",
 
   "tag""1",
 
   "date""23,06,22,09,57,41,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""0",
 
   "concat_sms_total""2",
 
   "concat_sms_received""3",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3173",
 
   "number""532155553",
 
   "content""0056006F0074300330033002E",
 
   "tag""1",
 
   "date""23,06,22,09,57,40,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""0",
 
   "concat_sms_total""2",
 
   "concat_sms_received""3",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3171",
 
   "number""5353",
 
   "content""0633064A062A06450020062A062C29",
 
   "tag""1",
 
   "date""23,06,22,07,35,42,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""0",
 
   "concat_sms_total""3",
 
   "concat_sms_received""4",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3163",
 
   "number""215488888",
 
   "content""004C006500200063006C006900606C006F",
 
   "tag""0",
 
   "date""23,06,21,21,48,27,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""1",
 
   "concat_sms_total""0",
 
   "concat_sms_received""0",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3161",
 
   "number""+213782767990",
 
   "content""00540067006F9526F006F",
 
   "tag""0",
 
   "date""23,06,21,21,38,02,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""1",
 
   "concat_sms_total""0",
 
   "concat_sms_received""0",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3159",
 
   "number""+213782447578",
 
   "content""063106270646064806256310631",
 
   "tag""0",
 
   "date""23,06,21,21,35,51,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""1",
 
   "concat_sms_total""0",
 
   "concat_sms_received""0",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3157",
 
   "number""+213782300554",
 
   "content""064625522224606460646",
 
   "tag""0",
 
   "date""23,06,21,21,27,37,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""1",
 
   "concat_sms_total""0",
 
   "concat_sms_received""0",
 
   "sms_submit_msg_ref""0"
 
 }
 
 ,
 
 {
 
   "id""3155",
 
   "number""+213332700548",
 
   "content""063303132544210633",
 
   "tag""0",
 
   "date""23,06,21,21,18,40,+4",
 
   "draft_group_id""",
 
   "received_all_concat_sms""1",
 
   "concat_sms_total""0",
 
   "concat_sms_received""0",
 
   "sms_submit_msg_ref""0"
 
 }

الرد }}}
تم الشكر بواسطة: سعود
#6
الله يحفظك اخي سعود 
سانتظ محاولاتك استاذنا الكريم
ساحول المثال واجربه 


الف تحية وتقدير Heart  

الف شكر اخي الكريم G20
على المثال كود يعمل بامتياز 

لكن كود الjson 

يتم جلبه مثل ما هو بالتكست بوكس

يعني من دون {

هذا الملف يتم جلبه من مفاتيح هواوي حيث تصل الرسائل له عبر شريحة sim

الف شكر 
الله يحفظك Heart

شكرا اخي G20

تم تصحيح كود جلب ملف json 
كان فيه دالة قص   العلامة {



شكرا جزيلا
الرد }}}
تم الشكر بواسطة: سعود



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


يقوم بقرائة الموضوع: