How to resize large images ???

[xain]

HtmlString includes a web page, and soon it is converted to Html file.
In the web page, they are images, and some of them are large. They are so large, in fact they are going to destroy my Tables, so I need to resize these images.

I write a Function to do this job.

[COLOR=DarkOrang e]Resizeimage(Htm lString)[/COLOR]

[COLOR=SeaGreen]Function Resizeimage(Con Str)
Dim TempStr,Re,Matc hes,Match,Tempi ,TempArray

Set Re = New Regexp
Re.IgnoreCase = True
Re.Global = True
Re.Pattern ="<img.+?[^\>]>"
Set Matches =Re.Execute(Con Str)

For Each Match in Matches
If TempStr<>"" then
TempStr=TempStr & "$Array$" & Match.Value
Else
TempStr=Match.V alue
End if
Next
If TempStr<>"" Then
TempArray=Split (TempStr,"$Arra y$")
TempStr=""
For Tempi=0 To Ubound(TempArra y)


Re.Pattern ="src\s*=\s*.+? \.(gif|jpg|bmp| jpeg|psd|png|sv g|dxf|wmf|tiff) "
Set Matches =Re.Execute(Tem pArray(Tempi))
For Each Match in Matches
If TempStr<>"" then
TempStr=TempStr & "$Array$" & Match.Value
Else
TempStr=Match.V alue
End if
Next
Next
End if

If TempStr<>"" Then
Re.Pattern ="src\s*=\s* "
TempStr=Re.Repl ace(TempStr,"")
End If

Set Matches=nothing
Set Re=nothing

If TempStr="" or IsNull(TempStr) =True Then
ReplaceSaveRemo teFile=ConStr
Exit function
End if

TempStr=Replace (TempStr,""""," ")
TempStr=Replace (TempStr,"'","" )
TempStr=Replace (TempStr," ","")


Dim PathTemp

TempArray=Split (TempStr,"$Arra y$")
TempStr=""
For Tempi=0 To Ubound(TempArra y)
If Instr(Lcase(Tem pStr),Lcase(Tem pArray(Tempi))) <1 Then
TempStr=TempStr & "$Array$" & TempArray(Tempi )
End If
Next
TempStr=Right(T empStr,Len(Temp Str)-7)
TempArray=Split (TempStr,"$Arra y$")

Set Re = New Regexp
Re.IgnoreCase = True
Re.Global = True

For Tempi=0 To Ubound(TempArra y)
Re.Pattern =TempArray(Temp i)
PathTemp=TempAr ray(Tempi)

PathTemp=PathTe mp&"' onclick='javasc ript:window.ope n(this.src);' onload='javascr ipt:if(this.wid th>screen.width-300)this.style. width=screen.wi dth-300;"
ConStr=Re.Repla ce(ConStr,PathT emp)

Next
Set Re=nothing

Resizeimage=Con Str
End function[/COLOR]

this founction works well with the first few files,but I met problem soon.

[xain]

this function deal with this kind [COLOR=Navy]<img src='xxxx/2005081723/200508172347417 16.jpg'/>[/COLOR] images well.
but not this one:
[COLOR=Navy]<img src="xxxx/2005081723/200508172347417 16.jpg"/>[/COLOR] (with ")

nor this one:
[COLOR=Navy]<img src='xxxx/2005081723/200508172347417 16.jpg' onload="javascr ipt:if(this.wid th>screen.width-300)this.style. width=screen.wi dth-300;"/>[/COLOR] (with resize script already)

How can I improve my function to fit these codes?
Or do you have any better solution?

[xain]

I find this simpler Function:
[COLOR=DarkOrchi d]Function bbimg(strText,s size)
Dim Re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
Dim s
s=strText
re.Pattern="<im g(.[^>]*)>"
s=re.replace(s, "<img$1 onclick=""javas cript:window.op en(this.src);"" onload=""javasc ript:if

(this.width>scr een.width-"&ssize&")this. style.width=scr een.width-"&ssize&";" ">")
bbimg=s
End Function[/COLOR]