السلام عليكم ورحمة الله وبركاته
سؤال بسيط اتمنى افادتي به
لدي نص عبارة عن حروف وارقام اريد استخراج النصوص بدون ارقام والعكس اريد الأرقام بدون نصوص
مثال :
محمد فهد 12345 سعود 15
تكون النتيجة
1- محمد فهد سعود
2- 1234515
لدي نص يوجد به حروف وارقام اريد ...
anta 7ot 3 Text fe el Form we Zorar
we 2akteb
محمد فهد 12345 سعود 15
Fe text 1
we dah Code el Zorar
Dim mNumbers As String
Dim mString As String
Dim i As Integer
For i = 1 To Len(Text1.Text)
If IsNumeric(Mid(Text1.Text, i, 1)) Then
mNumbers = mNumbers & Mid(Text1.Text, i, 1)
Else
mString = mString & Mid(Text1.Text, i, 1)
End If
Next
Text2.Text = mNumbers
Text3.Text = mString
جزاك الله خير
أسأل الله ان لا يضيع أجر ما عملت