XProfan

- Page 2 -

Hm, I faith (and hope) such View source becomes not produced - if everything correctly operates. where beget I something like? (might me present the The last Topics in the index something like u.u. produce.)

Frank
Abbing

Have the in the View source this Page gefunde, iF.

where because only... würds gladly to fix...

Frank
Abbing

Have a new Version uploaded, after I a stupid Errors in the code found have and the Abstürze with empty Editfeld have resolved. Please again testing.

@iF: can you The place not very say, Perhaps wars on of/ one others Page. my but, it was very here in the Thread.

The spelling is then in the View source, if the Link not as Link displayed go should, separate the View source the left self.

z.B. here: <a href="meineSeite">salve</a>

might one say "eher To Anschauungszwecken" - means would I these in the html2link-drop pass over.

Frank
Abbing

Ah, understood! So no real Html. well Yes, I lass it now nevertheless drin.
have you got too a Testbericht?

Jaja, the functions already, but I Please you...

Schade the OCX to Time not functions, usually by the Nodes one "html"-Controls hop and the "links" bear.

with XProfan would I the so make:

Compile Mark Separation

 {$cleq}
#include download.inc
cls
strings myLinks=arr.aHrefsFromUrl("https://frabbing.de/left.html")

whileLoop sizeOf(myLinks) {

    print myLinks[loop-1]

}

print "fertig"
waitinput
end

arr.aHrefsFromUrl(string _url){

    strings left=explode(upper$(dw.get(_url)),"<A "),
    tmp,
    ret
    string 	s

    whileLoop 0,sizeOf(left)-1 {

        tmp=explode(left[loop],"HREF=")

        select sizeOf(tmp)

            caseof 0,1 : continue

            otherWise
            s=substr$(tmp[1],2,mid$(tmp[1],1,1))
            case s=="" : continue
            ret[sizeOf(ret)]=s

        endSelect

    }

    return ret

}

and the works too integrally well, as long as the indicated within " or find.

but the can Yes slight and forever strain.

URLs are usually case-sensitive, the example respect hereon not.

Zwischenablage01.png	21 kB

Hochgeladen:	12/15/08

Downloadcounter:
		Download

Frank
Abbing

URLs are usually case-sensitive, the example respect hereon not.

Yes, therefore also useless.

I said Yes, is only one small Utility. but for these tack enough. Thanks you for Test!

Ne URL prompt can would beautiful...

Frank
Abbing

Yes, to be continued.

The Variante here's case-sensitive:

Compile Mark Separation

 {$cleq}
#include download.inc
cls
strings myLinks=arr.aHrefsFromUrl("https://frabbing.de/left.html")

whileLoop sizeOf(myLinks) {

    print myLinks[loop-1]

}

print "fertig"
waitinput
end

arr.aHrefsFromUrl(string _url){

    strings left=explode(translate $(translate $(dw.get(_url),"<a ","<A ")," href="," HREF="),"<A "),
    tmp,
    ret
    string 	s

    whileLoop 0,sizeOf(left)-1 {

        tmp=explode(left[loop],"HREF=")

        select sizeOf(tmp)

            caseof 0,1 : continue

            otherWise
            s=substr$(mid$(tmp[1],1,512),2,mid$(tmp[1],1,1))
            case s=="" : continue
            ret[sizeOf(ret)]=s

        endSelect

    }

    return ret

}

one commit simply on The function a URL, and sustain one Stringarray back with the left.

Frank
Abbing

let not started, your code. XPSE reports ne volume Error, withal I strain The actually download.inc loaded Have.
The Rückgabelinks in the Editbox find so did i plenty praktischer.

12/16/08 ▲