Readline

Version imprimable

Salut à tous,

j'ai un petit souci avec un FileSystemObject. Ce que je souhaite faire, c'est lire un fichier texte avec "OpenTextFile" et le lire de façon séquentielle, ligne par ligne, afin d'écrire la ligne en question dans un autre fichier texte après lui avoir fait subir différentes modifications...

Voici ce que j'ai codé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub ImportFileF2() Dim FSO As Object, SourceFile As Object, DestFile As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set SourceFile = FSO.OpenTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt", ForReading) Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt" & "GeneratedTextFile.txt") While Not SourceFile.AtEndOfStream 'Ici j'écris dans le fichier de destination ma ligne provenant de mon fichier source DestFile.WriteLine SourceFile.Readline & Chr(13) Wend Set DestFile = Nothing Set SourceFile = Nothing Set FSO = Nothing End Sub
Hélas ca ne me donne pas ce que je veux... :roll: Au lieu d'aller à la ligne, il m'écrit 3 petits carrés. Pourtant avec Chr(13) ca devrait fonctionner, non ?

Merci d'avance pour votre aide

laloune

13/11/2007, 11h54
ced600

pas forcement en vbs.
Tu veux mettre une ligne de séparation entre tes lignes ?
parce que writeline effectue déjà un retour à la ligne.
moi perso pour mettre des lignes de séparation de suis barbare je fait des
writeline("")
Et j'en épète autant que je veux insérer des sauts de ligne.
13/11/2007, 12h00
RadPAT

Salut,

tu peux essayer en remplacant Chr(13) par VbCrlf.
Sinon, tu es sûr de ca ?

Code:

Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt" & "GeneratedTextFile.txt")

du moins, il doit manquer un espace entre avant ou après tes guillemets et ton &

A++
13/11/2007, 12h02
ced600

Citation:

Envoyé par RadPAT

Salut,

tu peux essayer en remplacant Chr(13) par VbCrlf.
Sinon, tu es sûr de ca ?

Code:

Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt" & "GeneratedTextFile.txt")

du moins, il doit manquer un espace entre avant ou après tes guillemets et ton &

A++

Heu...
s'il met un espace cela fait

Code:

"C:\Documents and Settings\user\Bureau\Macro\Source.txt GeneratedTextFile.txt"

je ne suis pas sur que cela soit valide comme argument de CreateTextFile.
Enfin moi cela m'avait échapé, j'ai lu trop vite :D
13/11/2007, 12h10
laloune

merci à vous deux pour vos réponses ! :king:

hélas ca ne semble pas fonctionner... Dans les 3 cas (vbCrlf, rien si WriteLine effectue un retour à la ligne, et DestFile.WriteLine("")), ca m'écrit tout un tas de petits carrés au lieu de retourner à la ligne... étrange...

concernant l'argument de CreateTextFile j'ai fait une erreur en copiant (j'ai modifié le chemin d'accès parce que il contient mon nom et mon prénom :mouarf:

la bonne syntaxe que j'ai dans mon code est la suivante :

Code:

Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\GeneratedTextFile.txt")
13/11/2007, 12h12
RadPAT

Exact,

sauf que si il ne met pas d'espace

Code:

Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt" & "GeneratedTextFile.txt")

revient à dire :

Code:

Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txtGeneratedTextFile.txt")

et du coup il y a un pb.
Je ne vois pas ce que l'on peut faire avec cette syntaxe.
De plus il faudrait que tu déclares le fichier en sortie en format 2 (forwriting).

A++
13/11/2007, 12h34
laloune

Citation:

Envoyé par RadPAT

De plus il faudrait que tu déclares le fichier en sortie en format 2 (forwriting).

A++

en effet :

Code:

Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\plorentz.INTL\Bureau\Macro_F2_CRC\" & "GeneratedTextFile.txt", ForWriting)

ceci dit, ca fonctionne également sans le ForWriting (constante). Mais c'est vrai que c'est plus rigoureux :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ImportFileF2()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFile = FSO.OpenTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt", ForReading)
Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\GeneratedTextFile.txt", ForWriting)
While Not SourceFile.AtEndOfStream
     DestFile.WriteLine SourceFile.Readline
     DestFile.WriteLine("")
Wend
Set DestFile = Nothing
Set SourceFile = Nothing
Set FSO = Nothing
End Sub

Ceci ne marche pas ?
Tu ouvres ton fichier texte avec quel éditeur après exécution du script ?

13/11/2007, 17h48
laloune

Citation:

Tu ouvres ton fichier texte avec quel éditeur après exécution du script ?

je l'ouvre simplement avec le bloc-notes... y'a mieux ? (sans aucun doute, mais si je l'ouvre c'est surtout pour voir si la moulinette a fonctionné :D)

mais je viens de tester un truc : je me suis dit que ce n'était pas nécessairement la macro, mais mon fichier texte qui péchait... Bingo, j'ai enregistré mon fichier texte source en format ANSI (au lieu de Unicode), relancé ma macro, et ca fonctionne...

du coup il faudra que j'enregistre mes fichiers source dans ce format...

Merci pour votre aide en tous cas ! :king: