Inverser ordre des mots dans une phrase amelioré ;)

Télécharger le projet
Commenter

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 :]
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 (DeAtHCrAsH)