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.
21 nov. 2007 à 13:27
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
24 sept. 2003 à 06:33
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.