---
title: "ReExp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13036-reexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Nickemannen"
published: "2001-12-05T15:38:00.000Z"
updated: "2001-12-06T16:01:00.000Z"
replies: 5
views: 139
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13036-reexp"
---

# ReExp

## #1 — Nickemannen, 2001-12-05T15:38Z

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

Permalänk: https://www.webforum.nu/p/13036

## #2 — Vide, 2001-12-05T16:55Z

Har du testat själv? I sånna fall kan däl visa koden, annars så kan du läsa om [Regular Expression](http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp_11.asp).

Permalänk: https://www.webforum.nu/p/299996

## #3 — Nickemannen, 2001-12-05T17:00Z

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

Permalänk: https://www.webforum.nu/p/299997

## #4 — Vide, 2001-12-05T19:37Z

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

Permalänk: https://www.webforum.nu/p/299998

## #5 — Brimba, 2001-12-06T01:25Z

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

%>
```

Permalänk: https://www.webforum.nu/p/299999

## #6 — Nickemannen, 2001-12-06T16:01Z

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

tack!!!

Permalänk: https://www.webforum.nu/p/300000

---

Tråden på webben: https://www.webforum.nu/amne/asp/13036-reexp