Rechercher du texte et le remplacer dans un fichier TXT
restesouple
Messages postés
27
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
4 octobre 2007
-
19 déc. 2003 à 02:58
cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 - 19 déc. 2003 à 09:42
cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 - 19 déc. 2003 à 09:42
A voir également:
- Rechercher du texte et le remplacer dans un fichier TXT
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier class - Forum Java
- Crypter un fichier texte ✓ - Forum Visual Basic
- Lire informations fichier class dans un programme java ✓ - Forum Java
1 réponse
cs_radada
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
1
19 déc. 2003 à 09:42
19 déc. 2003 à 09:42
dim Str as String
Open "FichierIn" for Input as #1
Open "FichierOut" for Output as #2
While not EOF(1)
Input #1, Str
if Str = $Titre then
print #2, Text1.Text & vbCrLf
else
print #2, Str & vbCrLf
Wend
Close(1)
Close(2)
Je ne suis juste pas certain que de rajouter un & vbCrLf direct dans le print marche.. Au pire, fais une variable tampon...
Open "FichierIn" for Input as #1
Open "FichierOut" for Output as #2
While not EOF(1)
Input #1, Str
if Str = $Titre then
print #2, Text1.Text & vbCrLf
else
print #2, Str & vbCrLf
Wend
Close(1)
Close(2)
Je ne suis juste pas certain que de rajouter un & vbCrLf direct dans le print marche.. Au pire, fais une variable tampon...