تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الارقام
#1
مرحبا



انا لدي قائمة lest box  تحتوي على ارقام وحروف مثل هذة القائمة

عملت كود لمسح الكلمات والحروف ونجح وتبقى الارقام هكذا


     127.0.0.1:6910         127.0.0.1:6909        
      127.0.0.1:6911         127.0.0.1:6912        
      127.0.0.1:6912         127.0.0.1:6911        
      127.0.0.1:6916         127.0.0.1:6917        
      127.0.0.1:6917         127.0.0.1:6916        
      127.0.0.1:6940         127.0.0.1:6941        
     127.0.0.1:6941         127.0.0.1:6940        
      127.0.0.1:7028         127.0.0.1:7029        

هل يوجد طريقة لعمل كود مسح الارقام اللتي قبل الفاصلة :


حتى تكون القائمة مثلا هكذا




6910:             6909:

6911:               6911:
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
هذا مثال فيه حذف الارقام التي لانريدها
1- اذا كان الرقم في مربع نص
2 اذا كانت مجموعة الارقام في ليست بوكس


الملفات المرفقة
.rar   جلب الرقم.rar (الحجم : 105.44 ك ب / التحميلات : 11)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
وهذه طريقة أخرى

كود :
Imports System.Text.RegularExpressions


كود :
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For x As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.Items(x) = Regex.Match(ListBox1.Items(x), ".+(:.+)").Groups(1).Value
        Next
    End Sub
الرد }}}
#4
اضافة لما قدمه الاخوة الكرام

يمكنك استخدام الكود بهذا الشكل
كود :
       For Each list In ListBox1.Items
           ListBox2.Items.Add(":" + list.ToString.Split(":")(1))
       Next

لاحظ هذا الجزء فى الكود
كود :
ToString.Split(":")(1)

فهو الملخص لاتمام تقسيم القيمة لاستخراج المطلوب

اذا كنت ترد عرض القيمة محددة من ListBox الى TextBox
كود :
       TextBox1.Text = ListBox1.Items(0).ToString.Split(":")(1)

عند اختبار الكود الاخير ستجد ان القيمة المستخرجة هو رقم فقط بدون :

فهنا كل ما عليك فعله التالى ان تجعله بهذا الشكل لاضافة :
كود :
       TextBox2.Text = ":" + ListBox1.Items(0).ToString.Split(":")(1)

لاحظ الفرق بين الكودين وستتمكن من معرفة الفرق

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: dasktop , ابراهيم ايبو



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


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