رفتن به مطلب
  • 0

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


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 رو ایراد نگیره

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

در 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

تشکر از شما

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

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

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

تشکر

خیلی خوبه

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...