[WSH Scripting] écrire dans fichier texte depuis fichier excel

écrire dans fichier texte depuis fichier excel [WSH Scripting] - VB/VBA/VBS - Programmation

Marsh Posté le 21-09-2007 à 14:49:33    

Je réussis déjà à écrire dans un fichier texte.
Bon, je ne sais pas comment faire pour écrire à un endroit donné mais je ne pense pas que ça va me servir.
 
Je cherche à écrire en 1 seule fois dans un fichier texte en utilisant des informations récupérées dans un fichier excel, ou à la rigueur un fichier texte avec tab, ou séparé par des virgule (fichier csv).
 
Merci d'avance !

Reply

Marsh Posté le 21-09-2007 à 14:49:33   

Reply

Marsh Posté le 21-09-2007 à 15:14:38    

bjr,
que veux-tu au final ?
des idées ? du code ?

Reply

Marsh Posté le 24-09-2007 à 09:14:27    

en fait j'ai trouvé.
 
Je voulais quelque chose comme ça. (Ensuite je peux le modifier pour ecrire ce que je récupère depuis le fichier texte vers un autre fichier)
 
f = "D:\testlecture.txt"
 
ReadEntireFile(f)
 
 
Function ReadEntireFile(f)
   Const ForReading = 1
   Dim fso, theFile, ligne
   Set fso = CreateObject("Scripting.FileSystemObject" )
   Set theFile = fso.OpenTextFile(f, ForReading, False)
   Do While theFile.AtEndOfStream <> True
      ligne = theFile.ReadLine
   wscript.echo ligne
   TraiteFichier(ligne)
   Loop
   theFile.Close
   ReadEntireFile = retstring
End Function
 
 
Function TraiteFichier(ligne)
 MyArray = Split(ligne, ",", -1, 1)
 Msg = MyArray(0) & vbCrLf & MyArray(1) & vbCrLf & MyArray(2) & vbCrLf & MyArray(3)
 wscript.echo msg
End Function

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed