Discussion :

[CUCARACHA]

Salut,

Je travaille sur un filtre qui me corrige automatiquement des contenus HTML en XHTML 1.0 strict.

Pour se faire, j'ai besoin de m'assurer que chaque valeur ou séquence de valeurs d'attributs soient bien noté entre guillemets.

Je suis certain que le sujet a déjà du etre traité sans doute avec des regexp mais je ne trouve pas.

Vous auriez vu quelque chose qui traite ce problème ? Si oui, pourriez-vous me communiquer l'adresse ?

D'avance merci
++

Laurent

[lutecefalco]

Je te donne ce que j'ai.
C'est surement pas suffisant pour ton cas mais c'est déjà un début.

Dans l'une de mes applis, j'avais besoin de modifier tous les liens présents dans une page html.

Voilà mon code pour les récupérer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim pattern As String = ""
 
        'on récupère tous les a href
        pattern = "<a\s+[^>]*?href\s*=\s*(?:(?:""(?<url>[^""]*)"")|(?<url>[^>]*))"
        Dim r As New Regex(pattern, (RegexOptions.IgnoreCase Or RegexOptions.Compiled))
        Dim results As MatchCollection
        results = r.Matches(PageContent)
 
        For Each mat As Match In results
            Dim g As Group = mat.Groups(1)
            Dim cc As CaptureCollection = g.Captures
            For Each c As Capture In cc
                'Traitement
            Next
        Next
 
        'on récupère tous les area href
        pattern = "<area\s+[^>]*?href\s*=\s*(?:(?:""(?<url>[^""]*)"")|(?<url>[^>]*))"
        r = New Regex(pattern, (RegexOptions.IgnoreCase Or RegexOptions.Compiled))
        results = r.Matches(PageContent)
 
        For Each mat As Match In results
            Dim g As Group = mat.Groups(1)
            Dim cc As CaptureCollection = g.Captures
            For Each c As Capture In cc
                'Traitement
            Next
        Next
 
        'on récupère tous les css href
        pattern = "<link\s+[^>]*?href\s*=\s*(?:(?:""(?<url>[^""]*)"")|(?<url>[^>]*))"
        r = New Regex(pattern, (RegexOptions.IgnoreCase Or RegexOptions.Compiled))
        results = r.Matches(PageContent)
 
        For Each mat As Match In results
            Dim g As Group = mat.Groups(1)
            Dim cc As CaptureCollection = g.Captures
            For Each c As Capture In cc
                'Traitement
            Next
        Next
 
        'on récupère tous les img src
        pattern = "<img\s+[^>]*?src\s*=\s*(?:(?:""(?<url>[^""]*)"")|(?<url>[^>]*))"
        r = New Regex(pattern, (RegexOptions.IgnoreCase Or RegexOptions.Compiled))
        results = r.Matches(PageContent)
        For Each mat As Match In results
            Dim g As Group = mat.Groups(1)
            Dim cc As CaptureCollection = g.Captures
            For Each c As Capture In cc
                'Traitement
            Next
        Next

[CUCARACHA]

Salut,

Ca ne répond pas a ma question mais je vais avoir besoin de ce code car moi aussi je vais devoir remplacer des liens

par exemple :

je veux remplacer <p class="" style="color:#ff0000" align=center>coucou</p>"
par <div style="color:#ff0000;text-align:center">coucou</div>

dur dur je sais mais indispensable...

++

L