CLASSE POUR L'UTILISATION D'EXPRESSIONS RÉGULIÈRES

Public Class ExpRegulieres
        Public Shared Function Replace(ByVal MaChaine As String, ByVal MonExpReg As String, ByVal CharRemplace As String) As String
            Dim MaRegex As New System.Text.RegularExpressions.Regex("")
            Dim tmpTxt As String = MaChaine & ""
            tmpTxt = Regex.Replace(tmpTxt, MonExpReg, CharRemplace)
            MaRegex = Nothing
            Return tmpTxt
        End Function

        Public Shared Function Split(ByVal MaChaine As String, ByVal MonExpReg As String) As Array
            Dim MaRegex As New System.Text.RegularExpressions.Regex("")
            Dim table_tmpTxt As Array
            table_tmpTxt = Regex.Split(MaChaine, MonExpReg)
            MaRegex = Nothing
            Return table_tmpTxt
        End Function

        ''' <summary>
        ''' Renvoi un tableau du match de l'expression reguliere
        ''' </summary>
        ''' <param name="MaChaine">chaine a traité</param>
        ''' <param name="MonExpReg">Expression régulière a appliquer</param>
        ''' <returns>Tableau des string de résultat</returns>
        ''' <remarks></remarks>
        Public Shared Function Matches(ByVal MaChaine As String, ByVal MonExpReg As String) As ArrayList
            Dim table_tmpTxt As New ArrayList
            Dim MaRegExpMatch As System.Text.RegularExpressions.MatchCollection

            MaRegExpMatch = Regex.Matches(MaChaine, MonExpReg, RegexOptions.IgnoreCase)
            For i As Integer = 0 To MaRegExpMatch.Count - 1
                table_tmpTxt.Add(MaRegExpMatch(i).Value.Trim.Replace("""""", """"))
            Next
            Return table_tmpTxt
        End Function

        ''' <summary>
        ''' renvoi la chaîne correspondant à l'expression régulière
        ''' </summary>
        ''' <param name="MaChaine">chaine a traité</param>
        ''' <param name="MonExpReg">Expression régulière a appliquer</param>
        ''' <returns>le string résultat</returns>
        ''' <remarks></remarks>
        Public Shared Function Match(ByVal MaChaine As String, ByVal MonExpReg As String) As String
            Dim MaRegex As New System.Text.RegularExpressions.Regex("")
            Regex.Match(MaChaine, MonExpReg, RegexOptions.IgnoreCase)
            Return Regex.Match(MaChaine, MonExpReg, RegexOptions.IgnoreCase).Value.Replace("""", "")
        End Function

    End Class