30-03-16, 03:27 PM
السلام عليكم ورحمة الله وبركاته
منذ عدة ايام بدات بدراسه فيجوال بيسك
خطر على بالي اليوم لو قررت وضع textbox من اجل كلمة المرور واذا قام المستخدم بوضع فقط احرف تظهر له رساله انه يجب وضع خليط بين حروف وارقام
واذا وضع فقط ارقام تظهر له نفس رساله
استطعت التوصل الى جعله يدمج احرف وارقام مع بعض ولكن لم استطيع جعله يدمج معهم ايضا رموز مثل !@#$ الخ
في طريقه ولكن طويله افحص كل عنصر بهذه الرموز وهنا تصبح الشروط كثيره لانه بكون مضطر مقارنه كل char هل يسوي مثلا @ او يساوي # او ! ... الخ
هذه تجربتي
سؤالي هنا ممكن عمل نفس الفكرة بطريقه اسهل بالمعالجه ؟ بدون استخدام regex
مثل اذا في داله تتاكد انه نص معين يحتوي على احرف وارقام ورموز خاصه ؟
ايضا ماهي الداله التي نفحص في char معين لكي نعرف هل هو رمز خاص او لا مثلا !@#$ّ الخ من رموز
مثل هنا استخدمت isNumber حتى اعرف هل هو رقم او لا
منذ عدة ايام بدات بدراسه فيجوال بيسك
خطر على بالي اليوم لو قررت وضع textbox من اجل كلمة المرور واذا قام المستخدم بوضع فقط احرف تظهر له رساله انه يجب وضع خليط بين حروف وارقام
واذا وضع فقط ارقام تظهر له نفس رساله
استطعت التوصل الى جعله يدمج احرف وارقام مع بعض ولكن لم استطيع جعله يدمج معهم ايضا رموز مثل !@#$ الخ
في طريقه ولكن طويله افحص كل عنصر بهذه الرموز وهنا تصبح الشروط كثيره لانه بكون مضطر مقارنه كل char هل يسوي مثلا @ او يساوي # او ! ... الخ
هذه تجربتي
كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (checkLetter(txtValue.Text)) Then
MsgBox("Ok")
End If
End Sub
Private Function checkLetter(z As String) As Boolean
Dim x As Boolean = False
Dim y As Boolean = False
For index = 0 To z.Length - 1
If (Char.IsNumber(z(index))) Then
x = True
ElseIf (Char.IsLetter(z(index))) Then
y = True
End If
Next ' end for
If (x And y) Then
Return True
End If
Return False
End Function
End Class
سؤالي هنا ممكن عمل نفس الفكرة بطريقه اسهل بالمعالجه ؟ بدون استخدام regex
مثل اذا في داله تتاكد انه نص معين يحتوي على احرف وارقام ورموز خاصه ؟
ايضا ماهي الداله التي نفحص في char معين لكي نعرف هل هو رمز خاص او لا مثلا !@#$ّ الخ من رموز
مثل هنا استخدمت isNumber حتى اعرف هل هو رقم او لا