FONCTION SUPPRIMANT LES TAGS SGML AVEC LES EXPRESSIONS RÉGULIÈRES

Commentaire de arcollet le 09/10/2004 02:36:18

La version .Net :

'Nettoyage d'une chaine de caractères
    Function CleanInput(ByVal strTxt As String) As String
        Dim pattern As String = "^</*([^<>\s]*)(\s[^<>]*)?>|<([^<>\s]*)(\s[^<>]*)?/*>"
        Return Regex.Replace(strTxt, pattern, String.Empty)
    End Function

En revanche les () posent problème, quelqu'un aurait il une solution pour inclure les() comme caractères à épurer avec Regex.Replace ?

Actuellement j'utilise cette fonction pour pallier au problème mais j'aimerais bien utiliser la class d'expressions régulières prévu à cet effet par .net plutôt qu'une fonction maison et une boucle en plus !!

Function nochar(ByVal strTxt As String) As String

        Dim ListDelChar As String = " ²&~#'{([-|`\^@)]°+=}<>,?;/:!§%*µ$£¤"
        Dim DelChar As String
        Dim i As Integer

        For i = 1 To Len(ListDelChar)
            DelChar = ListDelChar.Chars(i - 1)
            strTxt = Replace(strTxt, DelChar, String.Empty)
        Next

        nochar = strTxt
        Return nochar

    End Function

Merci de votre aide

denis