damd
Messages postés121Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention 8 août 2008
-
18 déc. 2002 à 09:11
jlouis37
Messages postés5Date d'inscriptionjeudi 17 octobre 2002StatutMembreDernière intervention 9 juillet 2003
-
18 déc. 2002 à 12:20
salut a tous
j'ai un probleme pour lire un fichier.
en fait je cherche a faire un enregistrez sous en lisant un fichier en entier et en l'ecrivant dans un autre.
j'ai fais :
dim ligne, fichierentier as string
open "fichier" for input as #1
while not eof(1)
line input#1, ligne
fichierentier = fichierentier + vbcrlf + ligne
wend
open "autrefichier" for output as #2
print#2, fichierentier
mais ca marche pas, j'obtient des retour chariot.
si quelqu'un a une idee ou connait un commande equivalente a enregistrer sous
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 18 déc. 2002 à 09:40
Bonjour -;)
Attention la méthode print te rajoute des guillemets...
Voila un exemple
Private Sub Form_Load()
CopyStream "e:\test.txt", "c:\momo.txt"
End Sub
Private Sub CopyStream(sSource As String, sDestination As String)
Dim stTmp As String
Open sSource For Input As #1
Open sDestination For Output As #2
Do While Not EOF(1)
Line Input #1, stTmp
Print #2, stTmp
Loop
Close #1
Close #2
End Sub
Je pense qu'il y a surement une méthode plus adapté pour copier un fichier d'un endroit à un autre... mais j'ai pas creuser la question. On peut utiliser l'objet Scripting.FileSystemObject mais bon...