Split a 1 ou 2 niveaux

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 481 fois - Téléchargée 57 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

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
21 novembre 2007

Bonjour!!
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
Messages postés
4
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
24 septembre 2003

Rien à dire!

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.