[ali.alfoly]

السلام عليكم ورحمة الله
الواحد كل يوم يتعلم جديد ههههههه
جرب الكود وقلي رايك

   

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 


---

صورة لمن يريد قراءة الكود

[amgad525]

http://www.screencast.com/users/ali.alfoly

[ali.alfoly]

(08-12-16, 10:59 AM)amgad525 كتب : http://www.screencast.com/users/ali.alfoly

؟؟؟؟؟؟

[Basil Abdallah]

فعلا شي جديد و مميز اشكرك