ReExp

ngn som har någon aning om hur jag skall få ut det "hemsida.html"
och vara säker på att det är html eller htm som filen slutar på

sedan skulle jag oxå vilja ha bildens sökväg oxå,, precis som länkens

<A href=hemsida.htm><Img src='hej.jpg'></A>

------------------
"Brott kanske inte lönar sig, men det är kul"

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

------------------
Mostly Harmless

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

------------------
"Brott kanske inte lönar sig, men det är kul"

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.

------------------
Mostly Harmless

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!!!

------------------
"Brott kanske inte lönar sig, men det är kul"