XProfan

- page 2 -

Hm, je crois (et hoffe) solch Voir le texte source wird ici pas produziert - si alles korrekt arbeitet. wohin erzeuge je quelque chose comme? (Könnte mir présenter cela qui letzten Sujets im index quelque chose comme u.U. erzeugen.)

Frank
Abbing

Hab cela im Voir le texte source cette page gefunde, iF.

wohin car seulement... würds gern beheben...

Frank
Abbing

Hab une neue Version hochgeladen, après que je une blöden faute im Code trouvé habe et qui Abstürze chez leerem Modifier le champ de behoben habe. s'il te plaît wieder testen.

@iF: peux dir qui Stelle pas oui c'est ca dire, peut-être wars aussi sur einer anderen page. mon mais, es était oui c'est ca ici im Fil.

qui Schreibweise ist ensuite im Voir le texte source, si qui Link pas comme Link dargestellt volonté soll, mais qui Voir le texte source des à gauche selbst.

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

Könnte on dire "eher trop Anschauungszwecken" - alors serait je cet im html2link-le cas übergehen.

Frank
Abbing

Ah, verstanden! Ist alors ne...aucune réel Html. eh bien, je lass es maintenant quand même drin.
la hâte du aussi une Testbericht?

Kompilieren Marque Séparation

Jaja, cela funktioniert déjà, mais je s'il te plaît toi...

tant pis cela OCX zur Zeit pas funktioniert, normalement par qui Nodes eines "html"-Controls hüpfen et qui "links" emmener.

avec XProfan serait je cela so faire:

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

whileLoop sizeOf(myLinks) {

    imprimer myLinks[loop-1]

}

imprimer "fertig"
waitinput
end

arr.aHrefsFromUrl(string _url){

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

    whileLoop 0,sizeOf(à gauche)-1 {

        tmp=explode(à gauche[loop],"HREF=")

        sélectionner sizeOf(tmp)

            caseof 0,1 : continue

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

        EndSelect

    }

    return ret

}

et cela klappt aussi pas mal, solange sich qui Angaben dedans " ou bien befinden.

mais cela peux on oui léger et ewig erweitern.

URLs sommes normalement cas-sensitive, cela Beispiel achtet puis pas.

Zwischenablage01.png	21 kB

Hochgeladen:	15.12.2008

Downloadcounter:
		Download

Frank
Abbing

URLs sommes normalement cas-sensitive, cela Beispiel achtet puis pas.

oui, tout autor aussi inutilisable.

je sagte oui, ist seulement un kleines Utility. mais pour cet Zwecke ausreichend. Dank dir pour den Test!

Ne URL eingeben peut wäre joli...

Frank
Abbing

oui, to être continued.

Kompilieren Marque Séparation

qui variante ici ist cas-sensitive:

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

whileLoop sizeOf(myLinks) {

    imprimer myLinks[loop-1]

}

imprimer "fertig"
waitinput
end

arr.aHrefsFromUrl(string _url){

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

    whileLoop 0,sizeOf(à gauche)-1 {

        tmp=explode(à gauche[loop],"HREF=")

        sélectionner sizeOf(tmp)

            caseof 0,1 : continue

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

        EndSelect

    }

    return ret

}

on übergibt simple à qui Funktion une URL, et erhält un Stringarray zurück avec den à gauche.

Frank
Abbing

Lässt sich pas starten, dein Code. XPSE meldet ne Masse faute, trotz dass je grad qui aktuelle download.inc geladen hab.
qui Rückgabelinks dans qui Editbox finde je aussi viel praktischer.

16.12.2008 ▲