Problème avec Redim Preserve

Question

Salut! Je suis débutant en VB et j'ai quelques petits problèmes avec la fonction Redim Preserve. Pour que ce soit plus clair je vais vous expliquer le but de ce programme et les parties déjà réalisées. Il s'agit en fait de se connecter à un serveur et à récupérer une fois connecté les données qu'il envoit. Tous les messages envoyés par le serveur passe par la partie du code en vert et sont stockés dans une variable appellée chaineDonnées. Ils commencent tous par trois lettres représentant une commande (cnx, dnx, trj, tjp) et le reste de la chaine est composé de termes séparés pas des points virgules. Le premier traitement consiste à récupérer les trois premiers caractères de la chaine et à les stocker dans la chaine commande qui servira à distinguer les différents types de traitement dans la fonction Traitementmessage (dernière fonction )du code. Le deuxième traitement consiste à séparer la partie restante du message suivant les points virgules grâce à la fonction traitement séparateur. Mon problème se situe dans la fonction Traitementmessage : exemple: 1) je me connecte 2) le serveur m'envoit le message suivant : "tjptrajet1;20;2;1,2,3;11,12,13" qui correspond à tjp : commande annoncant le trajet prévu (d'un robot) trajet1 : nom du trajet 20 : durée du trajet 2 : nb de points dans le trajet 1,2,3 : coordonnées X,Y,Z du premier point 11,12,13 : coordonnées X,Y,Z du second point 3) je découpe le message tjp est mis dans la variable "commande" le reste du message est traité grace à la fonction traitement séparateur et le résultat est stocké dans un tableau mots() on a donc 5 lignes dans le tableau mots à cette étape 4) je traite le message grâce à la fonction Traitementmessage qui récupère les couples de coordonnées X,Y,Z le nom du trajet, la durée et stocke ces informations sous la forme d'un type dans le tableau tjp. Mon tableau tjp() a donc à cette étape deux lignes (puisque le premier message contenait deux couples de points). Mon problème est qu'en cas d'un nouveau message tjp de la part du serveur, le programme redimensionne correctement le tableau en fonction du nb de points nouveaux mais efface les données précédentes du tableau et ce malgré la fonction Redim Preserve. Je me rends compte que mon message est particulièrement long et je remercie par avance les courageux qui voudront bien me répondre. Si vous avez besoin d'autres infos n'hésitez pas à me le demander.

Option Explicit Option Base 1

'Définition du type Private Type coord_trj nomtrj As String num As Integer x As Double y As Double z As Double End Type Private Type coord_tjp nomtjp As String num As Integer duree As Integer x As Double y As Double z As Double End Type Private Type info_obs duree As Integer x As Double y As Double z As Double forme As Integer taillex As Double tailley As Double taillez As Double End Type

Public nblintjp As Integer Public nblinobs As Integer

Private Sub envoyer(donnees As String) ' On renseigne la socket sur les infos de l'ordinateur destinataire sckReseau.RemoteHost = txtIpServer.Text sckReseau.RemotePort = txtPortCom.Text ' Envoyer les données sckReseau.SendData donnees ' Ecrire dans la console txtDonneesEchangees.Text = txtDonneesEchangees.Text & _ "Envoyées : " & donnees & vbCrLf End Sub

Private Sub Cmdconnexion_Click() nblintjp = 0 nblinobs = 0 ' Définition de la chaine de caractères du message de connexion Dim connection As String ' Gestion de l'événement Click sur le bouton "Envoyer" ' Vérification de la zone de texte IP If txtIpServer.Text = "" Then MsgBox "Indiquez une adresse IP" Exit Sub End If ' Vérification de la zone de texte Port If txtPortCom.Text = "" Then MsgBox "Indiquez un port de communication" Exit Sub End If ' Vérification de la zone de texte de l'identifiant If txtIdentifiant.Text = "" Then MsgBox "Indiquez votre identifiant" Exit Sub End If connection = "cnx" & txtIdentifiant.Text & ";" & sckReseau.LocalIP & ";" & sckReseau.LocalPort Call envoyer(connection) End Sub

Private Sub Cmddeconnexion_Click() ' Définition de la chaine de caractères du message de déconnexion Dim deconnection As String deconnection = "dnx" & sckReseau.LocalIP statut.Caption = "déconnecté" statut.ForeColor = vbRed Call envoyer(deconnection) End Sub

Private Sub cmdQuitter_Click() Call Cmddeconnexion_Click ' Quitter le programme End End Sub

Private Sub Form_Load() ' Cette procédure est exécutée au démarrage de l'application ' On indique à l'ordinateur que ce programme écoutera sur ce port de communication sckReseau.Bind CInt(sckReseau.LocalPort) End Sub

Private Sub sckReseau_DataArrival(ByVal bytesTotal As Long) ' Gestion de l'événement DataArrival sur la socket Dim chaineDonnees As String ' On ne tient pas compte des messages parasites qui seraient reçus If (bytesTotal < 3) Then Exit Sub End If ' On met dans la variable chaîne de caractéres les données reçues par la socket sckReseau.GetData chaineDonnees ' Ecrire dans la console txtDonneesEchangees.Text = txtDonneesEchangees.Text & _ "Reçues : " & chaineDonnees & vbCrLf 'premier traitement correspondant à l'extraction des trois premiers caractères 'et à leur enregistrement dans une variable string appelée type Dim commande As String commande = Mid(chaineDonnees, 1, 3) chaineDonnees = Mid(chaineDonnees, 4, Len(chaineDonnees) - 3) 'second traitement txtDonneesTraitees.Clear Dim mots() As String Dim i As Integer Call traitementSeparateur(chaineDonnees, mots, ";") For i = 1 To UBound(mots) txtDonneesTraitees.AddItem mots(i) Next Call Traitementmessage(commande, mots()) End Sub

Function nombreOccurrences(texte As String, motif As String) As Integer ' Retourne le nombre d'occurrences de la chaine contenue dans motif, ' à l'intérieur de la chaine contenue dans texte Dim nbOccurrences As Integer Dim pos As Integer nbOccurrences = 0 pos = InStr(texte, motif) While (pos > 0) nbOccurrences = nbOccurrences + 1 pos = InStr(pos + Len(motif), texte, motif) Wend nombreOccurrences = nbOccurrences End Function

Function traitementSeparateur(texte As String, ByRef mots() As String, motif As String) As Integer ' Traitement de séparation des mots contenus dans texte. Le séparateur est motif ' Retourne le nombre de mots trouvés. ' Le tableau passé en paramètre Dim nbOccurrences As Integer Dim nombreMots As Integer Dim posSeparateur As Integer Dim debut As Integer ' Enlever, s'il y en a un, le motif en début de texte If Left(texte, 1) = motif Then texte = Right(texte, Len(texte) - 1) End If ' Ajouter, s'il n'y en a pas, un motif afin de faciliter l'algorithme de traitement If Right(texte, 1) <> motif Then texte = texte & motif End If ' Estimer le nombre de mots en calculant le nombre de séparateur nbOccurrences = nombreOccurrences(texte, motif) ' Redimensionner le tableau ReDim mots(nbOccurrences) ' Récupération des mots, au fur et à mesure du parcours de la chaine ' et de la détermination des différentes positions successives du séparateur nombreMots = 0 debut = 1 posSeparateur = InStr(debut, texte, motif) While (posSeparateur > 0) nombreMots = nombreMots + 1 mots(nombreMots) = Mid(texte, debut, posSeparateur - debut) debut = posSeparateur + 1 posSeparateur = InStr(debut, texte, motif) Wend ' Retourne le nombre de mots trouvés traitementSeparateur = nombreMots End Function

Function Traitementmessage(commande As String, mots() As String) 'analyse du message selon les cas de messages reçus Select Case commande Case "cnx" ' 1 :connecté 2: problème If mots(1) = 1 Then statut.Caption = "connecté" statut.ForeColor = vbGreen ElseIf mots(1) = 2 Then MsgBox "problème : déjà connecté" End If Case "dnx" MsgBox "Problème : " & mots(1) statut.Caption = "déconnecté" statut.ForeColor = vbRed Case "tjp" Dim j As Integer Dim numtjp As Integer Dim tab_traittjp() As String Dim tjp() As coord_tjp 'comment faire pour que le tableau ne soit pas effacé lors du traitement du deuxième messsage ? sachant que je n'arrive pas à le déclarer en Public numtjp = 1 For j = 4 To 3 + mots(3) Call traitementSeparateur(mots(j), tab_traittjp, ",") ReDim Preserve tjp(mots(3) + nblintjp)'le redim marche à l'intérieur de la boucle tjp(numtjp + nblintjp).nomtjp = mots(1) tjp(numtjp + nblintjp).num = numtjp tjp(numtjp + nblintjp).duree = mots(2) tjp(numtjp + nblintjp).x = Val(tab_traittjp(1)) tjp(numtjp + nblintjp).y = Val(tab_traittjp(2)) tjp(numtjp + nblintjp).z = Val(tab_traittjp(3)) numtjp = numtjp + 1 Next nblintjp = nblintjp + mots(3) 'problème de redimensionnement End Select End Function

cs_Jack · Answer

Salut
En fait, tout &#231;a pour dire que tu n'arrives pas &#224; d&#233;clarer ton tableau en Public.
Au moins, ta question est compl&#232;te (et bien orthographi&#233;e, bravo)

Pour d&#233;clarer des variables qui soient communes &#224; tout le projet, il suffit d'ajouter un Module et de d&#233;clarer (dans la partie D&#233;claration) ta (tes) variable(s) en Public.
Comme ton tableau est de type personnel, il faudra que tu d&#233;places aussi la d&#233;finition de ton (tes) Type(s) et les rendre Public aussi.

Autre chose : Quand tu as une chaine et que tu veux s&#233;parer chaque donn&#233;e, ne te complique pas la vie : utilise Split :
Dim Tablo() As String
Tablo = Split(Donn&#233;es, ";")  ' o&#249; ; est le s&#233;parateur
Tu r&#233;cup&#232;reras ainsi chaque donn&#233;e dans Tablo(0), Tablo(1) ... jusqu'&#224; Tablo(x) o&#249; x = UBound(Tablo)

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Gobillot · Answer

bon j'ai pas tout lu mais vu que tu fais un tableau redifini &#224; chaque fois dans ta fonction il est normal qu'il soit effa&#231;&#233; &#224; chaque fois.
une solution consiste &#224; le d&#233;clarer en Static pour qu'il conserve ses donn&#233;es &#224; chaque appel de la fonction.
une autre solution de loin la meilleure consiste &#224; d&#233;clarer le tableau au niveau g&#233;n&#233;ral.

Daniel

toutanplastix · Answer

Tout d'abord merci &#224; vous deux pour avoir r&#233;pondu si rapidement, je vais tester chaque solution et garder celle(s) que j'arrive &#224; utiliser.
      Jack----> merci pour l'astuce du Split c'est tellement plus simple et &#231;a va m'&#233;conomiser des lignes. Il ne me reste plus qu'&#224; me renseigner sur les modules.

      Gobillot-----> Je vais essayer le Static mais par contre je n'ai aucune id&#233;e de la m&#233;thode pour d&#233;clarer le tableau au niveau g&#233;n&#233;ral, si tu pouvais &#234;tre plus pr&#233;cis.

      Merci encore !!!

Toutanplastix, respectueux, qui se dit que &#231;a fait trois jours qu'il est dessus et qu'en m&#234;me pas trente minutes il a la solution.

Gobillot · Answer

ce que j'appelle niveau g&#233;n&#233;ral c'est tout au d&#233;but de la Forme juste en dessous de Option Explicit un simple Dim suffit.
il sera accessible dans toute la feuille. 
un Static ne sera accessible que dans la Fonction o&#249; il a &#233;t&#233; d&#233;clar&#233;.
par contre si tu veux avoir acc&#232;s dans tout le project il faut le d&#233;clarer en Public dans un module commme Jack a dit.

Daniel

Problème avec Redim Preserve

4 réponses

Discussions similaires