ASPIRATEUR DE GALERIES INTERNET
RCA ArKanis
Messages postés
1287
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
21 février 2009
-
12 août 2006 à 13:37
MJ92 Messages postés 185 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 14 décembre 2014 - 4 sept. 2006 à 23:52
MJ92 Messages postés 185 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 14 décembre 2014 - 4 sept. 2006 à 23:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39066-aspirateur-de-galeries-internet
https://codes-sources.commentcamarche.net/source/39066-aspirateur-de-galeries-internet
4 sept. 2006 à 23:52
En tout cas j'kiffe ta source Pada.
C'est super bien réaliser et c'est pas de mon niveau pour dire ce qui ne va pas dans ta source xD.
Bravo !
18 août 2006 à 22:17
bcopy -z &b 1 &a $calc($ifmatch + 4) -1
bunset &a
bcopy &a 1 &b 1 -1
}
if $bvar(&a,0) {
bwrite $h(img_path) -1 -1 &a
}
peut-aussi être :
if $bfind(&a, 1,$str($crlf,2)) {
bcopy &b 1 &a $calc($ifmatch + 4) -1
if ($bvar(&b,0) bwrite $h(img_path) -1 -1 &b
}
elseif ($bvar(&a,0)) bwrite $h(img_path) -1 -1 &a
J'ai testé vite fait, ça marche sur mes essais
C'est assez pratique pour télécharger des fichiers textes aussi, le seul problème, c'est que $str($crlf,2) peut être retrouvé plusieurs fois. Pour éviter ça, j'ai fait :
if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
bcopy &b 1 &a $calc($ifmatch +4) -1
if ($bvar(&b,0)) bwrite $h(img_path) -1 -1 &b
sockmark $sockname 1
}
elseif ($bvar(&a,0)) bwrite $h(img_path) -1 -1 &a
ça peut être pratique, non ? :)
18 août 2006 à 21:34
#
# alias dl_treatqueue {
# var %c = $h(gal_C)
# var %url = $h(queue_ $+ %c)
deviens
alias dl_treatqueue {
var %c $h(gal_C) , %url $h(queue_ $+ %c)
14 août 2006 à 17:29
Et pour le /* */ oui je savais.. ca date de bien avant il me semble même ;)
Merci en tout cas ^^
14 août 2006 à 16:43
et savais tu que depuis mirc 6.2 (oubien 6.17 je c plus ) on peut faire /* pour les commentaires
sur plusieurs lignes */
(jai trouvé ca y'a pas longtemp )
sinon le code est plutot sympa bon boulo :)
12 août 2006 à 13:54
Si un spécialiste des binvars passe par la... En enlevant les tests pour plus de lisibilité, j'ai fait ca pour virer les headers :
if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
bcopy -z &b 1 &a $calc($ifmatch + 4) -1
bunset &a
bcopy &a 1 &b 1 -1
}
C'est hacky un peu de virer &a pour la redéfinir, j'avais fait ceci à la base :
if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
bcopy -z &a 1 &a $calc($ifmatch + 4) -1
}
Et, avec ou sans -z, le résultat paraissait ok en affichage ASCII mais me fournissait une image pourrie (regardable mais avec qq défauts). Une idée de la raison ? J'ai supposé que la var était mal écrasée, ou que sa longueur n'était pas bonne qu'un byte était rajouté à la fin ou je ne sais quoi... Merci d'avance :)
12 août 2006 à 13:44
Pour le else, c'est une "bonne pratique" que j'applique en php, j'évite d'ommettre les accollades sinon quand on reprend le code on oublie la portée du else..
Pour les vars je trouve ca plus lisible :D mais en effet c'est une erreur dûe à une modif de dernière minute
Ouaip pour les espaces dans les path, j'regarderai à l'occasion (j'ai codé ca en 2h à minuit passé, t'imagines l'état du cerveau ^^)
J'évite le $qt j'aime bien que mes codes marchent partout.. mais j'updaterai ^^
Merci pour l'incohérence j'avais pas vu, j'vais modif de ce pas ;))
12 août 2006 à 13:37
J'y ferais quelques modifications :
else {
var %img = $3
}
> else var %img $3
var %c = $h(gal_C)
var %url = $h(queue_ $+ %c)
var %c ..., %url ...
à mon avis, ce sont toutes deux des erreurs d'attention (tu as peut-être supprimé un commentaire entre les lignes)
Ton alias dl_img est bien imaginé :)
j'avais du mal à enlever les headers, j'sais pas pourquoi, des fois ma variable était vide.
; - pas testé avec des espaces dans le path
A mon avis ça ne marche pas avec espaces, surtout que :
h gal_path $iif($right($$2,1) !isin \/,$2 $+ /,$2)
Avec les espaces, ça serait $2-
Ensuite, tu devrais juste faire $qt($h(img_path)) non ?
Petite incohérence :
; /dl_img_one <nom_sortie>
;--------------------------------
alias dl_img {
Sinon encore bravo, c'est du beau travail