Question

How to extract the number from the end of a string in VB.NET

Answer 1

Imports System

Public Class ExtractTheNumberFromEndOfString_VB_NET
    Public Shared Function ExtractLastNumber(ByVal str As String) As Integer
        Dim arr As String() = System.Text.RegularExpressions.Regex.Split(str, "\D+")
		
        Return Integer.Parse(arr(arr.Length - 1))
    End Function

    Public Shared Sub Main(ByVal args As String())
		Dim str As String = "VB.NET 27 Programming9036"
		
        Dim n As Integer = ExtractLastNumber(str)
		
        Console.Write(n)
    End Sub
End Class



' run:
'
' 9036
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class ExtractTheNumberFromEndOfString_VB_NET
    Public Shared Function extractLastNumber(ByVal str As String) As Integer
        Dim i As Integer = str.Length

        While i > 0 AndAlso Char.IsDigit(str(i - 1))
            i -= 1
        End While

        Return Integer.Parse(str.Substring(i))
    End Function

    Public Shared Sub Main(ByVal args As String())
		Dim str As String = "vb.net 84 programming172"
		
        Dim n As Integer = extractLastNumber(str)
		
        Console.Write(n)
    End Sub
End Class



' run:
'
' 172
'

 

70+ SQL courses for beginners and professionals