SPLIT A 1 OU 2 NIVEAUX

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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1224-split-a-1-ou-2-niveaux

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.