تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعده في مشروع صغير
#1
يسعد الله اوقاتكم

لدي مشروع صغيره عباره عن
Client/Server

اقوم بالاتصال في احد السيرفرات لاستلم مسج

المسج عباره عن عدة خانات
de PY2GG:     14076.0  S9YY         JT65 73 RAMOS                  2203Z

الخانه الاوله  de PY2GG

الثانيه 14076.0

والثالثه S9YY 

والرابعه  JT65 73 RAMOS

والخامسه    2203Z





عندما يتم العرض في DataGridView1

الخانة الاولى والثانيه والثالثه تنزل تمام بس الرابعه تتوزع علي عدة خانات والخانه الخامسه ما تطلع
مثال
   

   


ممكن مساعدتي في ضبط ال DataGridView1

الكود اللي احاول في هو

   


المشروع مرفق

.rar   VB.rar (الحجم : 110.61 ك ب / التحميلات : 10)

وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت
الرد }}}}
تم الشكر بواسطة: dubai.eig
#3
(18-10-16, 02:21 AM)mhmd_911 كتب : السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت

بارك الله فيك 

شكرا عليةالرد 

بس كيف اعيد تضبيط الخانات بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#4
اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
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(5message.IndexOf(":") - 5).Trim
Dim a2 
As String message.Substring(188).Trim
Dim a3 
As String message.Substring(268).Trim
Dim a4 
As String message.Substring(3911).Trim
DataGridView1
.Rows.Add(a1a2a3a4
الرد }}}}
تم الشكر بواسطة: dubai.eig , dubai.eig
#5
(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(5message.IndexOf(":") - 5).Trim
Dim a2 
As String message.Substring(188).Trim
Dim a3 
As String message.Substring(268).Trim
Dim a4 
As String message.Substring(3911).Trim
DataGridView1
.Rows.Add(a1a2a3a4


شكرا علي الرد 

فعلا قمت بالتجربة الان واتضح بان الخانه الخامسه غير موجوده

اللي هيه الوقت

de PY2GG:     14076.0  S9YY         JT65 73 RAMOS                  2203Z

راح اجرب الكود الخاص بك بس يا ليت احصل حل لاضهار الخانه الخامسه


شكرا من جديد
الرد }}}}
تم الشكر بواسطة:
#6
(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(5message.IndexOf(":") - 5).Trim
Dim a2 
As String message.Substring(188).Trim
Dim a3 
As String message.Substring(268).Trim
Dim a4 
As String message.Substring(3911).Trim
DataGridView1
.Rows.Add(a1a2a3a4

استاذ mhmd_911

شكرا لك مع الكود الي كتبته ومع محاولات مني نجحت في اضهار وترتيب جميع الحقول

PHP كود :
     Dim strData As String ""

 
       AxWinsock1.GetData(strData)
 
       RichTextBox1.Text RichTextBox1.Text strData vbCrLf

        If Strings
.Left(strData5) = "DX de" Then

            Dim a1 
As String strData.Substring(6strData.IndexOf(":") - 6).Trim
            Dim a2 
As String strData.Substring(178).Trim
            Dim a3 
As String strData.Substring(268).Trim
            Dim a4 
As String strData.Substring(3925).Trim
            Dim a5 
As String strData.Substring(6015).Trim
            DataGridView1
.Rows.Add(a1a2a3a4a5)
 
       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(strData5) = "DX de" Then

            Dim a1 
As String strData.Substring(6strData.IndexOf(":") - 6).Trim
            Dim a2 
As String strData.Substring(178).Trim
            Dim a3 
As String strData.Substring(268).Trim
            Dim a4 
As String strData.Substring(3925).Trim
            Dim a5 
As String strData.Substring(6015).Trim

            Dim timk 
As String

            If a5
.Length 5 Then

                timk 
Strings.Left(a52) & ":" Strings.Right(a53)


 
           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(a1a2a3a4timk)
 
       End If 
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 53 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 47 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 94 12-02-17, 06:17 PM
آخر رد: مساعدة
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 115 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 220 02-02-17, 06:12 PM
آخر رد: Marwan9990
  مساعده في برمجة الداتا قرد فيو معتز الجازوي 2 81 01-02-17, 12:34 AM
آخر رد: معتز الجازوي
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 283 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  التعديل على مشروع restore MOSTAFA.KAMEL 2 123 24-01-17, 02:08 AM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 339 05-01-17, 05:15 PM
آخر رد: 0theghost0
  [سؤال] مشكلة في انشاء مشروع عبدالرحمن المكاوي 4 147 01-01-17, 02:44 PM
آخر رد: عبدالرحمن المكاوي

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


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