Discussion :

[scarfunk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mactwist69]

Tu peux utiliser la fonction split:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scarfunk]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thierry007]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scarfunk]

je comprends pas trop ton principe
Désolé mais je débute

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sub MiseEnForme( byval chaine as string)
 
    Dim Tab() as string
 
    Tab = chaine.Split(SEP)
 
end sub

[thierry007]

merci à Sebnantes pour la traduction en français
Je n'aurais pas fait mieux

[sebnantes]

Essaie plutôt ce type de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é ?

[scarfunk]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[thierry007]

Celui ci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scarfunk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[thierry007]

Evite d'utiliser 'data'