Générateur de mots aléatoires

Questions sur de la programmation avancée avec WinTask
Berez
Posts: 1
Joined: 07 Mar 2016, 14:38

Générateur de mots aléatoires

Postby Berez » 07 Mar 2016, 14:45

Bonjour,
Je voudrais que mon script prenne une chaîne de caractères de manière aléatoire dans une liste et ensuite j'utilise cette chaîne dans une instruction.
Une liste de style :
"chat", "chien", "maison", "toit"

Y a-t-il une façon simple dans WinTask pour réaliser cela ?

Support
Posts: 55
Joined: 11 Feb 2016, 09:26

Re: Générateur de mots aléatoires

Postby Support » 08 Mar 2016, 10:06

Bonjour,
Le plus simple est de mettre les différentes chaînes dans un fichier Excel, puis d'utiliser l'instruction Random pour piocher un élément dans une des cellules. Voici le code :
Dim mot$(100)
ReadExcel("mots.xlsx","A1:A100",mot$())
a=Random(100)
msgbox(mot$(a))

Un code plus complexe où le script génère des chaînes aléatoires :

Code: Select all

'renvoie un entier entre 0 et 25
Function random_car$()
local ret, car$, car

ret=random(26)
'asc("A")=65
car=65+ret
car$=chr$(car)
random_car$=car$
EndFunction
'----------------------------
Function random_string$(lg)
local i, string$
repeat
   string$=string$+random_car$()
   i=i+1
until i = lg
random_string$=string$
EndFunction
'----------------------------
File_result$="random_string.txt"
create(File_result$)
i=0
repeat
   'appel pour obtenir une chaîne de 10 caractères
   a$=random_string$(10)
   write(File_result$, a$, crlf)
   i=i+1
until i = 200


Cordialement,
Support WinTask


Return to “Scripts complexes avec WinTask”

Who is online

Users browsing this forum: No registered users and 1 guest