bjr,
j'ai pas testé le code ci dessus mais je ne doute pas qu'il marche.
il y a aussi les commandes (oubliées, délaissées???) des chaines de caractères telles qe instr, left right qui permettent de localiser un car particulier, de prendre la partie gauche du texte puis de retirer cette parrtie et de recommencer.
ex : dans la chaine ci-dessous
reserve4 ="un,deux,trois,quatre,pswd,2"
'collecte des valeurs des noms des entetes et du mot de passe client
Y = Len(reserve4) 'garde la longueur de reserve4 pour les coupures
'isole le couvercle
'Beep
i = InStr(reserve4, ",")
couvercle = Left$(reserve4, i - 1) 'prend la partie gauche de reserve4 moins la virgule
'supprime de reserve4 le texte du couvercle et la virgule
'calcule la longueur restante de reserve4
Y = Y - i
reserve4 = Right$(reserve4, Y)
'isole le aspect
i = InStr(reserve4, ",")
aspect = Left$(reserve4, i - 1) 'prend la partie gauche de reserve4 moins la virgule
'supprime de reserve4 le texte du couvercle et la virgule
'calcule a longueur restante de reserve4
Y = Y - i
reserve4 = Right$(reserve4, Y)
'isole le régime
i = InStr(reserve4, ",")
regime = Left$(reserve4, i - 1) 'prend la partie gauche de reserve4 moins la virgule
'supprime de reserve4 le texte du couvercle et la virgule
'calcule a longueur restante de reserve4
Y = Y - i
reserve4 = Right$(reserve4, Y)
'isole le le ssel
i = InStr(reserve4, ",")
ssel = Left$(reserve4, i - 1) 'prend la partie gauche de reserve4 moins la virgule
'supprime de reserve4 le texte du couvercle et la virgule
'calcule a longueur restante de reserve4
Y = Y - i
reserve4 = Right$(reserve4, Y)
'isole le mot de passe client
i = InStr(reserve4, ",")
motdepasseclient = Left$(reserve4, i - 1) 'prend la partie gauche de reserve4 moins la virgule
'supprime de reserve4 le texte du couvercle et la virgule
'calcule a longueur restante de reserve4
Y = Y - i
reserve4 = Right$(reserve4, Y)
'isole le nombre de ports série
limite_ports = reserve4
passe aux différentes variables (ssel,regime etc..) le contenu de la chaine avec chacun des termes des la chaine délimitée par les virgules
si ça peut aider.
bon code
jym
-------------------------------
Réponse au message :
-------------------------------
Private Sub Form_Click()
Dim TabSplit() As String
Dim Boucle As Integer
TabSplit = Slipt("bon,fe,sdz,sdz,zzd,zd,zdzdz,", ",")
For Boucle = 1 To UBound(TabSplit)
Debug.Print TabSplit(Boucle)
Next
End Sub
Private Function Slipt(Chaine As String, Delimiteur As String) As Variant
Dim TmpChaine As String
Dim Compteur As Integer
Dim LenDeli As Integer
Dim Posi As Integer
Dim Table() As String
LenDeli = Len(Delimiteur)
TmpChaine = Chaine
ReDim Table(100)
Compteur = 0
Posi = 1
Do
Posi = InStr(TmpChaine, Delimiteur)
If Posi = 0 Then
If Len(TmpChaine) = 0 Then Exit Do
Compteur = Compteur + 1
Table(Compteur) = TmpChaine
Exit Do
Else
Compteur = Compteur + 1
Table(Compteur) = Left(TmpChaine, Posi - 1)
End If
TmpChaine = Mid(TmpChaine, Posi + LenDeli)
If Compteur Mod 100 = 0 Then ReDim Preserve Table(Compteur + 100)
Loop
ReDim Preserve Table(Compteur)
Slipt = Table
End Function
WebMaster-------------------------------
Réponse au message :
-------------------------------
Salut ,
J'ai une chaîne qui est par exemple : " Marc,Kevin,nicolas"
Comment faire pour séparer tous les noms contenue entre les virgules et les mettre ensuite dans un listbox.
je n'ai pas vb6 (Split).
MERCI D'AVANCE
