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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف كتابة الارقام العشرية فى التسكت بوكس سمير جمال 0 283 13-02-19, 06:39 PM
آخر رد: سمير جمال
  مساعدة بخصوص الارقام في Textbox Adata 2 295 25-01-19, 02:35 AM
آخر رد: ابراهيم ايبو
  [سؤال] الغاء الارقام العشرية من الدتا جريد فيو abumuhannadzym 12 752 30-12-18, 07:55 AM
آخر رد: abumuhannadzym
Photo تنسيق الارقام فى الكريستال ريبورت ahmedmansour 4 490 22-12-18, 11:16 PM
آخر رد: ahmedmansour
  مشكلة ظهور الارقام في تقرير الكريستال ريبورت باللغة الانجليزية محمد صلاح ابراهيم 1 330 15-07-18, 05:07 PM
آخر رد: elgokr
  [VB.NET] كيف يمكنني حفظ الارقام التي تحتوي على فواصل في قاعدة البيانات larbihamri 6 576 07-06-18, 04:46 PM
آخر رد: larbihamri
  ارجوكم اريد كود يعمل فواصل بين الارقام بشيراحمدالاهدل 2 386 06-06-18, 06:21 PM
آخر رد: بشيراحمدالاهدل
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 3 461 06-05-18, 12:53 PM
آخر رد: viv
  [VB.NET] استفسار :- كيف حذف الارقام dubai.eig 2 369 25-03-18, 05:57 PM
آخر رد: dubai.eig
Lightbulb [سؤال] اريد مشروع تحويل الارقام الى حروف فرنسية بالفجوال بيسك نت tichouckt 3 686 19-03-18, 02:28 AM
آخر رد: عبد العزيز البسكري

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


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