تقييم الموضوع :
  • 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 ك ب / التحميلات : 15)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله منعتنى من بيع اول مشروع ليا ارجوا المساعده نبيل فتحى 8 205 منذ 11 ساعة مضت
آخر رد: aliday03
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 34 19-09-17, 03:33 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 363 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 123 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  كيف نقل مشروع سطح المكتب للويب a.baomar 6 177 06-09-17, 03:35 AM
آخر رد: سعود
  [VB.NET] مساعده لو سمحتم امل عوض 1 87 26-08-17, 11:10 PM
آخر رد: Amir_alzubidy
  مساعده فى التحزيم من الخبراء نبيل كونكت 2 131 26-08-17, 07:33 PM
آخر رد: امل عوض
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 136 22-08-17, 11:50 PM
آخر رد: أبو نوره
Smile [VB.NET] ممكن مساعده امل 3 107 22-08-17, 04:44 PM
آخر رد: امل
  اخر مساعده فى اول مشروع ليا خاصه بالتحزيم نبيل كونكت 2 115 22-08-17, 04:04 PM
آخر رد: نبيل كونكت

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


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