1/5 (5 avis)
Vue 6 146 fois - Téléchargée 342 fois
' ***************************************************** ' * * ' *** Fonction Néocracker : neocracker@caramail.com *** ' * * ' ***************************************************** ' Vous pouvez utilisez cette fonction dans vos programmes, ' mais dans le cas ou ce programme se retrouve sur VBFrance.com ' prévenez moi j'irais le voir ' Je m'excuse pour les multiples fautes d'orthographes qui ' doivent se trouvé dans cette source ' ========================================================= ' Le séparateur n'a pas de taille défini ' Le séparateur ne doit se trouver qu'une seul fois dans le texte, sinon : ' EXEMPLE : texte : "x+5 = 25 = 5y" / séparateur : " = " ' gauche : "x+5" ' droite : "25 = 5y" Function separe(chaine As String, separateur As String, Optional partie_droite As Boolean) As String For i = Len(separateur) To Len(chaine) If Right(Left(chaine, i), Len(separateur)) = separateur Then If partie_droite = False Then separe = Left(chaine, i - Len(separateur)) Else separe = Right(chaine, Len(chaine) - i) End If End If Next i End Function
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.