Finde URL i en streng !

Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "http://(.*?)/.*"

URL_do = "http://www.jubii.dk/aktiviteter/default.asp"
Response.write regEx.replace(URL_do,"$1")
URL_do = "http://eniro.jubii.dk/aktiviteter/default.asp"
Response.write regEx.replace(URL_do,"$1")

Det ser rigtig godt ud...
Hvordan ville "regEx.Pattern" se ud hvis der skulle http:// med..

Og er der evt. en guide til hvordan man bygger sådan en kode op ??

Sådan:

regEx.Pattern = "(http://.*?)/.*"

Takker..

Hvorfor kan man ikke sætte et alm. / tegn bag strengen ?

Jeg er ikke lige med. Hvad mener du præcist?

Tænker du på /.* delen??
Så er det for at matche resten af strengen, ellers bliver den del taget med, når man laver replacen.

Og er der evt. en guide til hvordan man bygger sådan en kode op ??

Tjek Reg Exp kategorien her på E:
http://www.eksperten.dk/spm/Programmering/RegExp/

Eller her:

http://www.phpartikler.dk/artikler/regexp.php

- og her:

http://www.regularexpressions.info/

1.000 tak for hjælpen begge 2...

Vil i bare dele pointne ?

Jeg står over på denne her. Men ellers tak for tilbudet. :^)

Bare iorden...

tak for hjælpen....

Nielle kan man evt. få fat på dig på MSN hvis man havde noget akut hjælp ?? :-/

Desværre, jeg er ikke på MSN eller anden form for IM. Men jeg kan da som det meste træffes her. :^)

Bare iorden...

Hvis du evt. kan lidt Javascript så har jeg lavet er spørgsmål på: http://www.eksperten.dk/spm/726653

Hvis du vil kigge på det ved lejlighed... :)

Den er opklaret... undskyld ulejligheden... :)

Hej...

Nu har jeg lige fået lavet mig denne kode...
Men vil gerne kun have de resultater der er formateret således på siden: 6.195,50 (f.eks.)
Og evt. en reg-kode hvor den sletter alle html-koder dvs. alt inden for < og > ??


set Req = Server.CreateObject("Msxml2.ServerXMLHTTP")
Req.open "GET", url, False
Req.Send

Set re = New RegExp
re.Global = True
re.Pattern = "\d+"

Set matches = re.Execute(req.responseText)

If matches.Count > 0 Then
    smallest = matches(0)
    largest = matches(0)

    For i=1 To matches.Count-1
        tal = +matches(i)

        If tal < smallest Then
            smallest = tal
        ElseIf tal > largest Then
            largest = tal
        End If
    Next

    Response.Write "Mindste: " & smallest & "<br>"
    Response.Write "Største: " & largest & "<br>"
End If

Hvis det frister...: http://www.eksperten.dk/spm/796466