Supression dans un fichier
ccamilli
Messages postés
2
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
1 octobre 2003
-
30 sept. 2003 à 18:44
ccamilli Messages postés 2 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 1 octobre 2003 - 1 oct. 2003 à 15:04
ccamilli Messages postés 2 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 1 octobre 2003 - 1 oct. 2003 à 15:04
A voir également:
- Supression dans un fichier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Javascript écrire dans un fichier - Forum Javascript / DHTML
- Traitement dédoublonnage fichier ✓ - Forum C++ & C++ .NET
3 réponses
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
30 sept. 2003 à 18:59
30 sept. 2003 à 18:59
Bonjour
1. Lecture du fichier
2. Utilisation de la fonction Replace
3. Réécriture du fichier.
1. Lecture du fichier
2. Utilisation de la fonction Replace
3. Réécriture du fichier.
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
30 sept. 2003 à 20:57
30 sept. 2003 à 20:57
Voila un exemple commenté:
'ouverture du fichier
Dim temp As String
Open "c:\fichier.txt" For Input As #1
temp = Input(LOF(1), 1) 'lecture du fichier dans la variable
Close #1
'effacement des espaces dans la variable temp
temp = Replace(temp, " ", "")
'effacements des retour chariot dans la variable
temp = Replace(temp, vbCrLf, "")
'enregistrement du fichier
Open "c:\fichier.txt" For Output As #1
Print #1, temp
Close #1
'ouverture du fichier
Dim temp As String
Open "c:\fichier.txt" For Input As #1
temp = Input(LOF(1), 1) 'lecture du fichier dans la variable
Close #1
'effacement des espaces dans la variable temp
temp = Replace(temp, " ", "")
'effacements des retour chariot dans la variable
temp = Replace(temp, vbCrLf, "")
'enregistrement du fichier
Open "c:\fichier.txt" For Output As #1
Print #1, temp
Close #1
ccamilli
Messages postés
2
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
1 octobre 2003
1 oct. 2003 à 15:04
1 oct. 2003 à 15:04
C parfait.
Merci :)
Merci :)