Faire un random dans un fichier

Signaler
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003
-
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
-
j'ai besoin de faire un random 14 fois dans un fichier

ex:
1
2
3
4
5
6
7
8
9

lpefec

5 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
et ?
utilise randomize

:clown) BasicInstinct
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
22
salut

pour faire un random dans un fichier tu fais :

DIm x as byte
open "chemin\nomfichier.extension" for output as #1
randomize
for x = 1 to 14
print #1,int((rnd * (limite_sup_intervalle - limite_inf_intervalle+1))+limite_inf_intervalle) 'pour avoir des entiers compris entre limite_inf_intervalle et limite_sup_intervalle
next 'et pas next x : la boucle est plus rapide
close #1

tu met ce code ou tu veux en remplacant limite_sup_intervalle et limite_inf_intervalle par 2 nombres

voila

ShareVB
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003

lpefec
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
16 septembre 2003

merci mais es ce que c'est possible de le faire avec des mot et non des lettre ?

merci encore
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
22
salut

tu peux facilement faire des mots genre "jgpsdhgdskghslfqj" mais pour des mots du dictionnaires alors la c pas pareil.

premier cas suite de lettres : autant de chr$(int(rnd * 26+65)) (séparés par & ) pour des "mots" en MAJ

print #1, chr$(int(rnd * 26+65)) & chr$(int(rnd * 26+65))

deuxieme cas vrais mots : tu fais un tableau avec une liste de mots
et tu fais en suite print #1,tableau(int(rnd * (ubound(tableau)-lbound(tableau)+1)+lbound(tableau)))

voila

ShareVB