منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا

انا لدي قائمة 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:

السلام عليكم اخي الكريم

هذا مثال فيه حذف الارقام التي لانريدها

1- اذا كان الرقم في مربع نص

2 اذا كانت مجموعة الارقام في ليست بوكس

وهذه طريقة أخرى

كود :

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

اضافة لما قدمه الاخوة الكرام

يمكنك استخدام الكود بهذا الشكل

كود :

       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

ابراهيم ايبو

سامي محمد

elgokr