io ti butto li una soluzione con regular expressions
codice:
stringa="<p class=""titoli""> io dormo</p>" & vbCrLf
stringa=stringa & "
[img][/img]</p>
Questo è un testo di prova da modificare e formattare!</p>" & vbCrLf
stringa=stringa & "
[img][/img]</p>
Questo è un testo di prova da modificare e formattare!</p>"
stringa=stringa & "
[img][/img]</p>
Questo è un testo di prova da modificare e formattare!</p>"
set re=Server.CreateObject("VBScript.RegExp")
re.Pattern="<img [^>]*?src=""([^""]*?)""[^>]*?>" 'pattern per trovare tutti i tag immagine
re.Global=true
re.Multiline=true
re.IgnoreCase=true
set risultati=re.Execute(stringa)
for each risultato in risultati
src=risultato.SubMatches(0) 'l'src è l'unico submatch
re.Pattern="width=""\d+""" 'pattern per trovare width
set ris=re.Execute(risultato)
width="width="
if ris.count>0 then width=Replace(ris(0),"""","") 'tolgo le virgolette
re.Pattern="height=""\d+"""
set ris=re.Execute(risultato)
height="height="
if ris.count>0 then height=Replace(ris(0),"""","")
nuovaImmagine=Replace(risultato,src,"resize.asp?" & width & "&" & height & "&img=" & src)
stringa=Replace(stringa,risultato,nuovaImmagine)
next