SPLIT AMÉLIORÉ (POUR FICHIERS CSV DU STYLE 001,"YOUPI,ÇA VA?","RAS",,)
cs_julbute
Messages postés8Date d'inscriptionmardi 4 avril 2006StatutMembreDernière intervention13 avril 2006
-
13 avril 2006 à 09:58
ld40
Messages postés336Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention22 février 2019
-
13 avril 2006 à 21:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
ld40
Messages postés336Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention22 février 20191 13 avril 2006 à 21:41
si je comprends bien, tu es en train de lire un fichier texte de plusieurs lignes, c'est ça?
le code serait
dim i as integer
dim monfichier as string
dim a$
dim t as variant
i=freefile
monfichier = "c:\toto.txt"
open monfichier for input as #i
do until eof(i)
line input #i,a$
t = split(a$,",")
' et la tu traites...t(0) t(1) t(2) etc...
loop
close #i
cs_julbute
Messages postés8Date d'inscriptionmardi 4 avril 2006StatutMembreDernière intervention13 avril 2006 13 avril 2006 à 09:58
Bon ok dans ton exemple ça marche mais serais tu comment proceder si on devait effectuer un split sur plusieurs lignes et qu'il y a également un séparateur à la fin de chaque lignes.exemple:
13 avril 2006 à 21:41
le code serait
dim i as integer
dim monfichier as string
dim a$
dim t as variant
i=freefile
monfichier = "c:\toto.txt"
open monfichier for input as #i
do until eof(i)
line input #i,a$
t = split(a$,",")
' et la tu traites...t(0) t(1) t(2) etc...
loop
close #i
13 avril 2006 à 09:58
1153748,13/04/2006 03:02:35,1,SpaceManager,
1153747,12/04/2006 22:06:25,1,RS_Global.asp,
1153746,12/04/2006 22:06:08,1,RS_Global.asp,