تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية تصفية التيكست بوكس من الحروف
#1
السلام عليكم ليدي تيكست بوكس عندما أضغط على زر الاوامر يقوم بطباعة نص وأرقام و أريد أن يطبع فقط ارقام بدل الحروف
مثال: (مرحبا 6543 وداعا) و أريده ان طبع في تكست بوكس (6543) فقط بدون النص  علما بأنني لا أستطيع التحكم بلنص الاساسي أنه يطبع من المتصفح 
أرجو المساعدة وشكراً
الرد
تم الشكر بواسطة:
#2
(24-10-17, 07:19 PM)تنمية المعرفة كتب : السلام عليكم ليدي تيكست بوكس عندما أضغط على زر الاوامر يقوم بطباعة نص وأرقام و أريد أن يطبع فقط ارقام بدل الحروف
مثال: (مرحبا 6543 وداعا) و أريده ان طبع في تكست بوكس (6543) فقط بدون النص  علما بأنني لا أستطيع التحكم بلنص الاساسي أنه يطبع من المتصفح 
أرجو المساعدة وشكراً

تفضل اخي :

كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim testnumber As String = TextBox3.Text
    MessageBox.Show(System.Text.RegularExpressions.Regex.Replace(testnumber, "[^\d]", " "))
End Sub
الرد
تم الشكر بواسطة: تنمية المعرفة , zaer
#3
(24-10-17, 08:06 PM)Rabeea Qbaha كتب :
(24-10-17, 07:19 PM)تنمية المعرفة كتب : السلام عليكم ليدي تيكست بوكس عندما أضغط على زر الاوامر يقوم بطباعة نص وأرقام و أريد أن يطبع فقط ارقام بدل الحروف
مثال: (مرحبا 6543 وداعا) و أريده ان طبع في تكست بوكس (6543) فقط بدون النص  علما بأنني لا أستطيع التحكم بلنص الاساسي أنه يطبع من المتصفح 
أرجو المساعدة وشكراً

تفضل اخي :

كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim testnumber As String = TextBox3.Text
    MessageBox.Show(System.Text.RegularExpressions.Regex.Replace(testnumber, "[^\d]", " "))
End Sub

مشكور جداً  أخي بكرا بجربو وبرد عليك
الرد
تم الشكر بواسطة:
#4
وعليكم السلام

وهذه طريقة أخرى تشبه طريقة أخي ربيع Rabeea
كود :
TextBox2.Text = Regex.Match(TextBox1.Text, "\d+").Value
الرد
تم الشكر بواسطة: Rabeea Qbaha , تنمية المعرفة
#5
شكرا لكم على اهتمامكم وأرجو  لكم مزيد من التقدم و الازدهار
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص حفظ قيمة في الكومبو بوكس abdullhadi999 7 133 منذ 7 ساعة مضت
آخر رد: elgokr
  كيفية اظافة كلمة مرور لبرنامج وحفظها hamadz 2 79 14-11-18, 03:08 PM
آخر رد: dasktop
  ضبط وضع الكتابة داخل الليست بوكس ابو روضة 4 81 13-11-18, 02:23 AM
آخر رد: ابو روضة
  استدعاء الصنف الى الكومبو بوكس salah mansour 1 52 11-11-18, 11:02 PM
آخر رد: Rabeea Qbaha
  [VB.NET] كيفية تحديث تصميم قاعدة البيانات دون فقدان السجلات larbihamri 4 92 07-11-18, 02:13 PM
آخر رد: larbihamri
  كيفية الطباعة مباشرة المتألق9 5 536 30-10-18, 09:24 PM
آخر رد: hbsbamaga
  كيفية تغيير الباس وورد يوميا احمد خطاب 4 146 27-10-18, 05:16 PM
آخر رد: احمد خطاب
  كيفية فتح صفحة انترنت عن طريق الضغط علي اسم الموقع hamadz 4 121 22-10-18, 10:35 PM
آخر رد: fouadhdfouad
  [VB.NET] كيفية عرض column الليست فيو عموديا و تفعيل خاصية الشيك بوكس larbihamri 0 51 22-10-18, 09:38 AM
آخر رد: larbihamri
  مشكلة في كود جعل الحروف Capital فقط في الصندوق النصي Hazem1 2 68 22-10-18, 12:11 AM
آخر رد: Hazem1

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


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