| |
| |
|
| - page 1 - |
|
Frank
Abbing | | un kleines Utility, um à gauche aus HTML-Codes trop extrahieren. |
|
| |
| |
| |
|
|
| |
| |
| - page 2 - |
|
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? |
|
| |
| |
| |
|
|
 | 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
}
mais cela peux on oui léger et ewig erweitern.
URLs sommes normalement cas-sensitive, cela Beispiel achtet puis pas. |
|
| |
| |
| |
|
|
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.  |
|
| |
| |
| |
|
|
| 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. |
|
| |
| |
| |
|
| |
| |
| - page 3 - |
|
|
| Hm gug la fois fonctionne sans Probleme par:
XProfan 11.0.1.7ze Precompiler & SE [XPSE] Copyright (C) 2004-2008 XProfan.Com, built DE. Dossier : c:dev1.xprf (121) Stats : Si[15], Proc[7], Klassen[0], Macros[0] Runtime : "prfrun32.exe", trouvé Kompiler : "profcomp.exe", trouvé Fertig (47ms), beliebige bouton zum finissons ou bien Kompileroption {$Q}uiet um sans demande trop finissons. [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:>  |
|
| |
| |
| |
|
|
Frank
Abbing | | Guck la fois, fonctionne gar pas par, pourquoi De toute façon. |
|
| |
| |
| |
|
|
| Drück la fois W ensuite ist qui Report wenigstens komplett - so sieht on oui garnichts. (aussi aucun xpse Versionsnummer)
tu as mais bestimmt seulement une alten XPSE.
peux oui aussi Profan²5.0 zuschalten et regarder obs klappt. |
|
| |
| |
| |
|
|
Frank
Abbing | | la hâte droite, pour Update ging es. mais dadurch entstanden autre Probleme, qui je dans einem neuen Fil näher erklär(t)e. |
|
| |
| |
| |
|
|
Frank
Abbing | | Neue Version (1.02) hochgeladen. Seiten peut geladen et kopiert volonté. |
|
| |
| |
| |
|
(891)
Deutsch
English
Français
Español
Italia
