Contact: aviboots(AT)netvision.net.il
41,679 questions
54,344 answers
573 users
Imports System Public Class Program Public Shared Sub Main() Dim str As String = "893" Dim n As Integer Dim isNumber As Boolean = Integer.TryParse(str, n) Console.WriteLine(isNumber) Console.WriteLine(n) End Sub End Class ' run: ' ' True ' 893 '
Imports System Imports System.Text.RegularExpressions Public Class Program Public Shared Sub Main() Dim str As String = "985" Dim isNumber = Regex.IsMatch(str, "^\d+$") Console.WriteLine(isNumber) End Sub End Class ' run: ' ' True '
Imports System Imports System.Linq Public Class Program Public Shared Function IsNumeric(ByVal str As String) As Boolean Return str.All(AddressOf Char.IsNumber) End Function Public Shared Sub Main() Dim str As String = "891" Console.WriteLine(IsNumeric(str)) Console.WriteLine(IsNumeric("15F")) End Sub End Class ' run: ' ' True ' False '