Probleme .txt

Question

Bonjour, 
Je suis débutant de chez débutant en VB, et dans le code qui suis je veux créer un nouveau fichier (ici piece2.txt) .txt à partir d'un fichier existant (ici piece.txt), je veux donc récupérer la 1ere ligne dans la variable Var1 et la réécrire dans le nouveau fichier mais dans le nouveau fichier au lieu d'écrire l'ancienne ligne il écrit Var1, est ce que quelqu'un voit mon erreur?
Merci d'avance.
-- 
Renan

Sub Slicing()
 
 
  'Pour creer le fichier texte
 Set FSys = CreateObject("Scripting.FileSystemObject")
 Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\Bonnard\Bureau\piece2.txt")
 ' Declare la variable Var1
 Dim Var1
 'Ouvre le fichier
 Open "C:\Documents and Settings\Bonnard\Bureau\piece.txt" For Input As #2
 'Lit la première ligne et la place dans Var1
 Input #2, Var1
 With MonFic 'Pour écrire dans le fichier texte Var1
 .writeLine " & Var1"
 '.writeLine "Ecrivez la deuxième ligne"
 '.writeLine "Ecrivez la troisième ligne, etc..."
 End With
  'Ferme le fichier
 Close #2
 Msg = "Écriture réussie dans fichier.txt"
 MsgBox (Msg)

End Sub

Renfield · Answer

fais une copie de fichier, plus simple, non ?

tu mélange présentement deux technos... FSO et du code VB6 (Open, Input, etc...)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_EBArtSoft · Answer

Prrrrrrrésentement :-p (ouai je sais je rigole pour rien)

FSO c'est une mauvaise pratique ça devrait etre reservé exclusivement reservé au vbscript dans du html.

Sinon utiliser les fonctions integré à vb.

@+

E.B.

erefdatacomputing · Answer

Je comprends vite mais il faut m'expliquer longtemps et tout en détails !!!

omarjock · Answer

bonjour
comment recuperer tout un fichier dans une variable string
merci

cs_EBArtSoft · Answer

dim a as string 
open monfichier for binary as #1
a=string(lof(1),0)
get #1,,a
close #1

...

msgbox a

Probleme .txt

5 réponses

Votre réponse

Discussions similaires