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

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