تقييم الموضوع :
  • 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 65 30-11-16, 08:05 PM
آخر رد: الحلوانى
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 110 19-11-16, 12:08 PM
آخر رد: عمور2016
  كود تحويل من الارقام الى الاحرف الابجديه الحلوانى 1 58 21-10-16, 01:00 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] اريد تصميم فكرة كرت العائلة عمور2016 1 111 02-08-16, 04:41 AM
آخر رد: عمور2016
  [vb6.0] سؤال حول اتجاه الارقام التصاعدية chaabane 4 149 07-06-16, 06:32 PM
آخر رد: chaabane
  [vb6.0] استفسار اريد غلق Form2 وانهائه chaabane 2 648 01-08-15, 07:22 PM
آخر رد: semmou
  [سؤال] اريد كود لايجاد فاصلة الآلاف Ahmed Gandos 2 470 16-04-15, 12:01 AM
آخر رد: Ahmed Gandos
  اريد كود لفتح ملف بور بوينت امتداده pps layan2000 1 337 05-04-15, 01:51 PM
آخر رد: abulayth
  من فضلكم اريد اداة XP COMMAND BUTTON.OCX الخاصة بي WIN7 64BIT chaabane 3 774 28-02-15, 04:19 PM
آخر رد: InJuries
  [سؤال] اريد تشفير نص Hell Cell 0 262 09-02-15, 01:22 PM
آخر رد: Hell Cell

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


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