Split a 1 ou 2 niveaux
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 574 fois - Téléchargée 59 fois
Contenu du snippet
Source / Exemple :
'Function split a 1 ou 2 niveaux '1- a un niveau lorsque PosN2 = 0 '2- a 2 niveaux lorque PosN2 >= 1 'ex : 'si chaine = "a1$b1#a2$b2#a3$b3" 'spameliore(chaine,1,1) rend "a1" 'spameliore(chaine,1,0) rend "a1$b1" 'spameliore(chaine,2,2) rend "b2" public Function SpAmeliore(Chaine As String, PosN1 As Integer, PosN2 As Integer) Dim DataP1 Dim Tableau1() As String Tableau1() = Split(Chaine, "#", -1) DataP1 = Tableau1(PosN1 - 1) If PosN2 = 0 Then SpAmeliore = DataP1: Exit Function Dim Tableau2() As String Tableau2() = Split(DataP1, "$", -1) SpAmeliore = Tableau2(PosN2 - 1) End Function
Conclusion :
Mettez cette function dans un module et vous l'utiliserez tot ou tard.
A voir également
- Split a 1 ou 2 niveaux
- Faire un split à 2 niveaux ✓ - Forum - ASP / ASP.NET
- Prog qui fait la somme de deux niveaux sonores de durées différentes - Codes sources - Visual Basic / VB.NET (Divers)
- Affichage espace libre avec 2 niveau alerte et choix temps entre chaque scan - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Boutons sur 2 niveaux... - CodeS SourceS - Guide
- .net 2 - niveau de sécurité des mots de passe - Codes sources - C# / .NET (Sécurité & Cryptage)
j'ai ce bout de code !!! à chaque fois un pb de type mismatch pour
Open FileiniName For Input As #1
Do While EOF(1) = False
Line Input #1, ligne
If Mid(ligne, 1, 1) = "L" Then
val_line = Split(ligne, "=")
val_Line1 = Split(val_line(1), ";") 'ligne de pb
End If
Loop
Close
en fait j'ai une ligne de la forme : ligne N° 1 = 1;toto;2
et à chaque ligne je veux : tester que la ligne extraire et d'extraire les valeur de 1 , toto et 1
je comprend pas ce bug
Merci de m'aider
J'ai fais comme tu as dis : Mettez cette function dans un module et vous l'utiliserez tot ou tard.
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.