بررسی ارقام شماره موبایل هنگام ثبت در نرم افزار

[mohsen274 2]

سلام دوستان

یک نرم افزار ثبت نام پیامکی دارم که هنگام ورود شماره موبایل ارقام رو بررسی می کنه تا صحت شماره رو تایید کنه

حالا مشکلش اینه که شماره هایی که رقم سوم یا چهارم شماره موبایلشون عدد صفر باشه رو اجازه ثبت نام نمیده

کد استفاده شده جهت این بخش بصورت زیر هستش

به نظر شما چه تغییراتی بدم

تشکر

Dim Valid As Boolean

Valid = Regex.IsMatch("09(1[0-9]|3[1-9]|2[1-9])-?[0-9]{3}-?[0-9]{4}", Number)

می خوام جوری باشه که شماره 09xxxxxxxxx با فرض x از 0 تا 9 رو ایراد نگیره

[softir 459]

در 25 دقیقه قبل، mohsen274 گفته است :

سلام دوستان

یک نرم افزار ثبت نام پیامکی دارم که هنگام ورود شماره موبایل ارقام رو بررسی می کنه تا صحت شماره رو تایید کنه

حالا مشکلش اینه که شماره هایی که رقم سوم یا چهارم شماره موبایلشون عدد صفر باشه رو اجازه ثبت نام نمیده

کد استفاده شده جهت این بخش بصورت زیر هستش

به نظر شما چه تغییراتی بدم

تشکر

Dim Valid As Boolean

Valid = Regex.IsMatch("09(1[0-9]|3[1-9]|2[1-9])-?[0-9]{3}-?[0-9]{4}", Number)

می خوام جوری باشه که شماره 09xxxxxxxxx با فرض x از 0 تا 9 رو ایراد نگیره

سلام

چقدر سخت گرفتی کارش 2 خط کد

	Dim Num As String = 09128857074
	
	If Num.Length = 11 Then
		If Num.StartsWith("09") Then
			' کد مورد نظر رو اجرا کن
		End If
	End If

 

[mohsen274 2]

تشکر از شما

کل کد بصورت زیر هستش

Sub ValidateMobileNumber(Number As String) As Boolean
	Try
		Dim Valid As Boolean
		Valid = Regex.IsMatch("09(1[0-9]|3[1-9]|2[1-9])-?[0-9]{3}-?[0-9]{4}", Number)
		
		If Not(Valid) Or Number.Length <> 11 Then
			Return False
		Else
			Return True
		End If
	Catch
		Return False
	End Try
End Sub

اگر امکان داره کد بالا رو تغییر بدید

یا اینکه از دید شما چه تغییری بدم

 

[softir 459]

در 6 دقیقه قبل، mohsen274 گفته است :

تشکر از شما

کل کد بصورت زیر هستش

اگر امکان داره کد بالا رو تغییر بدید

یا اینکه از دید شما چه تغییری بدم

 

Sub ValidateMobileNumber(Number As String) As Boolean

	Dim Stute As Boolean = False
	
	If Number.Length = 11 Then
		If Number.StartsWith("09") Then
			Stute = True
		Else
			Stute = False
		End If
	Else
		ToastMessageShow("شماره باید 11 رقمی باشد",False)
	End If
	
	Return Stute
	
End Sub

 

[mohsen274 2]

تشکر

خیلی خوبه

اما یه مشکلی که داره اینه که نمیتونه کاراکترهای بعد 09 رو چک کنه که عدد بین 0 تا 9 باشن

همون کد اولیه اصلاح بشه کاملتره