SEPARATION D'UNE CHAINE DE CARACTERE
cs_sub-zero
Messages postés
98
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
-
26 juin 2003 à 13:10
neocracker Messages postés 35 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 20 février 2009 - 20 févr. 2009 à 04:17
neocracker Messages postés 35 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 20 février 2009 - 20 févr. 2009 à 04:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7619-separation-d-une-chaine-de-caractere
https://codes-sources.commentcamarche.net/source/7619-separation-d-une-chaine-de-caractere
20 févr. 2009 à 04:17
De retour après de longues années d'absence, je me marre comme un *** devant mon code. Heureusement que les commentateurs étaient gentils ...
VDB Tristan
27 juin 2003 à 10:01
Public Function DecodeF(strInput As String) As String()
' Decode la ligne de donnée séparée par des points virgule en tableau
Dim strDum(100) As String
Dim strDummy As String
Dim i, j As Integer
Dim iLgChaine As Integer
iLgChaine = Len(strInput)
i = 1
For j = 1 To iLgChaine
If Mid(strInput, j, 1) = ";" Then
strDum(i) = strDummy
strDummy = ""
i = i + 1
Else
strDummy = strDummy & Mid(strInput, j, 1)
End If
Next j
strDum(i) = strDummy
' Retour de la fonction
DecodeF = strDum
End Function
26 juin 2003 à 18:55
26 juin 2003 à 14:28
Mais bon c'est vrai que dans les cas comme ça il vaut mieux utiliser Split.
26 juin 2003 à 13:10
si tu veux garder cette méthode, mets $ a left$ et right$, declare i, ne recalcule pas les longueurs a chk itérations, utilise not plutot ke =false pour optimiser un peu.
@+ bonne prog