Fonction SPLIT

Question

Salut !
Ki pourrai me donner un tou chtit exemple ki utilsie la fonction split :question)  pke g pas compri komment on s'en servait [;(]

merci par avance
@+
fabs  ;)

Whiterabbit83 · Answer

Public Sub LireInverse(Phrase As String)
Dim Mots, i
Dim PhraseFinale
Mots = Split(Phrase, " ") 'Sépare la chaine avec les espaces comme séparateurs
For i = 0 To UBound(Mots)  'boucle jusqu'au maximum du tableau
    PhraseFinale = Mots(i) & " " & PhraseFinale   'ajoute chaque mot au début de la chaine
Next i
MsgBox PhraseFinale 'affiche la phrase
End Sub

Cette fonction affiche une phrase à l'envers (premier mot en dernier et vice-versa)
Pour l'utiliser :
<table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code>
lireinverse LaPhraseQueTuVeux
(/codeVB]

lireinverse LaPhraseQueTuVeux (/codeVB]

Fonction SPLIT

1 réponse

Discussions similaires