[R] Incrémantation de variable

[JIF]

Bossoir, j'aimerais savoir comment faire une incrémentation de variable

exemple :

Code : Tout sélectionner

$url = "http://1.fr"
$url = "http://2.fr"
$url = "http://3.fr"
;  ...ect
 

Arrivé a Z j'aimerai aussi que incrémentation ajoute une unité et passe par exemple :

Code : Tout sélectionner

$url = "http://11.fr"
$url = "http://12.fr"
$url = "http://13.fr"

; ...ect

Merci de me répondre.

Cordialement JIF,

[jchd]

Pourquoi pas :

Code : Tout sélectionner

Local $i, $n, $url
Local $digit = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'       ; <<-- est-ce bien ce que tu souhaites ???
Local $nbDigits = Stringlen($digit)

For $i = 0 to 2000
    $n = $i
    $url = ''
    Do
        $url = StringMid($digit, Mod($n, $nbDigits) + 1, 1) & $url
        $n /= $nbDigits
    Until $n < 1
    $url = 'htp://' & $url & '.fr'
    ConsoleWrite($url & @LF)
Next
 

[Tlem]

Super script.

Mais afin d'être un petit peut plus précis, je le modifierais comme ceci :

Code : Tout sélectionner

Local $i, $n, $url
Local $digit = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'       ; <<-- est-ce bien ce que tu souhaites ???
Local $nbDigits = Stringlen($digit)

$lDigit = 3 ; Longueur max de la variable

For $i = 0 to ($nbDigits ^ $lDigit) - 1
    $n = $i
    $url = ''
    Do
        $url = StringMid($digit, Mod($n, $nbDigits) + 1, 1) & $url
        $n /= $nbDigits
    Until $n < 1
    $url = 'htp://' & $url & '.fr'
    ConsoleWrite($url & @LF)
    ;sleep(1)
Next

[jchd]

C'est vrai qu'il vaut mieux limiter la longueur, Thierry, car d'après ce que j'ai lu par ailleurs, JIF souhaite utiliser cette base (c'est le cas de le dire) pour balayer _tous_ les sites publics d'Internet (et en indexer le contenu).

Même en se cantonnant à des noms de 12 caractères, on arrive vite à 37^12 = 6 582 952 005 840 035 281 sites, rien que dans le domaine .fr ! Avec quelques dizaines, centaines ou milliers de pages par site et quelques kilos par page, j'espère que notre ami dispose des ressources nécessaires

12 caractères maxi, car c'est la taille maxi indexable par un int64 (2^63 - 1 = 9 223 372 036 854 775 807)
37 à cause du signe _ omis ici (et il y en a peut-être d'autres).
Ne sachant pas de quoi il s'agissait, je n'ai pas codé pour avoir un nombre variable de zéros à gauche. Caramba, tout est à recommencer...

De toute façons, ce n'est plus de l'incrémantation, c'est de la crémation de variable pure et simple.

Assez ri, je replonge dans mes sources.

[JIF]

Merci de vos réponses, mais comment pourrai-je faire pour faire la même chose mais avec le nom des fichiers html car je ne peu pas vérifier si sa fonctionne bien car la nouvelle page web écrase la prétendante.

du style comme sa :

Code : Tout sélectionner

$url =  inetget("htp://" & $url & ".skyrock.com","C:\Documents and Settings\Utilistauer\Mes documents\scripte legale\scripte en beta\le projet\page\a.html")
$url =  inetget("htp://" & $url & ".skyrock.com","C:\Documents and Settings\Utilistauer\Mes documents\scripte legale\scripte en beta\le projet\page\b.html")
$url =  inetget("htp://" & $url & ".skyrock.com","C:\Documents and Settings\Utilistauer\Mes documents\scripte legale\scripte en beta\le projet\page\c.html")
...etc
 

Merci de me répondre.

Cordialement JIF,

[Tlem]

Heuuu, je ne vois vraiment pas à quoi cela va vous servir, mais bon.
Utilisez la variable générée pour nommer votre page ou pour l'enregistrer dans un dossier du nom de la variable.

[JIF]

Merci de vos reponses, mais voilà j'ai un petit souci dans le telechargemant de la page html. Voici mon code.

Code : Tout sélectionner

Local $i, $n, $url
Local $digit = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"       ; <<-- est-ce bien ce que tu souhaites ???
Local $nbDigits = Stringlen($digit)
$lDigit = 3 ; Longueur max de la variable
For $i = 0 to ($nbDigits ^ $lDigit) - 1
    $n = $i
    $url = ""
    Do
        $url = StringMid($digit, Mod($n, $nbDigits) + 1, 1) & $url
        $n /= $nbDigits
    Until $n < 1
    $url =  inetget("htp://" & $url & ".skyrock.com","C:\Documents and Settings\Utilisateur\Mes documents\scripte\scripte en beta\le projet\page\" & $url & ".html")
    ConsoleWrite($url & @LF)
Next

Le scripte telecharge infiniment, pourtant lorsque j'essay dans un scripte à par il telecharge bien la page html ce situant à http://0.skyrock.com

Code : Tout sélectionner

$url = "http://0.skyrock.com"
inetget($url,"C:\Documents and Settings\Utilisateur\Mes documents\scripte\scripte en beta\le projet\page\a6465.html")

Si je ne me trompes pas la crémentation commence avec le caractére 0 donc sa devrai fonctiooner.

Comment résoudre ce problèmme ?

Merci de me répondre.

Cordialmant JIF,

[Tlem]

Pour moi, la boucle d'incrémentation fonctionne parfaitement.
Par contre je vois que dans l'url il y à une erreur grossière ...

[JIF]

Merci de ta réponse Tlem, oui si tu parles de la faute à utilisateur, je viens de la voir aussi mais ces moi qui est volontairemant changer mon nom par utilistaurs si nom je ne vois pas l'érreur ?

Merci de me répondre.

Cordialemant JIF,

[Tlem]

Non, c'est avant ...
Vous écrivez :

Code : Tout sélectionner

$url =  inetget("htp://" & $url & ".skyrock.com","C:\Documents and Settings\Utilisateur\Mes documents\scripte\scripte en beta\le projet\page\" & $url & ".html")

Or Htp:// n'est pas une entrée correct.

[sylvanie]

étrange, car personnelement toute redirection 404 se solde par un echec inetget, et donc un fichier vide ??

Quelqu'un a constaté la même chose ?

[Tlem]

Je n'ai jamais dit que s'était ce qui bloquait. J'ai seulement fait remarqué que la boucle fonctionne chez moi mais que dans le code il y avait une erreur.

[sylvanie]

à vrai dire ma remarque n'était pas un rebondissement sur ton dernier post, mais plus sur celui de Jif, car même dans le cas où l'url n'est pas construite à la volée, je tombe en échec alors que dans son post ça à l'air de marcher.

j'ai essayé en me calant sur le set de proxy de IE, puis en direct (HttpSetProxy) mais j'ai toujours la même chose.

Comme il y a divergence de résultat, je me posais donc cette question.

Pour pouvoir finir la comparaison, en terme de version Autoit je suis sur la dernière stable, quelle est la votre JIF ?

[JIF]

Merci de vos réponses sa fonctionne !
Problème résolut.

Pour répondre à Sylvanie. J'utilise la version 3.3.0.0 de Autoit.

Cordialement JIF,

[sylvanie]

Tnant mieux, mais quelles ont été les modifications apportées depuis ? (histoire de finaliser ce sujet)

[JIF]

Voici les dernières modification apporté au niveau du codes

Code : Tout sélectionner

Local $i, $n, $url
Local $digit = "0123456789abcdefghijklmnopqrstuvwxyz-/?"       ; <<-- est-ce bien ce que tu souhaites ???
Local $nbDigits = Stringlen($digit)

$lDigit = 3 ; Longueur max de la variable

For $i = 0 to ($nbDigits ^ $lDigit) - 1
    $n = $i
    $url = ""
    Do
        $url = StringMid($digit, Mod($n, $nbDigits) + 1, 1) & $url
        $n /= $nbDigits
    Until $n < 1
    ToolTip("http://" & $url & ".skyrock.com",0,0)
    $url =  inetget("http://" & $url & ".skyrock.com","C:\Documents and Settings\Utilistaeur\Mes documents\scripte\scripte en beta\le projet\page\" & $url & ".html")
    ConsoleWrite($url & @LF)
Next

Cordialement JIF,