Question

How to sum all digits from a string in VB.NET

Answer 1

Imports System.Text.RegularExpressions
 
Module Module1
 
    Sub Main()
 
        Dim s As String = "1 VB.NET 13 Java 89 Python 2 C 4"
        Dim total As Integer = 0
 
        Dim mcollection As MatchCollection = Regex.Matches(s, "\d")
 
        For Each mc As Match In mcollection
            total += Convert.ToInt32(mc.ToString())
        Next
 
        Console.WriteLine(total)
 
    End Sub
 
End Module
 
 
' run:
' 
' 28

 

70+ SQL courses for beginners and professionals