Supprimer du code html dans une cellule

Version imprimable

16/07/2013, 22h42
dbaxime

Supprimer du code html dans une cellule

Bonjour,

JE voudrais savoir si vous avez connaissance d'un technique d'automatisation ou une macro pour supprimer d'une cellule les balises html qui se trouve dans le texte.

Je vous joint ci dessous ce qui compose mes cellule en html.

Citation:

"GRANDES PERRUCHES FRUITS EXOTIQUES <EOL> <EOL> <EOL> <EOL> <EOL> <EOL>Les STICKS KIKI EXCELLENT sont <EOL>une manière parfaite de maintenir en forme les oiseaux en cage tout en <EOL>leur apportant un aliment complet et équilibré. <EOL> <EOL> <EOL>Dans leurs habitats naturels ils peuvent trouver une grande quantité de fruits dont ils ont besoin pour être en bonne santé. <EOL> <EOL> <EOL> <EOL> <EOL>Avec les <EOL> STICKS KIKI EXCELLENT vous pouvez être sûr de leur procurer les éléments nutritionnels nécessaires pour améliorer leur qualité de vie. <EOL> <EOL> <EOL> <EOL> <EOL> <EOL> <EOL> <EOL> Ingrédients: Graines, céréales, fruits (kiwi, papaye, mangue, banane et ananas), miel, sucre et légumes secs. <EOL> <EOL> <EOL> <EOL> <EOL> <EOL> Analyse: 13,4% <EOL>protéine brute, 11% graisse brute, 6,3% fibre brute, 3,1% cendre brute, <EOL>9,5% humidité, 56,7% hydrates de carbone, 1.60% calcium, 0,75% <EOL>phosphore. Vitamines ajoutées/kg: 5.780 U.I. vit. A, 750 U.I. vit. D3, <EOL>60 mg. vit. E. <EOL> <EOL>"

Citation:

Membrane de rechange pour <a style="COLOR: #808000" href="http://www.savannah.fr/product/cool-fog.html">Cool Fog Reptiles-planet</a>. Fourni avec joint d'étanchéité et clé de montage.

Je vous remercie par avance.

Pierre

Une petite fonction (pas complète)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Extraxt(ByVal Str As String) As String
Dim Tb, Tbl, Res() As String, i As Long, j As Long
 
Str = "<>" & Str & ">"
Str = Replace(Str, "&nbsp;", " ")
Tb = Split(Str, "<")
 
For i = 0 To UBound(Tb)
    If Len(Tb(i)) > 2 Then
        If InStr(Tb(i), ">") Then
            Tbl = Split(Tb(i), ">")
            If Trim(Tbl(1)) <> "" Then
                ReDim Preserve Res(0 To j)
                Res(j) = Tbl(1)
                j = j + 1
            End If
        End If
    End If
Next i
Extraxt = Join(Res, " ")
End Function

Edit: plus simple et sans vba, tu fais Rechercher <*> Remplacer par vide

Je déterre un peu, je suis tombé sur un article.
Je copie la fonction proposée qui fonctionne parfaitement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' ---
' SUPPRESSION DES BALISES HTML D'UNE CHAINE
' ---
'
Function SupprimerHTML(ByVal strHTML As String) As String
  Dim re As VBScript_RegExp_55.RegExp
 
  ' On crée une expression rationnelle
  Set re = New RegExp
 
  ' On définit le critère qui cherche toute balise HTML
  re.Pattern = "<s*?[^>]+s*?>"
 
  ' On fait en sorte que la casse (majuscules/minuscules)
  ' soit indifférente
  re.IgnoreCase = True
 
  ' Traitement global (récursif)
  re.Global = True
 
  ' La fonction Test renvoie True si la chaîne
  ' respecte le critère
  SupprimerHTML = re.Replace(strHTML, "")
End Function

re
il y a beaucoup plus sur et propre de recupérer le texte sans balisage dans du code html

tu peux simplement récupérer le innertext

exemple

une toute petite fonction de rien du tout
Code:

1 2 3 Function innertext_only(codehtml) With CreateObject("htmlfile"): .body.innerhtml = codehtml: innertext_only = .body.innertext: End With End Function
et pour la tester
Code:

1 2 3 4 5 6 Sub test() Dim texte$ texte = " c'est tres simple de suprimer " texte = texte & "le balisage d'un code html sans utiliser de methode string en vb(a,s,.net)" MsgBox innertext_only(texte) End Sub
ca peut pas etre plus net