extraire mots dans une string

Version imprimable

Bonjour,

j'ai une chaine de caractères avec des mots qui sont séparés par un séparateur (SEP).

j'ai créer une fonction qui permet d'extraire le premier mot de la chaine mais je n'arrive pas a faire une fonction récursive qui extrait tout les mots de la chaine pour ensuite les afficher dans un texte box ou un tableau

Voici ma fonction:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function extract (ByVal data As String) As String Dim mot as string Dim len as Integer = data.IndexOf(SEP) If len < 0 then len = 0 end if mot = data.Substring(0, len) return mot End function

Tu peux utiliser la fonction split:
Code:

1 2 Dim MonNouveauMot as String() MonNouveauMot=MonAncienMot.Split(SEP)

J'ai retapé la fonction mais le problème c'est qu'il ne m'affiche rien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function extract (ByVal data As String) As String
 
Dim mot as string
Dim moSuivant as String()
Dim len as Integer = data.IndexOf(SEP)
 
If len < 0 then
len = 0
end if
 
mot = data.Substring(0, len)
motSuivant = mot.Split(SEP)
 
return mot
End function

Code:

1
2
3
4
5
6
7
8
 
 Dim Mots As String = Split(MaChaine, " ", , CompareMethod.Text)
 Dim QueryMot(10)
 For Each Mot In Mots
     i = i + 1
     QueryMot(i) = Mot
     msgbox QueryMot(i) 
 Next

23/04/2010, 10h05
scarfunk

je comprends pas trop ton principe :oops:
Désolé mais je débute
23/04/2010, 11h01
sebnantes
Hello ^^

Je t'explique, c'est une notion légèrement complexe.

Une chaîne de caractères peut être assimilée à un tableau de chaîne de caractères dans certains cas. Cela permet justement de hacher une grosse chaîne et de récupérer certaines données.

Code:

Dim Mots As String = Split(MaChaine, " ", , CompareMethod.Text)

"Mots" ici représente un tableau de String. Cela a été obtenu en utilisant Split sur "MaChaine". Dans Split, tu as plusieurs paramètres d'appel :

-Le 1er la chaîne que tu veux traiter
-Le 2ème le caractère qui permet d'indiquer à quel moment tu passes à un autre string
-Le 3ème, ici il est vide, je ne sais plus ce que c'est
-Le 4ème correspond à la méthode que tu souhaites utilisée pour comparer -> ici méthode textuelle

Donc avec le split, "Mots" contient n String. Pour ce que tu souhaites faire ensuite :
Code:

1 2 3 4 5 For Each Mot In Mots i = i + 1 QueryMot(i) = Mot msgbox QueryMot(i) Next
Tu parcoures "Mots". Pour chaque mot contenu, tu incrémentes i (qui te sers d'index dans le tableau QueryMot), tu l'insères dans QueryMot à l'index i, et enfin tu affiches à l'aide d'un messageBox le contenu de la case où tu viens d'insérer la donnée. Voilou, j'espère que c'est un peu plus claire ^^
23/04/2010, 11h23
scarfunk
A vrai dire? :?...

Je t'explique le contexte.J'ai un socket client.Lorsque celui ci fait une demande de données (par exemple des paramètres) il envoi un message au socket serveur qui lui traite la demande.
Lorsqu'il reçoit la demande celui ci lui envoi la chaine de caractère (dont les mot à l'intérieur sont séparés par SEP (un séparateur)) qui est contenu dans "paramètre".

C'est ensuite au client de traiter la chaîne brut et de traiter les données reçues pour les afficher ensuite sous forme de tableau dans ma fenêtre...

si je fais ceci:
Code:

1 2 3 4 5 6 7 8 sub MiseEnForme( byval chaine as string) Dim Tab() as string Tab = chaine.Split(SEP) end sub
23/04/2010, 11h45
thierry007

merci à Sebnantes pour la traduction en français
Je n'aurais pas fait mieux :ccool:
23/04/2010, 13h47
sebnantes
Essaie plutôt ce type de code

Code:

Dim Tab as String = Split(chaine,SEP, , CompareMethod.Text)

Dans Tab, tu auras les différents string qui compose ton message. Ensuite, si tu peux afficher les éléments contenus dans Tab, tu peux faire ce qui suit :
Code:

1 2 3 For each Element in Tab MsgBox(Element) Next
Il t'affichera chaque String contenu dans Tab. Et qu'est ce que tu n'as pas compris dans ce que je t'ai expliqué ?

Oui et je t'en remerci :D.
Seulement lorsque je tape mon code il y a une erreur au niveau du split de commande
Code:

1 2 3 4 5 6 7 8 Sub MiseEnForme(byval data as string) Dim Tab as String = Split (data,SEP,,CompareMethod.text) for each Element in Tab TextBox1.text += Element next

23/04/2010, 14h13
scarfunk

C'est bon j'ai trouvé l'erreur.Mais c'est toujours pareil je n'arrive pas a afficher les autre mot.Il ne récupère que le premier mot

Celui ci fonctionne :lol:

Citation:

Envoyé par thierry007

Code:

1
2
3
4
5
6
7
8
9
 
Sub MiseEnForme(byval data as string)
 Dim Mots As String = Split(data, " ", , CompareMethod.Text)
 Dim QueryMot(10)
 For Each Mot In Mots
     i = i + 1
     QueryMot(i) = Mot
     msgbox QueryMot(i) 
 Next

lol j'obtient exactement le mm résultat.
Je crois savoir d'où vient le problème.J'ai une fonction recevoir qui sert a récupéré les données envoyé par le serveur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function recevoir() As String
 
        Dim returnData As String = Nothing
        Dim inStream(10024) As Byte
        Dim serverStream As NetworkStream
 
        If clientSocket.Connected Then
 
            Try
                serverStream = clientSocket.GetStream()
 
                'Lecture des données dans le flux
            serverStream.Read(inStream,0,CInt(clientSocket.ReceiveBufferSize))
                returnData = System.Text.Encoding.ASCII.GetString(inStream)
 
                Dim len As Integer = returnData.IndexOf("$")
 
                If len < 0 Then
                    len = 0
                End If
 
                returnData = returnData.Substring(0, len)
            Catch ex As Exception
                msg(Donnees.ERR_REC)
            End Try
        End If
 
        Return returnData
 
    End Function

Je ne devrais pas la modifier?

23/04/2010, 15h07
thierry007

Evite d'utiliser 'data' :calim2: