Page 1 sur 1

[..] Script php -> Script autoit

Posté : lun. 05 oct. 2009 10:54
par nobre
Bonjour,
j'ai trouvé un petit script php qui me convient très bien. Par contre, il me le faudrait en script autoit. Débutant en programmation, si quelqu'un pourrait m'aider à le transformer en script Autoit

Code : Tout sélectionner

<?php
function gen_char()
{
  $availables = array ("BGHIULP");
  $length = "0";
  $genchar= "";
  for($i = 0; $i <= $length; $i++)
    {
      $available = $availables[rand(0, count($availables)-1)];
      $genchar= $available{rand(0,strlen($available)-1)};
    }
  return $genchar;
}
$genchar = gen_char()
echo "Your random char is: $genchar";
?> 
j'ai essayé ceci mais sans résultat :

Code : Tout sélectionner

func gen_char()
  $availables = array ("BGHIULP")
  $length = "0"
  $genchar= ""
  for($i = 0; $i <= $length; $i++)
      $available = $availables[rand(0, count($availables)-1)]
      $genchar= $available{rand(0,strlen($available)-1)}
 MsgBox(80,"Your random char is:",$genchar)
EndFunc
 
Avec mes remerciements pour toute l'aide que vous pourrez m'apporter

Re: Script php -> Script autoit

Posté : lun. 05 oct. 2009 11:00
par Iste
Entre l'email et le message privé, vous devriez avoir le lien des règles de présentation des messages, qu'il serait bon de lire..

Sinon, a part la fonction array() qui n'existe pas en autoit, tout me semble bon. Si j'ai bien compris, essayer de la remplacer par un strigStringSplit("BGHIULP",'')split

Re: [..] Script php -> Script autoit

Posté : mar. 06 oct. 2009 17:04
par nobre
Merci d'avoir répondu,
mais comme je vous disais je ne comprends pas grand chose en programmation, encore moins avec Autoit.
Donc je me permets de faire un petit up
merci

Re: [..] Script php -> Script autoit

Posté : mar. 06 oct. 2009 17:46
par orax
Essayez ceci :

Code : Tout sélectionner

gen_char()

Func gen_char()
    Local Const $availables = "BGHIULP"
    Local Const $length = "0"
    Local Const $a_availables = StringSplit($availables, "")
    Local Const $stringLen = StringLen($availables)
    Local $genchar = ""

    For $i = 0 To $i <= $length
        $genchar = $a_availables[Random(1, $stringLen, 1)]
    Next

    MsgBox(80, "Your random char is:", $genchar)
EndFunc   ;==>gen_char