الارقام - نسخة قابلة للطباعة

الارقام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الارقام (/showthread.php?tid=29796)

الارقام - dasktop - 12-06-19

مرحبا

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

RE: الارقام - ابراهيم ايبو - 12-06-19

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

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

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

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

RE: الارقام - سامي محمد - 12-06-19

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

كود :

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

RE: الارقام - elgokr - 14-06-19

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

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

كود :

       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)

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

تحياتى لك

وتمنياتى لك التوفيق