Generateur de mots

Télécharger le projet
Commenter

Description

pour augmenter a + de 100 possibiltés de lettres dans le code source remplacer la variable la commande :"dim tl(100)" par "dim tl(150)" ou "dim tl(1000)" etc .. mais par par une variable cela ne fonctionneras pas une fois cette modification effectuée le programme pourra acceptée n'importe quel quantités de lettres en dessous du maximum que vous venez de fixez.

Source / Exemple : 


set fso=createobject("scripting.filesystemobject")
set file=fso.createtextfile(fso.getparentfoldername(WScript.ScriptFullname)&"\Genkey.txt")
t1=0
t2=0
compte=0
i3=0
nl=inputbox("Combien de lettres ?	(Pas plus de 101)")
nl=1*nl
dim tl(100)
i=0
t1=time
do
tl(i)=chr(97)
i=i+1
loop while i<nl
i=nl
tl2=asc(tl(i-1))-1
do
if i=nl then f=122
if i<nl then f=asc(tl(i-1))+1
do
tl2=tl2+1
if tl2<123 then compte=compte+1
increm tl,i,tl2
loop while tl2<f
if i<nl and f<123 then i=nl
if asc(tl(i-1))=123 then 
i2=i
do
tl(i-1)=chr(97)
i2=i2+1
loop while i2<=nl
i=i-1
end if
if i-1>-1 then tl2=asc(tl(i-1))
loop while i>0
t2=time
msgbox "Lorsque il y a "&nl&" lettres il y a "&compte&" possibilitées "&chr(13)&chr(13)&"Elles ont étés calculés entre ces labs de temps:"&chr(13)&chr(13)&t1&chr(13)&t2
sub ecriture
r=0
elem=""
for each e in tl
if e="{" then r=1
elem=elem+e
next
if r=0 then file.writeline elem
end sub

sub increm(tab,nel,cc)
tab(nel-1)=chr(cc)
ecriture
end sub

Conclusion :


Il s'agitt d'un code Programmation VBScript qui crée un fichier Genkey.txt où il écrit toutes les possibilités et affaiche à la fin le total

helmut01@caramail.com
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Helmut)