منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد فصل الكلام عن الارقام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اريد فصل الكلام عن الارقام (/showthread.php?tid=10226)

اريد فصل الكلام عن الارقام - vip - 25-08-13

هناك كلمة ورقم

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



اريد فصل الكلام عن الارقام - VB_Coder - 25-08-13

السلام عليكم

- لنفترض أن الكلمات والأرقام موجودة في 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

- تحياتي .

اريد فصل الكلام عن الارقام - vip - 25-08-13

حياك الله يا اخى شكرا لك