' Count the number of string occurrencesPublic Function CountOccurrences(ByVal source As String, ByVal search As String, _ Optional ByVal ignoreCase As Boolean = False) As Integer Dim options As System.Text.RegularExpressions.RegexOptions ' set the search options according to the ignoreCase parameter If ignoreCase Then options = System.Text.RegularExpressions.RegexOptions.IgnoreCase Else options = System.Text.RegularExpressions.RegexOptions.None End If ' count the occurrences Dim mc As System.Text.RegularExpressions.MatchCollection = _ System.Text.RegularExpressions.Regex.Matches(source, search, options) Return mc.CountEnd Function' Count the number of string occurrencesPublic Function CountOccurrences(ByVal source As String, _ ByVal startIndex As Integer, ByVal search As String, _ Optional ByVal ignoreCase As Boolean = False) As Integer Return CountOccurrences(source.Substring(startIndex), search, ignoreCase)End Function
Web Application Supply Chain Security
Grace Phillips
October 2, 2023
Today’s web applications depend on a wide array of third-party components and open-source tools to function effectively. This reliance on external resources poses significant security
