المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة :
19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
يسعد الله اوقاتكم
لدي مشروع صغيره عباره عن
Client/Server
اقوم بالاتصال في احد السيرفرات لاستلم مسج
المسج عباره عن عدة خانات
de PY2GG: 14076.0 S9YY JT65 73 RAMOS 2203Z
الخانه الاوله de PY2GG
الثانيه 14076.0
والثالثه S9YY
والرابعه JT65 73 RAMOS
والخامسه 2203Z
عندما يتم العرض في DataGridView1
الخانة الاولى والثانيه والثالثه تنزل تمام بس الرابعه تتوزع علي عدة خانات والخانه الخامسه ما تطلع
مثال
ممكن مساعدتي في ضبط ال DataGridView1
الكود اللي احاول في هو
المشروع مرفق
VB.rar (الحجم : 110.61 ك ب / التحميلات : 31)
وشكرا لكم
المشاركات : 33
المواضيع 0
الإنتساب : Oct 2016
السمعة :
5
الشكر: 0
تم شكره 30 مرات في 15 مشاركات
السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة :
19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
(18-10-16, 02:21 AM)mhmd_911 كتب : السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت
بارك الله فيك
شكرا عليةالرد
بس كيف اعيد تضبيط الخانات بارك الله فيك
المشاركات : 33
المواضيع 0
الإنتساب : Oct 2016
السمعة :
5
الشكر: 0
تم شكره 30 مرات في 15 مشاركات
اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
PHP كود :
DX de JR3IIR: 24900.0 S9YY pse 12m 10m Asia Japan DX de UA0ZV: 14030.4 9J2BO cq lp DX de W3LPL: 10118.1 S9YY Heard in MD DX de UA3SCE: 14070.4 SV1NZR tnx QSO DX de OK2ZV: 7020.0 ZL2AIM tnx ian 73 DX de SV2RJO: 10111.0 EK4JJ tnx DX de I2IFT: 14001.0 RADAR +20db DX de UY2UQ: 10118.0 S9YY tnx up-2.5 DX de HA1KED: 7020.0 ZL2AIM Tnx qso Ian
يعني كلها اربع اعمدة وتقدر تستفيد من هذه الطريقة في التقسيم
PHP كود :
Dim a1 As String = message.Length & " : " & message.Substring(5, message.IndexOf(":") - 5).Trim Dim a2 As String = message.Substring(18, 8).Trim Dim a3 As String = message.Substring(26, 8).Trim Dim a4 As String = message.Substring(39, 11).Trim DataGridView1.Rows.Add(a1, a2, a3, a4)
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة :
19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
(18-10-16, 10:45 AM)mhmd_911 كتب : اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
PHP كود :
DX de JR3IIR: 24900.0 S9YY pse 12m 10m Asia Japan DX de UA0ZV: 14030.4 9J2BO cq lp DX de W3LPL: 10118.1 S9YY Heard in MD DX de UA3SCE: 14070.4 SV1NZR tnx QSO DX de OK2ZV: 7020.0 ZL2AIM tnx ian 73 DX de SV2RJO: 10111.0 EK4JJ tnx DX de I2IFT: 14001.0 RADAR +20db DX de UY2UQ: 10118.0 S9YY tnx up-2.5 DX de HA1KED: 7020.0 ZL2AIM Tnx qso Ian
يعني كلها اربع اعمدة وتقدر تستفيد من هذه الطريقة في التقسيم
PHP كود :
Dim a1 As String = message.Length & " : " & message.Substring(5, message.IndexOf(":") - 5).Trim Dim a2 As String = message.Substring(18, 8).Trim Dim a3 As String = message.Substring(26, 8).Trim Dim a4 As String = message.Substring(39, 11).Trim DataGridView1.Rows.Add(a1, a2, a3, a4)
شكرا علي الرد
فعلا قمت بالتجربة الان واتضح بان الخانه الخامسه غير موجوده
اللي هيه الوقت
de PY2GG: 14076.0 S9YY JT65 73 RAMOS 2203Z
راح اجرب الكود الخاص بك بس يا ليت احصل حل لاضهار الخانه الخامسه
شكرا من جديد
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة :
19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
18-10-16, 09:14 PM
(آخر تعديل لهذه المشاركة : 18-10-16, 09:27 PM {2} بواسطة dubai.eig.)
(18-10-16, 10:45 AM)mhmd_911 كتب : اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
PHP كود :
DX de JR3IIR: 24900.0 S9YY pse 12m 10m Asia Japan DX de UA0ZV: 14030.4 9J2BO cq lp DX de W3LPL: 10118.1 S9YY Heard in MD DX de UA3SCE: 14070.4 SV1NZR tnx QSO DX de OK2ZV: 7020.0 ZL2AIM tnx ian 73 DX de SV2RJO: 10111.0 EK4JJ tnx DX de I2IFT: 14001.0 RADAR +20db DX de UY2UQ: 10118.0 S9YY tnx up-2.5 DX de HA1KED: 7020.0 ZL2AIM Tnx qso Ian
يعني كلها اربع اعمدة وتقدر تستفيد من هذه الطريقة في التقسيم
PHP كود :
Dim a1 As String = message.Length & " : " & message.Substring(5, message.IndexOf(":") - 5).Trim Dim a2 As String = message.Substring(18, 8).Trim Dim a3 As String = message.Substring(26, 8).Trim Dim a4 As String = message.Substring(39, 11).Trim DataGridView1.Rows.Add(a1, a2, a3, a4)
استاذ mhmd_911
شكرا لك مع الكود الي كتبته ومع محاولات مني نجحت في اضهار وترتيب جميع الحقول
PHP كود :
Dim strData As String = ""
AxWinsock1.GetData(strData) RichTextBox1.Text = RichTextBox1.Text & strData & vbCrLf
If Strings.Left(strData, 5) = "DX de" Then
Dim a1 As String = strData.Substring(6, strData.IndexOf(":") - 6).Trim Dim a2 As String = strData.Substring(17, 8).Trim Dim a3 As String = strData.Substring(26, 8).Trim Dim a4 As String = strData.Substring(39, 25).Trim Dim a5 As String = strData.Substring(60, 15).Trim DataGridView1.Rows.Add(a1, a2, a3, a4, a5) End If
شكرا لك
سؤالي حاليا كيف اعمل Sort
للخانة الخامسه a5
هيه خانة الوقت 1719Z
PHP كود :
DataGridView1.Sort(DataGridView1.Columns(1), System.ComponentModel.ListSortDirection.Descending)
ومن جديد شكرا لك
قمت بتعديل الخانه الخامسه لتوضح الوقت
الان كيف اعمل
Sort
PHP كود :
Dim strData As String = ""
AxWinsock1.GetData(strData) RichTextBox1.Text = RichTextBox1.Text & strData & vbCrLf
If Strings.Left(strData, 5) = "DX de" Then
Dim a1 As String = strData.Substring(6, strData.IndexOf(":") - 6).Trim Dim a2 As String = strData.Substring(17, 8).Trim Dim a3 As String = strData.Substring(26, 8).Trim Dim a4 As String = strData.Substring(39, 25).Trim Dim a5 As String = strData.Substring(60, 15).Trim
Dim timk As String
If a5.Length = 5 Then
timk = Strings.Left(a5, 2) & ":" & Strings.Right(a5, 3)
Else timk = Nothing End If
timk = System.Text.RegularExpressions.Regex.Replace(timk, "Z", "") DataGridView1.Sort(DataGridView1.Columns(timk), System.ComponentModel.ListSortDirection.Descending) DataGridView1.Rows.Add(a1, a2, a3, a4, timk) End If
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة :
19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
|