Soyez le premier à donner votre avis sur cette source.
Vue 57 070 fois - Téléchargée 1 347 fois
Option Base 1 Private Sub AnnaGramme(mot As String, ByRef tablo() As String) Dim longueur As Byte Dim i As Byte Dim l As Double Dim k As Byte Dim j As Double Dim motTab() As String * 1 Dim annaTab() As String Dim tempmot As String Dim temptab() As String Dim lenTab As Double Dim pos As Double Dim Find As Boolean longueur = Len(mot) If longueur = 1 Then ReDim tablo(1) tablo(1) = mot Exit Sub End If ReDim motTab(longueur) For i = 1 To longueur motTab(i) = Mid(mot, i, 1) Next i lenTab = Fac(longueur) ReDim annaTab(lenTab) For i = 1 To longueur tempmot = vbNullString Find = False For k = 1 To longueur If Find Then tempmot = tempmot & motTab(k) Else If motTab(k) = motTab(i) Then Find = True Else tempmot = tempmot & motTab(k) End If End If Next k If Len(tempmot) = 1 Then ReDim temptab(1) temptab(1) = tempmot Else Call AnnaGramme(tempmot, temptab()) End If For j = 1 To lenTab / longueur For l = 1 To UBound(temptab()) annaTab(l + pos) = motTab(i) & temptab(l) Next l DoEvents Next j pos = pos + lenTab / longueur Next i tablo() = annaTab() End Sub Private Function Fac(Number As Byte) As Double Dim i As Byte Dim a As Double a = 1 For i = 1 To Number a = a * i Next i Fac = a End Function
19 juin 2010 à 12:57
En effet je souhaite editer une liste mots issu d'une combinaisont de lettres et choisir dans cette derniére celui qui me plais.
Cependant je ne sais comment utiliser ce logiciel!
18 juin 2010 à 16:30
ce programme ne permet pas de choisir : il renvoit tous les mots, même ceux qui "n'existent" pas dans le langage... je pense qu'il existe des logiciels gratuits et mieux conçus qui répondent mieux à tes besoins
18 juin 2010 à 15:55
je souhaiterai utilisé ce code source pour en sortir une liste de mots existant ou n'existant pas ce qui semble pouvoir faire cependant aprés avoir télécharger ce dernier je ne sais que faire des fichiers obtenus et comment "lancer" celui-ci?
merci par avance d'une aide qui serai bienvenu.
1 févr. 2007 à 15:55
14 nov. 2004 à 16:45
c pas mal continue ton tonton de jacou
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.