combinaison permutation

combinaison permutation - VB/VBA/VBS - Programmation

Marsh Posté le 01-02-2007 à 11:43:57    

Bonjour,
Je suis newbie total en programmation et je poste ici car j'ai besoin d'aide et de conseils.
Je souhaite faire un programme qui liste des combinaisons et permutations de lettres.
Ex: quatre noms
 
Durand - Dupont - Martin - Laurent
 
Je veux lister  toutes les combinaisons et permutations à quatre lettres possibles en tirant une lettre de chaque nom.
 
DDML
LMDD
DLMD
AOAA
....
 
La seule chose qui est importante, c'est de récuperer la liste.
En quel language dois je programmer ça?  
VB est il un bon choix? Sinon que me conseillez vous?
Sinon que me conseillez vous?
J'ai fait des tentatives en VB mais jusque là sans succès.
Merci
 
 
 

Reply

Marsh Posté le 01-02-2007 à 11:43:57   

Reply

Marsh Posté le 01-02-2007 à 15:18:19    

Par exemple en VBS :

' Produit un fichier avec les combinaisons des lettres de 4 mots
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
mot1 = "Durand"
mot2 = "Dupuy"
mot3 = "Martin"
mot4 = "Laurent"
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f_out = fso.OpenTextFile("mix4.txt", ForWriting, true)
 
   For i = 1 To Len(mot1)
      c1 = Mid(mot1, i, 1)
      For j = 1 To Len(mot2)
         c2 = Mid(mot2, j, 1)
         For k = 1 To Len(mot3)
            c3 = Mid(mot3, k, 1)
            For l = 1 To Len(mot4)
               c4 = Mid(mot4, l, 1)
               f_out.WriteLine c1 & c2 & c3 & c4
            Next
         Next
      Next
   Next
 
f_out.Close

Reply

Marsh Posté le 02-02-2007 à 09:32:23    

merci beaucoup, je regarde ça de suite!

Reply

Marsh Posté le 02-02-2007 à 09:40:56    

OH c'est parfait merci beaucoup!!!!!
Ca marche impeccable!!
Bravo!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed