angenoir666
Messages postés5Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention25 juin 2009
-
17 juil. 2006 à 20:26
angenoir666
Messages postés5Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention25 juin 2009
-
18 juil. 2006 à 22:41
Bonjour
Voila, j'ai un projet qui consiste a enregistrer une feuille excel en format csv, puis de faire un script pour généré des pages htm a partir du fichier csv.
Mon problème c'est que je voudrais supprimer a partir du script tous les retour de ligne (chr(10)) présent dans le fichier csv.
J'ai essayé plusieurs solution mais aucune n'a fonctionner.
Si vous avez une idée, la seule chose qui est impératif c'est qu'il faut que cela se fasse à partir du script.
angenoir666
Messages postés5Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention25 juin 2009 18 juil. 2006 à 22:41
Bonjour
en faite il existe, mais j'ai trouvé:
je voulais enlever chr(10) ligne par ligne, ce qui n'était pas la bonne solution.
En faite il faut traiter le document en entier:
il faut faire un Replace de Chr(10) par rien (avec "") sur tout le document, et comme dans un csv venant de excel, les fins de lignes sont symboliser par chr(13)&chr(10), il faut pour retrouver le document comme il faut avec les lignes en faisant un replace de Chr(13) par Chr(13)&Chr(10).
angenoir666
Messages postés5Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention25 juin 2009 18 juil. 2006 à 00:02
Merci pour ta rèponse, par contre je me suis rendu contre que je faisais fausse route, effectivmement en supprimant tous les chr(10) du document, le contenu ne forme plus qu'une seule ligne. Chose que je ne veut pas.
J'ai donc décidé de traité au fur et à mesure que je lit les lignes, j'applique donc ta solution sur les lignes, mais des que je rencontre une ligne qui a des Chr(10) j'obtiens le message suivant.
"Indice en dehors de la plage: '[number:2]'"
Set ts = fso.OpenTextFile("glossaire.csv", ForReading)
a = ts.Readline
s = replace( a, Chr(10), " ")
t = Split(s, ";")
s1 = t(0)
s2 = t(2) 'c'est sur cette ligne que l'erreur apparait