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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع antivirus reem siddig 2 540 أمس, 05:33 AM
آخر رد: silverlight
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 100 07-12-16, 02:39 PM
آخر رد: a_abdullah
Thumbs Up [مشروع] مبتدئي وابي طلب صغير جدا جدا الساهر الوحيد 1 125 23-11-16, 01:15 PM
آخر رد: bahgat okasha
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 340 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 172 25-10-16, 03:20 PM
آخر رد: a_abdullah
  مساعده من الخبراء المبرمجين والمختصيين محمد بوقزاحة 0 56 21-10-16, 12:19 PM
آخر رد: محمد بوقزاحة
Star مشروع برنامج الباحث في القرآن الكريم ...(للمشاركة) Arabia 6 162 11-10-16, 11:13 AM
آخر رد: Arabia
  مساعده من الخبراء المبرمجين محمد بوقزاحة 5 151 09-10-16, 02:47 AM
آخر رد: أبو عمر
  [VB.NET] طلب مشروع تعديل في قيم الريجستري محمد مسافر 2 126 17-09-16, 03:44 PM
آخر رد: محمد مسافر
  [VB.NET] هل يستطيع مشروع مربوط ب أكسس العمل في جهاز أخر غير متبت أوفيس أكسس oussamaridez 7 237 26-07-16, 05:13 PM
آخر رد: الوادي

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


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