Inverser ordre des mots dans une phrase amelioré ;)

Soyez le premier à donner votre avis sur cette source.

Vue 3 854 fois - Téléchargée 197 fois

Description

Comme son nom l'indique, ca inverse les mots dans une phrase ....

Source / Exemple :


Private Sub Command1_Click()

Text1.Text = RTrim(Text1.Text)
Text1.Text = Text1.Text & " "

Dim MotRes As String
Dim txt As String
Dim MyTab() As String
Dim MyTab2() As String
MyTab() = Split(Text1.Text, " ")

j = UBound(MyTab)

w = 0

Randomize

ReDim MyTab2(0 To 1)
For a = 0 To Len(Text1.Text) + 200

i = Int(Rnd * j)

For n = 0 To UBound(MyTab2)
 If i = MyTab2(n) Then
 MotRes = vbNullString
 GoTo er
 End If
Next n

If UBound(MyTab2) = w - 1 Then
ReDim Preserve MyTab2(0 To w + 20)
End If

MyTab2(w) = i
MotRes = MyTab(i)
txt = txt & " " & MotRes
w = w + 1
er:
Next a

txt = LTrim(txt)

Text2.Text = txt

Text1.Text = RTrim(Text1.Text)

End Sub

Conclusion :


Merci pour tes remaqrques almandric ... Maintenant, le programme marche a tous les coups et il est bcp plus rapide :]

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_jackky
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003
-
salut, felicitation pour ton code yé vraiment super et pour ceux qui disent "a quoi ca sert " ben ceux la y doivent pas programmer beaucoup ou bien jaloux de ne pas avoir réussi ce code avant toi!
felicitantion , pitier c comme le gars qui dis "quel est l'intérêt ?????" plus haut lollll faut arreter de metre des critique negative car ya plus personne qui va mettre des sources, et pour l'interet de la chose c'est tres instructif et a la fois amusant! non! penser des fois plus loin que votre bout du nez! cette source a beaucoup a vous apprendre

pour ceux qui ne voient encore aucun interet a cette source penser a la cryptogrphie

bonne journée les copain

10/10
Almandric
Messages postés
31
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
12 août 2003
-
Moi je vois qu'une seule solution, il te faut un 2ème tableau temporaire...
DeAtHCrAsH
Messages postés
2674
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
Yep .. Bon conseil ... C'est ce que je voulais faire au debut, mais je n'ai pas trouver comment faire pour retirer un element du tableau ...
C'est ce que je suis en train de chercher ...
Sinon c'est clair que ca fera gagner bcp de temps sans faire boucler inutillement ...
:]
A++
Almandric
Messages postés
31
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
12 août 2003
-
Oops, j'ai fais pleins de fautes.....
Almandric
Messages postés
31
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
12 août 2003
-
Plutôt que de faire ta boucle 'For a = 0 To Len(Text1.Text) + 200' et de tester à chaque fois si tu as déjà récuperer ce mot voila ce que je te conseil :
- Tu as une phrase de 5 mots
- 'Split' te retourne un tableau avec un index allant de 0 à 4 (ou de 1 à 5 peu importe)
- Tu fais un random compris entre 0 et 4 et tu obtiens to 1er mot.
- Jusque la pas de différence avec toi mais c'est maintenant que ca change.
- Tu reconstruit ton tableau en dégageant le mot que tu viens de tirer au sort et tu obtiens un tableau allant de 0 à 3
- Tu fais un random en modifiant le born supérieur à 3 et tu obitens ton 2 ème mot et tu es sur qu'il différent sans faire de test et sans rique de boucler des dizaines de fois pour rien.
Etc...

A+

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.