HELP pb avec Split

Question

Je voudrai mémoriser chaque mot entre un espace (virgule considéré comme un espace) dans un tableau de String

En C#, ça donne :
string[] Worlds = this.richTextBox1.Text.Split(new Char [] {' ' :' ;'});

exemple : qui est Beethoven ?
Worlds[0] corespond à "qui"
Worlds[1] corespond à "est"
Worlds[2] corespond à "Beethoven"
Worlds[3] corespond à "?"

En Vb, ça donne quoi :

' samble fonctionner
Dim Worlds() As String = Split(RichTextBox1.Text, " ") 

' ne fonctionne pas
Dim Worlds() As String = Split(RichTextBox1.Text, " ",";",";")

. considéré comme un espace
; considéré comme un espace
: considéré comme un espace
( considéré comme un espace
etc..

Merci bcp

K@zuya · Answer

une telle fonction n'existe pas en vb, il faut proceder autrement

K@zuya    8-)

K@zuya · Answer

euh, en passant, je propose ceci :p


Private Function MySplit(Chaine As String, Delimiter() As String) As String()
If UBound(Delimiter) > 0 Then
    For i = 1 To UBound(Delimiter)
        Chaine = Replace(Chaine, Delimiter(i), Delimiter(0))
    Next
End If
MySplit = Split(Chaine, Delimiter(0))
End Function

K@zuya    8-)

cs_phil23 · Answer

Selon ton exemple "Dim Worlds() As String = Split(RichTextBox1.Text, " ") " je pense que tu as VB.net et non pas VB6. 

Alors ceci fonctionne:

Dim sChaine As String = "qui est.vraiment;Beethoven:?"
Dim Separateur() As Char = {" ", ".", ";", ":", "("}

Dim Worlds() As String = sChaine.Split(Separateur)

cs_JCpp · Answer

Merci Merci bcp phil23
ça fonctionne, et j'ai bien vb.net

HELP pb avec Split

4 réponses

Discussions similaires