Inverser ordre des mots dans une phrase... c'est bien marrant :]

Télécharger le projet
Commenter

Description

Euuuuuuuuuuuuuuuuuuhhhhhhhhh..... je suis obligé de dire pourquoi j'ai fais ce code ???
Vu que je savais pas trop quoi faire de ma soirée, j'ai codé ce ptit prog pour m'amuser...
En tous cas ce truc me fait bien tripper ... Il se sort de ces phrase des fois lol

Allez amusez vous bien les ptits loups....
Bonne prog a tous :]
A++

DeAtH_-_CrAsH :]

Source / Exemple : 


Private Sub Command1_Click()
DoEvents
Text1.Text = RTrim(Text1.Text)
Text1.Text = Text1.Text & " "
Dim MotRes As String
Dim txt As String
Dim MyTab1() As String
Dim MyTab() As String
MyTab() = Split(Text1.Text, " ")
j = UBound(MyTab)
txt = " "

Randomize

For a = 0 To Len(Text1.Text) + 200
MyTab1() = Split(txt, " ")

i = Int(Rnd * j)
If i <= UBound(MyTab) Then

For k = 0 To UBound(MyTab1)
 If MyTab1(k) = MyTab(i) Then
 MotRes = vbNullString
 GoTo er
 Else
 MotRes = MyTab(i)
 End If
Next k

er:
txt = txt & " " & MotRes
End If
Next a

For z = 0 To 5
txt = Replace(txt, "  ", " ")
Next z

txt = LTrim(txt)
txt = RTrim(txt)

Text2.Text = txt

Text1.Text = RTrim(Text1.Text)

End Sub

Conclusion :


J'aime bien remplir toutes les cases lol ...
Puis sinon laisser un commentaire au passage ca fait toujours plaisirs ;)
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)