VB6 expression régulière pour Dissolvant les espaces blancs HTML

Question

Je suis en train d'exécuter cette expression régulière [\ s] + (<) | (>) [\ s] +

dim myRegExp as object 
Set myRegExp = New RegExp 
myRegExp.MultiLine = True 
myRegExp.IgnoreCase = True 
myRegExp.Global = True 
myRegExp.Pattern = "[\s]+(<)|(>)[\s]+" 
'myRegExp.Test (str) 
str = myRegExp.Replace(str, "$2$1") 

cela ne semble pas les travaux

vous pouvez tester exécuter cette expression régulière sur http://www.regextester.com/ et il fonctionne parfaitement

il est supposé supprimer les espaces de gauche et à droite de balises HTML pour optimiser la page Web sans supprimer les espaces dans le texte réel juste inbetween htm l balises.

<br>  adsfdf </br> <img  
asdddasd  > 


sdfdsf <br>   <yah>43 3453490 
90        <tag> 
<tag> 

se transforme en

<br>adsfdf</br><img asdddasd>sdfdsf<br><yah>43 3453490 90<tag><tag> 

pourquoi ne pas travailler dans VB6/VBScript? grâce

Answer 1

Essayez ceci:

myRegExp.Pattern = "\s+(<)|(>)\s+" 
str = myRegExp.Replace(str, "$2$1") 

VB6/VBScript Regexes probablement ne pas comme \s dans une classe de caractères.