Discussion :

[faamugol]

bonjour...tout le monde

j' ai une chaine chaine de caractere qui contient du HTML,
mon but d' envoyer cette chaine par email...mais je voudrais recevoir seulement du text sans les balises HTML

je travaille en ASP

voila ce que j' utilise pour envoyer le mail:

Code :

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

1
2
3
4
SendTo ="admin@elitech.fr"
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5")
 ObjWinHttp.Open "GET", "http://190.167.0.102/wdmail.smc?to=" & SendTo & "&from=confirmer@elitech.fr&msg=" &  maChaine
 objWinHttp.Send

merci d' avance pour vos suggetions

[lexav]

tu as la fonction replace qui permet de chercher des caractères et de les remplacer... sinon, tu as toutes les fonctions de manipulation de chaines type Left, Mid, Right...

mais ça me paraît limite impossible de faire ça de cette manière à cause du nombre variable d'attributs associés aux balises HTML

[jérôme]

Utilise une expression régulière, ç'est fait pour ça.

Soit s ta chaine de départ, voici ce dont tu as besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ReplaceTest(str, patrn, replStr)
  Dim regEx               ' Crée des variables.
  Set regEx = New RegExp            ' Crée l'expression régulière.
  regEx.Pattern = patrn            ' Définit les critères.
  regEx.IgnoreCase = True            ' Ignore la casse.
  regEx.Global = True   						' Recherche globale (toutes les occurences)
  ReplaceTest = regEx.Replace(str, replStr)   ' Effectue le remplacement
End Function
 
 
pattern = "(\s*<\/?[^>]+>\s*)"
repl = ""
s2 = ReplaceTest(s, pattern, repl)