cs_jovanni
Messages postés1Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention21 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és4Date d'inscriptionvendredi 17 janvier 2003StatutMembreDernière intervention24 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.
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.