ReExp

Har du testat själv? I sånna fall kan däl visa koden, annars så kan du läsa om Regular Expression.

Jepp, har testat själv men kommer inte någonstans =/.. jepp har läst där innan =)...

I sånna fall kan däl visa koden

Så att vi har något att utgå ifrån, för att se vad som är fel.

Detta kanske fungerar...

<%
Function ExpTest(sText, sPattern)
	Dim oRegExp

	Set oRegExp = New RegExp
	oRegExp.Pattern = sPattern
	oRegExp.Global = True
	ExpTest = oRegExp.Test(sText)
	Set oRegExp = Nothing
End Function

Function ExpReplace(sText, sPattern, replaceWith)
	Dim oRegExp
	Set oRegExp = New RegExp
	oRegExp.Pattern = sPattern
	oRegExp.Global = True
	oRegExp.Execute(sText)
	ExpReplace = oRegExp.Replace(sText, replaceWith)
	Set oRegExp = Nothing
End Function

Function cString(ByVal sText, numb)
	cString = ExpReplace(sText, "<A\ href=(.*?)><Img src='(.*?)'></A>", "$" & numb) 
End Function

Function checkString(ByVal sText, forma)
	checkString = ExpTest(sText, "^(\w)*\.(" & forma & ")$")
End Function

str = "<A href=hemsida.htm><Img src='hej.jpg'></A>"
response.write cString(str, 1) & VbCrLf
response.write cString(str, 2) & VbCrLf
response.write checkString(cString(str, 1), "html&#0124;htm") & VbCrLf
response.write checkString(cString(str, 2), "gif&#0124;jpg&#0124;png") & VbCrLf

%>

Aaahh, det var ju helt anorlunda...
får testa denna!!!.. tror jag fattar nu

tack!!!