ANAGRAM

Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007
- - Dernière réponse : cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008
- 2 nov. 2002 à 13:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3617-anagram

Afficher la suite 
cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008
-
salut,

J'ai téléchrgé ton prog, l'idée est très intéressante mais je ne comprends pas bien ce qu'il faut faire.
Tu aurais du ajouté un fichier d'aide.
Ecris-moi à fa029977@skynet.be pour me dire ce qu'il faut faire et j'ajouterai un fichier d'aide.
Merci et à+.
jcd91
Messages postés
7
Date d'inscription
lundi 21 janvier 2002
Statut
Membre
Dernière intervention
10 septembre 2002
1 -
L'algorithme d'anagramme est vraiment mauvais. Je l'ai donc rectifié en utilisant la récursuvité/
Private Function Anagram(Texte As String) As String
Dim Stock As String
Dim Lettre As String
Dim text As String
Dim Retour As String
Dim anag As String
Dim i, j, pas As Integer
anag = ""
If Len(Texte) > 7 Then
MsgBox "La liste des anagrammes sur une suite de plus de 7 lettres dépasse les capacités d'affichage. Seules les 7 premières seront donc prises en compte", vbCritical
Texte = Left(Texte, 7)
End If
Stock = Texte
For i = 1 To Len(Stock)
Lettre = Mid(Stock, i, 1)
text = ""
For j = 1 To Len(Stock)
If j <> i Then
text = text + Mid(Stock, j, 1)
End If
Next

If Len(text) = 2 Then
Retour = Mid(text, 1, 1) + Mid(text, 2, 1) + Mid(text, 2, 1) + Mid(text, 1, 1)
Else
Retour = Anagram(text)
End If
pas = Len(text)
j = 1
Do While j <= Len(Retour)
anag = anag + Lettre + Mid(Retour, j, pas)
j = j + pas
Loop
Next
Anagram = anag
End Function
bestmomo
Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007
-
Faudrait revoir l'algo pour générer les anagrammes ! C'est tout faux ça !!!
bestmomo
Messages postés
132
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
31 août 2007
-
L'idée est intéressante mais demande à être pursuivie avec les modifs suivantes :
- suppression des synonymes,
- classement (Sorted à TRUE est parfait pour le moment...)
- intégration d'un dictionnaire pour avoir de vrais mots (on trouve des dicos complets sur le net maintenant)
J'ai d'autres idées mais je veux pas effrayer moi...
Il faudrait corriger la faute d'orthographe sur le About, ça fait désordre, même si c'est plus à la mode...