Modifier un fichier texte...
cs_vde
Messages postés
2
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
14 mars 2002
-
13 mars 2002 à 17:24
cs_oliver68 Messages postés 117 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 10 mars 2003 - 15 mars 2002 à 10:10
cs_oliver68 Messages postés 117 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 10 mars 2003 - 15 mars 2002 à 10:10
A voir également:
- Modifier un fichier texte...
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Souligner texte illustrator - Forum Graphisme/design
- Bug DXF DXW avec illustrator - Forum Graphisme/design
3 réponses
cs_oliver68
Messages postés
117
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
10 mars 2003
14 mars 2002 à 14:49
14 mars 2002 à 14:49
salut,
tente voir :
sub fichier()
close
open "c:\fichier1.txt" for input as #1
open "c:\fichier2.txt" for append as #2
line input #1, laligne
nouvelleligne = laligne
do while not eof(1)
line input #1, laligne if mid(laligne, 1, 1) 2 then nouvelleligne nouvelleligne & " " & laligne
if mid(laligne, 1, 1) = 1 then
print #2, nouvelleligne
nouvelleligne = laligne
end if
loop
print #2, nouvelleligne
close
kill "c:\fichier1.txt"
name "c:\fichier2.txt" as "c:\fichier1.txt"
end sub
Ca devrait le faire.
@+
tente voir :
sub fichier()
close
open "c:\fichier1.txt" for input as #1
open "c:\fichier2.txt" for append as #2
line input #1, laligne
nouvelleligne = laligne
do while not eof(1)
line input #1, laligne if mid(laligne, 1, 1) 2 then nouvelleligne nouvelleligne & " " & laligne
if mid(laligne, 1, 1) = 1 then
print #2, nouvelleligne
nouvelleligne = laligne
end if
loop
print #2, nouvelleligne
close
kill "c:\fichier1.txt"
name "c:\fichier2.txt" as "c:\fichier1.txt"
end sub
Ca devrait le faire.
@+
cs_vde
Messages postés
2
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
14 mars 2002
14 mars 2002 à 14:58
14 mars 2002 à 14:58
Ca marche merci !
cs_oliver68
Messages postés
117
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
10 mars 2003
15 mars 2002 à 10:10
15 mars 2002 à 10:10
pas de quoi.