Discussion :

[PatrickVB]

Bonjour ,

Je débute en VB et je désire être aidé dans la conception d'un petit programme en Visual Basic.
Il s'agit de convertir un fichier .CSV en fichier .TXT dans un format bien précis.
Je peux fournir les deux modèles de fichiers.
Merci d'avance pour votre réponse.
Cordialement.
PatrickVB

[iclic]

Bonjour,

Tu peux déjà faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 Dim Table() As String
 Dim Nbuf As Integer, i As Integer
 Dim MaxSize As Long
 Dim Valfic As String
 
 
 Nbuf = FreeFile
 Open "C:\TonDossier\TonFichier.csv" For Binary As #Nbuf
 MaxSize = LOF(Nbuf)
 Valfic = Space(MaxSize)
 Get #Nbuf, 1, Valfic
 
 Table = Split(Valfic,";")
 For i = o To UBound(Table)
    List1.AddItem (i) 'pour visualiser ton fichier dans une Listbox
 Next
 Close Nbuf

Après tu le réécris dans un fichier .TXT dans le format que tu veux.

A+

[SfJ5Rpw8]

Bonsoir iclic;

un peu rapide la réponse, tu as oublié (comme te la déjà signalé sur un autre post DarKvader) qu'un fichier .csv comporte des lignes....séparées par des retour chariot..
et pour ton affichage , c'est aussi à revoir (un 0 est devenu un o et il manque table() dans le additem)

Pour un fichier texte, il est peu-être aussi simple d'effectuer une lecture ligne à ligne en s'inspirant de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Open "d:\tmp\MonFichier.csv" For Input As Nbuf
    Do While Not EOF(Nbuf) ' Loop until end of file.
       Line Input #Nbuf, stlg
       tbLigne = Split(stlg, ";")....

[iclic]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
De Bbil

un peu rapide la réponse...

Exact,Bbil, tes remarques sont justifiées,... donc au moins tester son code avant de l'envoyer.

et en plus ta solution est plus simple en effet.