Discussion :

[ted the Ors]

Bonjour,

J'ai quelques soucis pour appliquer des expressions régulières dont le but est de supprimer/remplacer les balises HTML d'une chaîne de caractères.

Voici mon code:

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
 
Dim string_test_clean As String
Dim string_test As String
 
string_test = "<p><em>toto titit tut</em></p>"
 
Set regEx = CreateObject("vbscript.regexp")
regEx.Pattern = "/\r/g"
string_test_clean = regEx.Replace(string_test, "\n")
 
regEx.Pattern = "/<(?:br|p|div)(?: *\/)?>/g"
string_test_clean = regEx.Replace(string_test_clean, "")
 
regEx.Pattern = "/<[^>]+>/g"
string_test_clean = regEx.Replace(string_test_clean, "")
 
regEx.Pattern = "/\n{3,}/g"
string_test_clean = regEx.Replace(string_test_clean , "\n\n")
 
regEx.Pattern = "/[\t ]+/g"
string_test_clean = regEx.Replace(string_test_clean , " ")

Le code se déroule sans problèmes mais à la fin, string_test_clean est égal à string_test. Les expressions régulières sont pourtant correctes.
Des idées?

[Pierre Fauconnier]

Salut.

Je n'ai pas analysé les patterns en détail... Une piste pour supprimer les balises

Code :

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

1
2
3
4
5
  Source = "<p><em>toto et <i>titi</i></em></p>"
  Set regEx = CreateObject("vbscript.regexp")
  regEx.Global = True
  regEx.Pattern = "<s*?[^>]+s*?>"
  Target = regEx.Replace(Source, "")

Pourrais-tu dire ce que tu veux supprimer ou remplacer? Ce sera peut-être plus simple que d'essayer de décortiquer tes patterns