XProfan

- Página 2 -

Hm, Yo glaube (y hoffe) solch Ver código fuente se hier no produziert - si alles korrekt arbeitet. Wo erzeuge Yo algo como? (Könnte me vorstellen el el letzten Temas en el Index algo como u.U. erzeugen.)

Frank
Abbing

Hab el en el Ver código fuente dieser Página gefunde, IF.

Wo porque sólo... würds gern beheben...

Frank
Abbing

Hab una neue Versión hochgeladen, después de que una blöden Fehler en el Code gefunden habe y el Se bloquea en leerem Editar campo Fijo habe. Bitte otra vez testen.

@IF: Kann dir el Punto no genau sagen, tal vez wars auch en uno otro Página. Mi aber, lo war genau hier en el Hilo.

El Schreibweise es entonces en el Ver código fuente, si la Link no como Link dargestellt voluntad se, pero el Ver código fuente des Links incluso.

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

Könnte uno sagen "eher a Anschauungszwecken" - also sería Yo esta en el html2link-Fall übergehen.

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.

16.12.2008 ▲