Split a 1 ou 2 niveaux

3/5 (2 avis)

Snippet vu 5 682 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

Ajouter un commentaire Commentaires
cs_jovanni Messages postés 1 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 21 novembre 2007
21 nov. 2007 à 13:27
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
RAMASSPIPO Messages postés 4 Date d'inscription vendredi 17 janvier 2003 Statut Membre Dernière intervention 24 septembre 2003
24 sept. 2003 à 06:33
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.