XProfan

- Page 2 -

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.

- Page 3 -

Hm gug time runs without Problems through:

XProfan 11.0.1.7ze Precompiler & SE [XPSE]
copyright (C) 2004-2008 XProfan.com, built DE.

File : c:dev1.xprf (121)
Stats : If[15], Proc[7], classes[0], Macros[0]
Runtime : "prfrun32.exe", found
Compiler : "profcomp.exe", found

ready (47ms), arbitrary Button to that terminate or
Kompileroption {$Q}uiet circa without demand To terminate.

[C]ompile [L]ink [R]unPrc Run[E]xe [s]ource [H]ilfe

XPSE:> Compile: code: 0 [success] (2606 byte pcode)
XPSE:> left: code: 0 [success] (1027 KB exe)
XPSE:> Ausfuehren: code: 0 [success]
XPSE:>

1.exe	1.028 kB

Hochgeladen:	12/16/08

Downloadcounter:
		Download

Frank
Abbing

Guck time, runs none through, Why too always.

Screen 16.12.2008, 16 Uhr 24, 25 Sek.png	19 kB

Hochgeladen:	12/16/08

Downloadcounter:
		Download

Drück time W then is the Report at least complete - so sees one Yes garnichts. (too no xpse version number)

you have but certainly only a middle-aged XPSE.

can indeed Profan²5.0 zuschalten and look obs works.

Frank
Abbing

have right, to Update went it. but therefore emerged others Problems, The I in a new Thread hither erklär(t)e.

Frank
Abbing

new Version (1.02) uploaded. pages can loaded and copies go.