Copie d'une ligne
Résolu
fab101
Messages postés
139
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
27 septembre 2010
-
24 août 2004 à 16:30
fab101 Messages postés 139 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 27 septembre 2010 - 24 août 2004 à 17:10
fab101 Messages postés 139 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 27 septembre 2010 - 24 août 2004 à 17:10
4 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
25
24 août 2004 à 16:38
24 août 2004 à 16:38
Dim numFile As Long Dim chaine As String ' Ouverture du premier fichier numFile1 = FreeFile Open "C:\toto1.txt" For input As #numFile1 Line Input #numFile, chaine ' Récupère la première ligne Close #numFile [...] ' Ouverture du deuxième fichier, et écrit à la fin numFile1 = FreeFile Open "C:\toto2.txt" For Append As #numFile Print #numFile,chaine Close #numFile
Voilà voilà, p'têtre que la ligne que tu cherches n'est pas la première de ton fichier texte... P'têtre que tu veux la recopier ailleurs qu'à la fin du deuxième fichier ... mais voilà, pour çà, il fait donner plus de détails.
Manu
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
25
24 août 2004 à 16:41
24 août 2004 à 16:41
Bon ben décidément, je ne suis pas bien réveillé cet après-midi.
[Code]
' changer les deux lignes incriminées :
<s>numFile1 = FreeFile</s>
numFile = FreeFile
Manu
[Code]
' changer les deux lignes incriminées :
<s>numFile1 = FreeFile</s>
numFile = FreeFile
Manu
TheEwook
Messages postés
155
Date d'inscription
samedi 3 juillet 2004
Statut
Membre
Dernière intervention
30 mai 2005
24 août 2004 à 16:53
24 août 2004 à 16:53
Salut,
var fso, f, variable;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.OpenTextFile("c:\\fichier1.txt", 1);
variable = f.ReadLine();
f.Close();
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\fichier2.txt", True)
MyFile.WriteLine(variable)
MyFile.Close
voilà normalement ca devrais marcher !!!
@++
________________
TheEwook
var fso, f, variable;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.OpenTextFile("c:\\fichier1.txt", 1);
variable = f.ReadLine();
f.Close();
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\fichier2.txt", True)
MyFile.WriteLine(variable)
MyFile.Close
voilà normalement ca devrais marcher !!!
@++
________________
TheEwook
fab101
Messages postés
139
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
27 septembre 2010
24 août 2004 à 17:10
24 août 2004 à 17:10
merci de vos reponse
econs c'est bien ca merci
car c'est la premiere ligne que je dois copier
j'ai essaye c'est bon
econs c'est bien ca merci
car c'est la premiere ligne que je dois copier
j'ai essaye c'est bon