Separation d'une chaine de caractere
1/5 (5 avis)
Vue 6 146 fois - Téléchargée 342 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
- Chaine de separation
- Séparateur caractère - Meilleures réponses
- Sql découper une chaîne séparateur - Meilleures réponses
- Split chaine sans séparateur ✓ - Forum - C# / .NET
- Séparer une chaîne de caractère python - Forum - Python
- Sql découper une chaîne séparateur - Forum - SQL
- Récupère une chaine avant le dernier séparateur - Codes sources - Visual Basic / VB.NET (Texte)
- Renvoie une partie d'une chaine par rapport à un séparateur - Codes sources - Delphi / Pascal (Texte)
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.