Discussion :

[aloisio11]

Bonjour à tous,

J'ai une variable contenant du code HTML et je voudrait en extraire seulement le texte qui est censé être affiché.
Y a t il quelque chose qui fait cela ?

J'espère que j'ai été clair dans mon explication ...

Merci d'avance

[vva]

le code html de la variabl est il connu ou peut il varier ?

[aloisio11]

le code html de la variabl est il connu ou peut il varier ?

Il peut varier

[vva]

donc apparemment tu ne peux pas récupérer la position de la première lettre du texte ???

[aloisio11]

Le problème c'est que il y a des balise partout (pour le gras, les tableau, ...) donc c'est quand même assez dur

[vva]

je remonte un peu en amont de ton travail comment est renseignée ta variable ?

[aloisio11]

J'ai créé une fonction qui fait a peut près ce que je voulais

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
 
function HTMLtoTexte(pTexte)
 
		pTexte = Replace(pTexte, "<TR>", vbcrlf)
		pTexte = Replace(pTexte, "</TR>", vbcrlf)
		pTexte = Replace(pTexte, "<BR>", vbcrlf)
		pTexte = Replace(pTexte, "<BR />", vbcrlf)
 
		pTexte = Replace(pTexte, "<tr>", vbcrlf)
		pTexte = Replace(pTexte, "</tr>", vbcrlf)
		pTexte = Replace(pTexte, "<br>", vbcrlf)
		pTexte = Replace(pTexte, "<br />", vbcrlf)
 
		vRes = ""
		vInBalise = false
		For vCpt = 1 to Len(pTexte)
			if Mid(pTexte, vCpt, 1) <> "<" and Mid(pTexte, vCpt, 1) <> ">" and not vInBalise then
				vRes = vRes & Mid(pTexte, vCpt, 1)
			end if
 
			if Mid(pTexte, vCpt, 1) = "<" and Not vInBalise then
				vInBalise = true
			else
				if Mid(pTexte, vCpt, 1) = ">" and vInBalise then
					vInBalise = false
				end if	
			end if
		Next
 
		vRes = Replace(vRes, vbcrlf & vbcrlf , vbcrlf)
 
		HTMLtoTexte = vRes
	End function

[vva]

c'est l'idée que je voulais te soumettre mais étant donné que tu ne connais pas les balises à l'avance, il t'en manque beaucoup dans ta fonction

plus compliqué mais fiable c'est de calculer la position de l'ouverture d'une balise et la position de la fermeture et de prendre que ta variable à partir de la fermeture de la balise ce qui te permettra de supprimer les balises en avant, pendant et à la fin de ta variable