08-12-16, 09:45 AM
السلام عليكم ورحمة الله
الواحد كل يوم يتعلم جديد ههههههه
جرب الكود وقلي رايك
صورة لمن يريد قراءة الكود
![[صورة مرفقة: 12.08.2016-07.54.png]](http://content.screencast.com/users/ali.alfoly/folders/Snagit/media/65caa9d6-5f54-49a2-9226-ee5b2c245e7e/12.08.2016-07.54.png)
الواحد كل يوم يتعلم جديد ههههههه
جرب الكود وقلي رايك
PHP كود :
Dim txt As String = "ABZabz123/-="
For i As Integer = 0 To txt.Length - 1
Select Case txt(i).ToString.ToUpper.Trim
Case "A" To "Z", "0" To "9"
Case Else
MsgBox(txt(i).ToString.Trim)
End Select
Next
صورة لمن يريد قراءة الكود