با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

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

بررسی صحت شماره تلفن همراه در B4A

 

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) Then 
      Return False
    Else 
      Return True
    End If
  Catch
    Return False
  End Try

End Sub