SPLIT AMÉLIORÉ (POUR FICHIERS CSV DU STYLE 001,"YOUPI,ÇA VA?","RAS",,)

Signaler
Messages postés
8
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
13 avril 2006
-
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
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/20637-split-ameliore-pour-fichiers-csv-du-style-001-youpi-ca-va-ras

Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
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
Messages postés
8
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
13 avril 2006

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:

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,