Batch: remplir un fichier csv à partir d'un fichier txt

saidi oussama

XLDnaute Nouveau
Bonjour,
j'ai un fichier txt sous la forme suivante:
12 13 14 15
11 10 12 14.5
23 22 21.5 22
il existe 5 espace entre les colonnes
je souhaite connaitre la liste de commandes batch pour que ce fichier soit copier dans un fichier csv deja crée
 

job75

XLDnaute Barbatruc
Bonjour saidi oussama, bienvenue sur XLD,

Téléchargez les fichiers zippés joints dans le même dossier et exécutez cette macro en cliquant sur le bouton :
Code:
Sub Transfert_TXT_CSV()
Dim chemin$, fichier$, texte$, a$(), n&
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Fichier TXT.txt" 'à adapter
Open chemin & fichier For Input As #1 'ouverture pour la lecture
Do While Not EOF(1) 'EndOfFile: fin du fichier
    Line Input #1, texte 'récupère la ligne
    ReDim Preserve a(n) 'tableau VBA, base 0
    a(n) = texte 'stocke le texte dans le tableau a
    n = n + 1
Loop
Close #1
fichier = "Fichier CSV.csv" 'à adapter
Open chemin & fichier For Output As #1 'ouverture pour l'écriture
For n = 0 To UBound(a)
    Print #1, Replace(a(n), " ", ";")
Next
Close #1
MsgBox n & " ligne" & IIf(n > 1, "s", "") & " transférée" & IIf(n > 1, "s", "")
End Sub
A+
 

Pièces jointes

  • Transfert TXT-CSV(1).zip
    18.6 KB · Affichages: 12

Discussions similaires

Réponses
3
Affichages
390

Statistiques des forums

Discussions
312 069
Messages
2 085 038
Membres
102 763
dernier inscrit
NICO26