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.
Rejoignez-nous