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

رجاء اريد الفصل بنهم

الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- لنفترض أن الكلمات والأرقام موجودة في Text1 وتريد وضع الأرقام في Text2 و الكلمات في Text3 :

كود :
Dim WordsNumbers () As String
Dim I As Integer

WordsNumbers = Split(Trim(Text1.Text) , " ")

IF UBound(WordsNumbers) > -1 Then

For I = LBound(WordsNumbers) To UBound(WordsNumbers)
IF IsNumeric(WordsNumbers(I)) = True Then
Text2.Text = Text2.Text & WordsNumbers(I) & " "
Else
Text3.Text = Text3.Text & WordsNumbers(I) & " "
End IF
Next

End IF

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#3
حياك الله يا اخى شكرا لك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لتحويل الارقام الى احرف الحلوانى 2 160 07-09-17, 01:01 AM
آخر رد: Ahmed_Mansoor
Photo [vb6.0] اريد لو تكرمتو برنامج او مثبت داتا ريبورتdatareport ؟ amer2000 2 126 06-08-17, 07:57 AM
آخر رد: sendbad100
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 174 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 299 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  كود تحريك الكلام الحلوانى 2 479 30-11-16, 08:05 PM
آخر رد: الحلوانى
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 354 19-11-16, 12:08 PM
آخر رد: عمور2016
  كود تحويل من الارقام الى الاحرف الابجديه الحلوانى 1 326 21-10-16, 01:00 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] اريد تصميم فكرة كرت العائلة عمور2016 1 302 02-08-16, 04:41 AM
آخر رد: عمور2016
  [vb6.0] سؤال حول اتجاه الارقام التصاعدية chaabane 4 428 07-06-16, 06:32 PM
آخر رد: chaabane
  [vb6.0] استفسار اريد غلق Form2 وانهائه chaabane 2 947 01-08-15, 07:22 PM
آخر رد: semmou

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


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