25-08-13, 06:27 AM
هناك كلمة ورقم
رجاء اريد الفصل بنهم
رجاء اريد الفصل بنهم
25-08-13, 07:06 AM
السلام عليكم
- لنفترض أن الكلمات والأرقام موجودة في Text1 وتريد وضع الأرقام في Text2 و الكلمات في Text3 :
- تحياتي .
- لنفترض أن الكلمات والأرقام موجودة في 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- تحياتي .
25-08-13, 07:20 AM
حياك الله يا اخى شكرا لك