1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

SPLIT lors d'un envoie de chaine par WINSOCK

Résolu
serialneo Messages postés 6 Date d'inscription lundi 3 janvier 2005 Statut Membre Dernière intervention 22 juin 2008 - 4 avril 2006 à 12:29
serialneo Messages postés 6 Date d'inscription lundi 3 janvier 2005 Statut Membre Dernière intervention 22 juin 2008 - 4 avril 2006 à 13:00
Bonjour merci de vous être arreter sur ce sujet
voila vrai dire j'ai un client qui est configurer pour recevoir une chaine avec plusieurs infos et je souhaiterais les spliter afin de faire des test apres

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'reception des info donner par le serveur
Dim StringData As String
Winsock1.GetData StringData, , bytesTotal


Call identification(StringData) 'appel de ma fonction d' identification
If Acces = True Then
Call receptionmessage(StringData)
End If
End Sub
Sub identification(data1 As String) 'dans data1 il y a data1 = "192.168.0.4%Serveur%Vous êtes connecter%tous"
Dim chaine(), adressipR, pseudoR, messageR, versR As String
chaine = Split(data1, "%") 'c'est ici que j'ai mon erreur
adressipR = chaine(0)
pseudoR = chaine(1)
messageR = chaine(2)
versR = chaine(3)
Acces = False If (versR Pseudo.Text) Or (versR "tous") Then
Acces = True
Exit Sub
End If
End Sub

Et voici ce ke le serveur envoie "192.168.0.4%Serveur%Vous êtes connecter%tous"
J'éspere avoir été assez clair si vous voulez d'autres pécision il suffit de demander
Je suppose que je doit mal me servir de la commande SPLIT je souhaiterais réellement en savoir plus sur sa fonction et ce quelle retourne .
Bien entendu je suis un débutant en VB , je travaille sur VB6 , et je souhaiterais ne pas trop me faire incendier a cause du fait que je ne fait pas tout dans les régles
merci de toute l'aide éventuelle que vous m'avez fournit

2 réponses

Réponse 1 / 2
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
4 avril 2006 à 12:39
Dim chaine() As String, adresseipR As String, ...



chaine = Split(data1,"%")


Dans ton code, pour l'instant, chaine() n'est pas un tableau de String.
En fait, seule la variable versR est de type String. Les autres sont de
type Variant.

Manu
3
Réponse 2 / 2
serialneo Messages postés 6 Date d'inscription lundi 3 janvier 2005 Statut Membre Dernière intervention 22 juin 2008
4 avril 2006 à 13:00
super merci maintenant je ferais plus ce genre d'erreur :D
0
Rejoignez-nous