Replace parziale di una stringa

[CiodoF]

Problema.
Devo "pulire" ed ottimizzare altuni tag all'interno per la pagina che "sputo" (fuori leggendola da un db.
Il problema, che possono esserci alcune formattazioni di html all'interno del tag non corrette per la valudazione W3C.

Esempio :
....
....
<table .... height=100% ....>
....

Corretto
....
....
<table .... style="height:100%;" ....>
....

Allora chiedo esiste un metodo che in un colpo solo, utilizzando un replace e le espressioni regolari, mi aiuti a mettere a punto il tutto.

Ora lo faccio con dei do-loop, cercando i singoli tag e verificando, il problema ... alla fine monto e smonto stringhe e sue parti, ma il loop di "mangia" tempo e risorse.


HTML =replace(HTML,"<table[reg expr]height=100%[reg expr]>","<table[reg expr]style="height:100%;"[reg expr]>",,,,1)


Grazie a tutti.

[CiodoF]

Ora faccio così :

                Testo=HTML
		Ind=1
		Ind_Conta=0
		Chiave=""
		do
			inizio=instr(Ind,Testo,"<table ",1)
			if inizio>0 then
				fine=instr(inizio,Testo,">")
				if fine>inizio then
					Chiave=mid(Testo,inizio,fine-inizio+1)
					Chiave=REPLACE(Chiave," height=100%"," style=""height:100%;""")
					Chiave=REPLACE(Chiave," height=""100%"""," style=""height:100%;""")
					Testo=left(Testo,inizio-1) & Chiave & right(Testo,len(Testo)-fine-len(">")+1)
				end if
			else
				exit do
			end if
			Ind=inizio+1
			Ind_Conta=Ind_Conta+1
		loop
                HTML=Testo

[CiodoF]

[OT]
Uppatina ....

[/OT]