Udbygge domæne-script (vb)

dim arrTitler(10)

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

objRegExp.Pattern = "id=listlinks href=""(.*?)"" target=_scrul>"
set matches = objRegExp.Execute(strRetval)

i = 0

for each match in matches
    arrTitler(i) = objRegExp.Replace(match.value, "$4")
    i = i + 1
next

set objRegExp = Nothing

Sådan her fx...

Der skulle retteligt stå:

id=listlinks href="http://www.DETTE_SKAL_BRUGE.dk" target=_scurl>

(Landekoden kan også være andre end dk)

husk lige dette...
http://www.eksperten.dk/spm/471519

og mht din rettelse.. Så burde ovenstående virke alligevel.

Ups, jeg havde glemt at acceptere - hviklet er gjort nu. Men det virker ikke. Der kommer intet output.

i det andet spg eller hvad ?

Det virker ikke nogle af stederne, men måske er det fordi at der skiftes linie (kopieret rådt ind):

<A id=listlinks
            href="http://www.enhjemmeside.dk/en_side.html" target=_scurl>

Det er ikke altid, at der skiftes linie.

altså hvis der er vbcrlf eller <br> virker det ikke vil jeg tro.

Kan du ikke smide noget kode?

dim arrTitler(10)

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

objRegExp.Pattern = "(http://)([^\.]*?)(\.)([^\.]*?)(\.)([^\.]*?)(>)"
set matches = objRegExp.Execute(replace(replace(strRetval,"<br>",""),vbcrlf,""))

i = 0

for each match in matches
    arrTitler(i) = objRegExp.Replace(match.value, "$4")
    i = i + 1
next

set objRegExp = Nothing

prøv evt. denne...

Nu matcher den alle links, men den kun matche dem, som er opbygget på følgende måde:

<A id=listlinks href="http://www.enhjemmeside.dk/en_side.html" target=_scurl>

dim arrTitler(10)

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

objRegExp.Pattern = "id=listlinks href=""http://www.(.*?)(\.)(.*?)(target=_scrul>)"
set matches = objRegExp.Execute(replace(replace(strRetval,"<br>",""),vbcrlf,""))

i = 0

for each match in matches
    arrTitler(i) = objRegExp.Replace(match.value, "$1")
    i = i + 1
next

set objRegExp = Nothing

Jamen, den skal netop matche med eller uden WWW. Dit script matcher kun med WWW.

Følgende matcher med eller uden WWW:
objRegExp.Pattern = "(http://)([^\.]*?)(\.)([^\.]*?)(\.)([^\.]*?)(>)"

Men den tager desværre alle links ind... den skulle kun tage omtalte links.

Med andre ord; hvis du kan kombinere det script, som finder domænenavnet uanset WWW med det script, som matcher ved omtalte links, så har du svaret :)

dim arrTitler(10)

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

objRegExp.Pattern = "id=listlinks href=""http://www.(.*?)(\.)(.*?)(target=_scrul>)"
objRegExp.Pattern = "id=listlinks href=""http://(.*?)(\.)(.*?)(target=_scrul>)"
set matches = objRegExp.Execute(replace(replace(strRetval,"<br>",""),vbcrlf,""))

i = 0

for each match in matches
    arrTitler(i) = objRegExp.Replace(match.value, "$1")
    i = i + 1
next

set objRegExp = Nothing

så prøv denne...

Virker ikke:

strRetval = "<A id=listlinks href=""http://www.førstHjemmeside.dk/en_side.html"" target=_scurl>    <A id=listlinks href=""http://www.andenHjemmeside.com/en_side.html"" target=_scurl>  <A id=listlinks href=""http://tredjeHjemmeside.dk/"" target=_scurl>"

    dim arrTitler(10)

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

    objRegExp.Pattern = "id=listlinks href=""http://www.(.*?)(\.)(.*?)(target=_scrul>)"
    objRegExp.Pattern = "id=listlinks href=""http://(.*?)(\.)(.*?)(target=_scrul>)"
    set matches = objRegExp.Execute(replace(replace(strRetval,"<br>",""),vbcrlf,""))

    i = 0

    for each match in matches
        arrTitler(i) = objRegExp.Replace(match.value, "$1")
        i = i + 1
    next

    set objRegExp = Nothing

Sådan her så da...


<%
dim myarr(10)
tekst = "<A id=listlinks href=""http://www.førstHjemmeside.dk/en_side.html"" target=_scurl>    <A id=listlinks href=""http://www.andenHjemmeside.com/en_side.html"" target=_scurl>  <A id=listlinks href=""http://tredjeHjemmeside.dk/"" target=_scurl>"

i = 0

Function LinkToString(strInput)

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

objRegExpHTTP1.Pattern = "(.*?)(http://www.|http://)(.*?)(\.)(.*?)(>)"
strOutput = objRegExpHTTP1.Replace(strInput, "$3")

set objRegExpHTTP1 = Nothing
LinkToString = strOutput
End Function

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

objRegExp.Pattern = "(.*?)(id=listlinks href="")(http://www.|http://)(.*?)(\.)(.*?)(target=_scurl>)"
set matches = objRegExp.Execute(tekst)

for each match in matches
myarr(i) = LinkToString(match.value)
i = i+1
next

set objRegExp = Nothing
for i = 0 to UBound(myarr)
response.write myarr(i) & "<br>"
next
%>

Jamen, det virker så smukt :D Så er den i hus.

Kan jeg bede dig om de sidste lille ting. Jeg har nogle links, hvor der blot lige er byttet om på nogle ting:

<a id="listlinks" target="_scurl" href="http://www.enHjemmeside.com/enSide.htm">

Kan du ikke smide mig et pattern, som ville virke med disse links?

jo muligvis...

prøv denne...
objRegExp.Pattern = "(.*?)(id=""listlinks"" target=""_scrul"" href="")(http://www.|http://)(.*?)(\.)(.*?)(>)"

Jeg kan ikke få det til at virke, er der mere, som jeg skal ændre på?

dim myarr(10)
strRetval = "<a id=""listlinks"" target=""_scurl"" href=""http://www.minHjemmeside.com/main.htm"">"
   
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True

objRegExp.Pattern = "(.*?)(id=""listlinks"" target=""_scrul"" href="")(http://www.|http://)(.*?)(\.)(.*?)(>)"
set matches = objRegExp.Execute(strRetval)

for each match in matches
    myarr(i) = LinkToString(match.value)
    i = i+1
next

set objRegExp = Nothing
for i = 0 to UBound(myarr)
    response.write myarr(i) & "<br>"
next

der skal være 2x " efter listlinks i pattern
tror det er en bug på exp... for den plejer at fjerne min nr. 2...

men det skal der også i din strRetval

Jeg rettede selv da fejl, da browseren brokkede sig. Men det er ikker her, at fejlen ligger.

da = den fejl

Tak for hjælpen :)

Jeg opretter lige et ekstra spg. til mit sidste problem