klippe href fra kode

Jeg har prøvet at gøre som beskrevet i:
http://www.eksperten.dk/spm/774739 men det virker ikke

prøv at ændre til

Do Until testafmeta4 = 0

Du kunne evt lave det med Split og Mid..

Eksempel:

a = split(htmlkode, "href=")
for i = 1 to ubound(a)
    h = a(i)
    if instr(h, """") > 0 then h = mid(h, instr(h, """") + 1)
    if instr(h, """") then h = left(h, instr(h, """") - 1)
    if instr(h, ">") then h = left(h, instr(h, ">") - 1)
    htmllink = htmllink & h & "<br>"
next


PS: Du kan ikke bruge "MsgBox" i ASP.

Kodestumpen jeg skrev i 25/06-2007 09:50:35 tager højde for, om der står "" eller ej..

Dvs, den kan arbejde med:

<a href=http://www.server.dk>
<a href="http://www.server.dk">

Er der en nem måde og undgå ' på

jeg har brugt:
Set Rx2h = New RegExp
        Rx2h.Global = True
        Rx2h.IgnoreCase = True
        Rx2h.Pattern = "'"
    htmllink = Rx2h.replace(htmllink,"")
men det er ikke særligt pænt

og for at undgå <BR><br>
htmllink = Replace(htmllink, "<br><br>", "<br>")

er der en pænere måde

Jeg ved ikke hvorfor, du vil erstatte ' med en tom streng, men man kan gøre det sådan her:

htmlkode = replace(htmlkode, "'", "")
a = split(htmlkode, "href=")
for i = 1 to ubound(a)
    h = a(i)
    if instr(h, """") > 0 then h = mid(h, instr(h, """") + 1)
    if instr(h, """") then h = left(h, instr(h, """") - 1)
    if instr(h, ">") then h = left(h, instr(h, ">") - 1)
    htmllink = htmllink & h & "<br>"
next

Eller:


a = split(htmlkode, "href=")
for i = 1 to ubound(a)
    h = a(i)
    h = replace(h, "'", "")
    if instr(h, """") > 0 then h = mid(h, instr(h, """") + 1)
    if instr(h, """") then h = left(h, instr(h, """") - 1)
    if instr(h, ">") then h = left(h, instr(h, ">") - 1)
    htmllink = htmllink & h & "<br>"
next

Tak for hjælpen, smid et svar....

Svar :-)

Jeg har blot et lille en lille ting mere?
hvordan kan jeg slette alle gentagelser af space så der kun er et mellemrum?

jeg har prøvet:
Do Until testafmeta3 = 0
            Set Rx2hc = New RegExp
            Rx2hc.Global = True
            Rx2hc.IgnoreCase = True
            Rx2hc.Pattern = Chr(32) & Chr(32)
            htmlkode = Rx2hc.replace(htmlkode," ")   
            // MsgBox(testafmeta3)
            testafmeta3= InStr(htmlkode,"  ")
           
        Loop

Ups.

testafmeta3= InStr(htmlkode,"  ")
       
        Do Until testafmeta3 = 0
            Set Rx2hc = New RegExp
            Rx2hc.Global = True
            Rx2hc.IgnoreCase = True
            Rx2hc.Pattern = Chr(32) & Chr(32)
            htmlkode = Rx2hc.replace(htmlkode," ")   
            testafmeta3= InStr(htmlkode,"  ")
        Loop

Du bruger ikke min kode?

Jeg kan desværre ikke RegExp som du bruger der, så jeg kender ikke de specielle tegn der skal bruges, for at vælge "flere mellemrum" fra..

Hvordan slette jeg alle gentagelser af space så der kun er et mellemrum eks.

"                  " bliver til " "

fjerne en vist antal til et stk.

Med dit kode?

Du kan prøve at se, hvilken en der passer dig bedst, af LTrim, RTrim og Trim:

<%
dim s
s = "                  bliver til  x"
response.write "venstre-trim: " & LTrim(s) & "<br>" & vbCrLf
response.write "venstre-trim: " & RTrim(s) & "<br>" & vbCrLf
response.write "begge-trim: " & Trim(s) & "<br>" & vbCrLf

%>


Som du kan se, fjerne de alle mellemrum, der kommer lige efter hinanden.. dvs, de efterlader ikke 1x mellemrum..

Tak for hjælpen...