[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