Udtag alt mellem href=" og "

Kan du ikke bruge split() ?
Nu ved jeg ikke hvor meget du har med i strResult?

strResul er en hel html kode fra en side....

hvordan bruges split... er lidt på bar bund her &:-(

Nå, ok - så er split() nok ikke det rette...
Den deler en streng ud fra et tegn du angiver. F.eks. kan du dele en tekst op i flere dele for hvert komma.

Det burde da kunne lade sig gøre ( er ikke ekspert )

eftersom at man kan erstatte et tegn vi replace funktionen, der søger den da efter et tegn, her skal jeg bare have den til at udskrive det link der står imellem href=" og " istedet eller er jeg helt galt på den ?

Jamen, problemet er jo, at du vil få mange resultater hvis du deler på ".
For hvis det er en hel html-kode, vil der f.eks. være align="left", og så vil du få left med som et resultat.

der er derfor jeg vil udtage det der står mellem ahref=" og "

og ikke kun " og "

der skulle selvfølgelig stå: href=" og "

så er det jo kun url adresser jeg kan få som output

Jeg ved ikke om der findes en funktion der kan gøre det.
Desværre...
Jeg vil mene det vil tage for lang tid og vil blive uoverskueligt hvis du bruger split().

ok.... håber da så der skulle dukke en anden op der kan hitte på noget.....

burde kunne lade sige gøre &:-(

må man spørge hvad det skal bruges til?

til indeksering automatisk af hjemmside. kan du hjælpe ?

ASPHTTP har jo den dejlige funktion GETHREF indbygget, men det er jo lidt kedeligt at parse fra sig selv ;)

hvordan virke den funktion ?

mon ikke noget reg.exp kan klare problemet. hvis du opsaetter en pattern som soeger efter <a href="[something]"> og saa bruger replace funktionen saa burde den ged vist vaere barberet.

Lidt at laese:
Function ReplaceTest(patrn, replStr)
  Dim regEx, str1              ' Create variables.
  str1 = "The quick brown fox jumped over the lazy dog."
  Set regEx = New RegExp            ' Create regular expression.
  regEx.Pattern = patrn            ' Set pattern.
  regEx.IgnoreCase = True            ' Make case insensitive.
  ReplaceTest = regEx.Replace(str1, replStr)  ' Make replacement.
End Function
http://activedeveloper.dk/iishelp/vbscript/htm/vsmthreplace.htm

og

http://activedeveloper.dk/iishelp/vbscript/htm/vsproPattern.htm

det ville vaere mit bedste bud...

questis >

<%

  Set HttpObj = Server.CreateObject("AspHTTP.Conn")
  HttpObj.Url = "http://microsoft.com"
  strResult = HttpObj.GetURL

    varHREFArray = HttpObj.GetHREFs

  For I = 0 to UBound(HttpObj.GetHREFs) -1
    Response.Write varHREFArray(I) & "<br>" & VBCrLF
  Next

%>

Men igen, kedeligt at parse fra sig selv...

virus>> hallo, det virker jo......

kanont.... mange tak for hjælpen..... helt perfekt..

vil du være sød at ligge et svar ?

Uhm ok... :)

takker endnu angang det var lækkert