Udbygge domæne-script

Hvad med at prøve:

objRegExp.Pattern = "(.*?)(http://[|www\.])(.*?)(\.)(.*?)(>)"

Det virker ikke, fordi nu udskriver den (i stedet for domænenavnene):

ww
ww
ww
ww
ww
ww
osv.

Prøv med:
objRegExp.Pattern = "(.*?)(http://)(.*?)(\.)(.*?)(\.)(.*?)(>)"

Virker stadig ikke - nu får jeg resultatet:

ar
yp
www
www
www
www
www
www
www
forums
ar

Hvad giver:
objRegExp.Pattern = "(http://)(.*?)(\.)(.*?)(\.)(.*?)(>)"

Giver:
.
.
.
.
.
.
.
.
.
.
.

hvad med
objRegExp.Pattern = "(http://.*?)>"

$3
$3
$3
$3
$3
$3
$3
$3
$3
$3
$3

Det skal måske lige siges, at min kode ser således ud:

dim arrTitler(10)

Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True

objRegExp.Pattern = "(http://.*?)>"
set matches = objRegExp.Execute(strRetval)

i = 0

for each match in matches
    arrTitlerDummy = objRegExp.Replace(match.value, "$3")
   
    if arrTitlerDummy <> "minhjemmeside1" and arrTitlerDummy <> "minhjemmeside2" then       
        arrTitler(i) = arrTitlerDummy
        i = i + 1
    else
        arrTitlerDummy = ""
    end if
next

objRegExp.Pattern = "(http://)([^\.]*?)(\.)([^\.]*?)(\.)([^\.]*?)(>)"

.
.
.
.
.
.
.
.
.
.
.

Prøv

    arrTitlerDummy = objRegExp.Replace(match.value, "$4")

-- med segmoses to sidste !-)

F... [cencur]... om det ikke virkede ;) takker mange gange. Tryk svar :-D

Det lyder som en deler ...

-- velbekomme '-)

... Og vi fortsætter her ;)

http://www.eksperten.dk/spm/474802

-- tak for points ;~}