XProfan

- Página 2 -

Frank
Abbing

Ah, verstanden! Ist also kein echtes Html. Na sí, Yo lass lo ahora trotzdem drin.
Hast du auch una Testbericht?

Kompilieren Marca Separación

Jaja, el funktioniert ya, pero yo Por favor, Usted...

Schade el OCX a Tiempo no funktioniert, normalerweise por el Nodes uno "html"-Controls hüpfen y el "links" mitnehmen.

Mit XProfan sería Yo el así hacer:

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

whileLoop sizeOf(myLinks) {

    imprimir myLinks[bucle-1]

}

imprimir "fertig"
waitinput
end

arr.aHrefsFromUrl(cadena _url){

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

    whileLoop 0,sizeOf(links)-1 {

        tmp=explode(links[bucle],"HREF=")

        seleccionar sizeOf(tmp)

            caseof 0,1 : continue

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

        EndSelect

    }

    volver ret

}

y el klappt auch bastante bien, solange el Angaben innerhalb " oder befinden.

Aber el puede ser sí ligeramente y ewig erweitern.

URLs son normalerweise caso-sensitive, el Ejemplo achtet darauf no.

Zwischenablage01.png	21 kB

Hochgeladen:	15.12.2008

Ladeanzahl:
		Descargar

Frank
Abbing

URLs son normalerweise caso-sensitive, el Ejemplo achtet darauf no.

Sí, por lo tanto auch unbrauchbar.

Yo sagte sí, es sólo una kleines Utility. Aber para esta Zwecke ausreichend. Dank dir para el Test!

Ne URL eingeben puede wäre schön...

Frank
Abbing

Sí, to be continued.

Kompilieren Marca Separación

El Variante hier es caso-sensitive:

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

whileLoop sizeOf(myLinks) {

    imprimir myLinks[bucle-1]

}

imprimir "fertig"
waitinput
end

arr.aHrefsFromUrl(cadena _url){

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

    whileLoop 0,sizeOf(links)-1 {

        tmp=explode(links[bucle],"HREF=")

        seleccionar sizeOf(tmp)

            caseof 0,1 : continue

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

        EndSelect

    }

    volver ret

}

Man übergibt simplemente a el Función una URL, y erhält una Stringarray zurück con el Links.

Frank
Abbing

Lässt se no starten, dein Code. XPSE meldet ne Masse Fehler, trotz dass Yo grad el aktuelle download.inc geladen tener.
El Rückgabelinks en el Editbox finde Yo auch viel praktischer.

- Página 3 -

Hm gug veces se ejecuta sin Problemas por:

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

Expediente : c:dev1.xprf (121)
Stats : If[15], Proc[7], Klassen[0], Macros[0]
Runtime : "prfrun32.exe", gefunden
Kompiler : "profcomp.exe", gefunden

Fertig (47ms), beliebige Taste para final oder
Kompileroption {$Q}uiet en sin Nachfrage a final.

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

XPSE:> Kompilieren: Code: 0 [erfolg] (2606 byte pcode)
XPSE:> Linken: Code: 0 [erfolg] (1027 KB exe)
XPSE:> Ausfuehren: Code: 0 [erfolg]
XPSE:>

1.exe	1.028 kB

Hochgeladen:	16.12.2008

Ladeanzahl:
		Descargar

Frank
Abbing

Guck veces, se ejecuta nada por, por qué De todos modos.

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

Hochgeladen:	16.12.2008

Ladeanzahl:
		Descargar

Drück veces W entonces el Report wenigstens komplett - así sieht uno sí garnichts. (auch no xpse Versionsnummer)

Usted hast aber determinado sólo una alten XPSE.

¿Puede en efecto Profano²5.0 zuschalten y schauen obs klappt.

Frank
Abbing

Hast bastante, después de Actualización ging lo. Aber dadurch entstanden otro Problemas, el Yo en un neuen Hilo näher erklär(t)e.

Frank
Abbing

Neue Versión (1.02) hochgeladen. Páginas puede geladen y kopiert voluntad.