Separation d'une chaine de caractere
Soyez le premier à donner votre avis sur cette source.
Vue 6 040 fois - Téléchargée 334 fois
Description
Fonction qui separe une chaine de caractere en deux autres par rapport à un séparateur de taille quelconque
il y a déja beaucoup de source dans le meme genre sur ce site mais celle que j'ai voulu utilisé au début bouclais à l'infini si elle ne trouvait pas le séparateur
il y a déja beaucoup de source dans le meme genre sur ce site mais celle que j'ai voulu utilisé au début bouclais à l'infini si elle ne trouvait pas le séparateur
Source / Exemple :
' *****************************************************
' * *
' *** 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
Codes Sources
A voir également
- Separation d'une chaine de caractere
- Séparation d'une chaine de Caractère provenant d'une BDD ✓ - Forum - Java
- Séparer une chaîne de caractère python - Forum - Python
- Recherche de chaine de caractéres sur des fichiers .txt avec séparateurs entre les champs, et affic - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Javascript : Extraction de chaine de caractères à partir d'une occurence ("Separa - Guide
- Séparer une chaîne de caractère avec 2 caractères ✓ - Forum - C# / .NET
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
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
Mais bon c'est vrai que dans les cas comme ça il vaut mieux utiliser Split.
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.