csv to xls Résolu

Question

Bonsoir a tous,
Je recherche de l'aide dans plusieurs secteurs....

1) je voudrais savoir si il existe un "filechooser" en VB                 //et comment l'impl&#233;menter?
2)Une fois le fichier ouvert (*.csv) je voudrais le "parser" jusqu'&#224; une string sp&#233;ciale ("NEXT")
3)Une fois la string "NEXT" d&#233;couverte, je voudrais cr&#233;er une nouvelle sheet dans un document *.xls

J'espere avoir &#233;t&#233; assez clair
Merci d'avance et excellente soir&#233;e a tous

ElpenS

jrivet · Accepted Answer

Re,

Mais nous sommes la pour ca, en contre partie on demande juste un petit "reponse acceptee" si cela peut clore le post


@+
Julien

jrivet · Answer

Salut,

Si un "FileChooser" est une boite de dialogue du type "Ouvrir Fichier":

Alors il te faut le Microsoft Common Dialog Control.



Si tu Veux parser ton fichier .Csv utilise la fonction Split(TaChaine, TonDelimiteur) Precision: Ou est le NEXT si c est a la fin de chaque ligne tu n en a pas besoin theoriquement grace a Split.

@+

PS: Explique un peu mieux ton 3eme point
Julien

cs_elpens · Answer

D&#233;j&#224; merci pour le dialog control !!!

Voil&#224;, dans le openFileDialog, je vais selectionner un fichier *.csv.
Je veux, a partir de ce fichier, cr&#233;er un autre fichier, mais *.xls cette fois-ci.

Dans le fichier *.csv, il y a des d&#233;limiteurs ("NEXT"). Si le parseur tombe sur un "NEXT", alors il cr&#233;e dans le fichier *.xls une nouvelle feuille (Sheet), et copie le text du *.csv jusqu'au prochain "NEXT"

J'esp&#232;re avoir &#233;t&#233; un peu plus compr&#233;hensible
Bonne journ&#233;e

ElpenS

jrivet · Answer

Re,

Tout depend de comment tu veux t'y prendre.

Prenons un exemple de fichier:

bonjour;je;suis;sur
vb;france;.;com
"NEXT"
que;veux;tu;faire
dans;ce;cas;la
"NEXT"

Est ce que:

- Ce fichier pourrait un fichier de ton typt
- Dans ce cas la tu devras creer 2 .xls:
        - Mettre chaque mot dans une cellule?

Est ce que j ai bien analyser ton probleme?

@+
Julien

cs_elpens · Answer

Voil&#224;,

bonjour;je;suis;sur
vb;france;.;com
"NEXT"
que;veux;tu;faire
dans;ce;cas;la
"NEXT"

Va me creer un fichier *.xls :
    Une premi&#232;re feuille contiendra : bonjour je suis sur vb france.com
    La deuxi&#232;me feuille contiendra : que veux tu faire dans ce cas la
    ...tant qu'il y a des NEXT...

Merci
ElpenS

jrivet · Answer

Re,

Tiens regarde si cela peut commencer a t'aider (traite juste ton fichier source pour voir si il recupere bien les bonne choses.

NOTE: Ajoute la reference Microsoft Scripting Runtime a ton projet

Dim fso As New FileSystemObject
Dim ts As TextStream
Dim p As String
Dim i As Integer
Dim LignesClasseur() As String
Set ts = fso.OpenTextFile("C:\pp.csv", ForReading)

p = ts.ReadAll
LignesClasseur = Split(p, "NEXT")
For i = LBound(LignesClasseur) To UBound(LignesClasseur)
MsgBox LignesClasseur(i)
Next

cs_elpens · Answer

Yes, c'est bien cool. C'est exactement cela.
Je dois juste modifier pour qu'il me cree un fichier xls et les feuilles internes!

Merci beaucoup.
J'espere &#224; ne plus avoir &#224; te solliciter....

Bonne journ&#233;e
ElpenS

cs_elpens · Answer

Ca te d&#233;range si je le fait une fois le sujet termin&#233; (CSV to XLS) ?
Comme ca, je pourrais completer au cas ou,...

Merci

Csv to xls

8 réponses

Discussions similaires