Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

S

Sauvagon

XLDnaute Nouveau
Manipuler un Fichier texte(txt) et enregistrer les changements [RESOLU]

bonjour

ce que je voudrais faire dans un fichier texte c'est
par exemple si le mot Maman est trouvé, ajouter juste après
" & Papa" puis un saut de ligne

et cela sur l'ensemble du fichier

puis sauvegarder le fichier quand les modif's effectuées.

je suis a votre écoute
 
Dernière édition:
Trier par date Trier par votes
mromain

mromain

XLDnaute Barbatruc
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

bonjour sauvagon et bienvenue sur le forum,

voici une solution en macro, il ne te reste plus qu'à adapter le path du dossier et le nom du fichier (en gras) :
Code: 
Sub test()
Dim myFso As FileSystemObject, txtRead As TextStream, txtWrite As TextStream
Dim dossier As String, fichierSource As String, fichierDestination As String
Dim i As Long
    
    dossier = "[B]E:\XLS\test[/B]"
    fichierSource = dossier & "\" & "[B]test.txt[/B]"
    
    Do
        i = i + 1
        fichierDestination = dossier & "\" & i & ".txt"
    Loop Until Dir(fichierDestination) = vbNullString
    
    Set myFso = CreateObject("Scripting.FileSystemObject")
    Set txtRead = myFso.OpenTextFile(fichierSource, 1)
    Set txtWrite = myFso.CreateTextFile(fichierDestination)
    
    txtWrite.Write (txtRead.ReadAll)
    txtWrite.Close
    txtRead.Close
    
    Set txtRead = myFso.OpenTextFile(fichierDestination, 1)
    Set txtWrite = myFso.CreateTextFile(fichierSource)
    While Not txtRead.AtEndOfStream
        txtWrite.Write (Replace(txtRead.ReadLine, "maman", "maman & papa" & vbNewLine) & vbNewLine)
    Wend
    
    txtWrite.Close
    txtRead.Close
    
    myFso.DeleteFile (fichierDestination)
    
End Sub

a+
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

sur un tout petit fichier, cela fonctionne

je vais faire un test sur un très gros fichier

déja merci pour les infos
et un grand merci après des tests poussés
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

Oui, cela tourne très bien et très rapide

comme je l'ai promis, un grand merci !

par contre, je dois remplacer

quai "N° 10" par quai "N° 10 Voie de gauche"
les guillemets sont dans le texte

voici mon test qui ne va pas
Code: 
txtWrite.Write (Replace(txtRead.ReadLine, _
   "quai "N° 10"", "quai "N° 10 Voie de gauche""))
 
Vote positif 0 Vote négatif
mromain

mromain

XLDnaute Barbatruc
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

re,

essaye en remplaçant ce code par
Code: 
txtWrite.Write (Replace(txtRead.ReadLine, _
   "quai ""N° 10""", "quai ""N° 10 Voie de gauche"""))

a+
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

Oui, les deux instructions prisent
séparément tournent

mais si je fais les deux en suivant
Code: 
While Not txtRead.AtEndOfStream
    txtWrite.Write (Replace(txtRead.ReadLine, _
    "quai ""N° 10""", "quai ""N° 10 Voie de gauche"""))

    txtWrite.Write (Replace(txtRead.ReadLine, _
    "maman", "maman & papa" & vbNewLine) & vbNewLine)
Wend
J'ai Erreur d'exécution '62': l'entrée dépasse la fin du fichier
 
Vote positif 0 Vote négatif
mromain

mromain

XLDnaute Barbatruc
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

re,

essaye avec ce code :
Code: 
Dim ligneTexte As String

    ...
    ...
    
    While Not txtRead.AtEndOfStream
        ligneTexte = txtRead.ReadLine
        ligneTexte = Replace(ligneTexte, "quai ""N° 10""", "quai ""N° 10 Voie de gauche""")
        ligneTexte = Replace(ligneTexte, "maman", "maman & papa" & vbNewLine) & vbNewLine
        txtWrite.Write ligneTexte
    Wend

a+
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

Oui, le traitement s'effectue bien jusqu'a
la fin du fichier

mais l'erreur 62 apparait toujours !

du fait du saut de ligne, je retrouve sur la ligne suivante
une virgule et un espace
comment les supprimer ?
 
Vote positif 0 Vote négatif
mromain

mromain

XLDnaute Barbatruc
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

re bonjour sauvagon,

je n'ai pas ce problème chez moi...
peux-tu joindre des fichiers pour travailler stp :
> fichier txt (à modifier)
> fichier txt (résultat souhaité)

a+
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

Le maman papa et le quai N° 10, c’était pour les tests

Le véritable objectif, c’est d’épurer un fichier HTM

Je sais faire avec frontpage en quelques secondes
Mais c’est par macro que je veut faire

Les instructions se terminant par </a>
doivent avoir un saut de ligne juste après la balise </a>

C’est la après le saut de ligne qu’il y a quelques fois
A la ligne suivante une virgule et un espace que je veut oter

Pour Les instructions commençant par
<a href="……..
Il faut insérer après le <a href=" et avant r2008-03/f7500061.htm
Code: 
http://www.cheval-francais.com/courses/
avant :
<a href="r2008-03/f7500061.htm" target="contenu">Vincennes</a>

Après :
<a href="http://www.cheval-francais.com/courses/r2008-03/f7500061.htm" target="contenu">Vincennes</a>

Le fichier -1 est l’original
Le fichier -2 est le fichier traité en finalité sauf virgule / espace
 

Pièces jointes

  • Test-liens-1.zip
    2.2 KB · Affichages: 41
  • Test-liens-2.zip
    2.3 KB · Affichages: 36
Vote positif 0 Vote négatif
mromain

mromain

XLDnaute Barbatruc
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

Sauvagon à dit:
Le maman papa et le quai N° 10, c’était pour les tests

Le véritable objectif, c’est d’épurer un fichier HTM

Je sais faire avec frontpage en quelques secondes
Mais c’est par macro que je veut faire

Les instructions se terminant par </a>
doivent avoir un saut de ligne juste après la balise </a>

C’est la après le saut de ligne qu’il y a quelques fois
A la ligne suivante une virgule et un espace que je veut oter

Pour Les instructions commençant par
<a href="……..
Il faut insérer après le <a href=" et avant r2008-03/f7500061.htm
Code: 
http://www.cheval-francais.com/courses/
avant :
<a href="r2008-03/f7500061.htm" target="contenu">Vincennes</a>

Après :
<a href="http://www.cheval-francais.com/courses/r2008-03/f7500061.htm" target="contenu">Vincennes</a>

Le fichier -1 est l’original
Le fichier -2 est le fichier traité en finalité sauf virgule / espace
Cliquez pour agrandir...

re,

je t'avoue, là j'ai du mal à comprendre...
ils font mal à la tête tes fichiers :eek:

peux-tu faire un exemple plus simple, de quelques ligne, qui montre le problème :
> quelques lignes "sources"
> ces mêmes lignes "traitées par la macro"
> surtout, le résultat souhaité.

merci
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

Avant manipulation
Code: 
          <td valign=top width=90 nowrap><font face="Arial,Helvetica" size=-1 color="#990099"><b>Sa. 1.3.08</b></font></td>
          <td width=100% valign=top><font face="Arial,Helvetica" size=-1>
<a href="r2008-03/f7500061.htm" target="contenu">Vincennes</a></font></td></tr>

        <tr><td height=5></td></tr>
        <tr>
          <td valign=top width=90 nowrap><font face="Arial,Helvetica" size=-1 color="#990099"><b>Di. 2.3.08</b></font></td>
          <td width=100% valign=top><font face="Arial,Helvetica" size=-1>
<a href="r2008-03/f4701062.htm" target="contenu">Agen-Le Passage</a>, <a href="r2008-03/f0601062.htm" target="contenu">Cagnes-sur-Mer[COLOR="Red"][SIZE="4"]</a>, [/SIZE][/COLOR]<a href="r2008-03/f2801062.htm" target="contenu">Chartres</a>, <a href="r2008-03/f5006062.htm" target="contenu">Cherbourg</a>, <a href="r2008-03/f4905062.htm" target="contenu">Cholet</a>, [COLOR="Red"][SIZE="4"][COLOR="Lime"]<a href="[/COLOR][/SIZE][/COLOR]r2008-03/f1702062.htm" target="contenu">La Rochelle-Chatelaillon</a>, <a href="r2008-03/f7616062.htm" target="contenu">Mauquenchy</a>, <a href="r2008-03/f7104062.htm" target="contenu">Paray-le-Monial</a>, <a href="r2008-03/f4417062.htm" target="contenu">Pontch&acirc;teau</a>, <a href="r2008-03/f2210062.htm" target="contenu">Saint-Brieuc</a>, <a href="r2008-03/f4917062.htm" target="contenu">Saumur</a></font></td></tr>

Code: 
Après manipulation

          <td valign=top width=90 nowrap><font face="Arial,Helvetica" size=-1 color="#990099"><b>Sa. 1.3.08</b></font></td>
          <td width=100% valign=top><font face="Arial,Helvetica" size=-1>
<a href="http://www.cheval-francais.com/courses/r2008-03/f7500061.htm" target="contenu">Vincennes </a></p></font></td></tr>

        <tr><td height=5></td></tr>
        <tr>
          <td valign=top width=90 nowrap><font face="Arial,Helvetica" size=-1 color="#990099"><b>Di. 2.3.08</b></font></td>
          <td width=100% valign=top><font face="Arial,Helvetica" size=-1>
<a href="http://www.cheval-francais.com/courses/r2008-03/f4701062.htm" target="contenu">Agen-Le Passage </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f0601062.htm" target="contenu">Cagnes-sur-Mer </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f2801062.htm" target="contenu">Chartres </a>[COLOR="lime"][SIZE="4"]</p>[/SIZE][/COLOR], <a href="http://www.cheval-francais.com/courses/r2008-03/f5006062.htm" target="contenu">Cherbourg </a></p>, <a href="[COLOR="lime"][SIZE="4"]http://www.cheval-francais.com/courses/r2008-03/[/SIZE][/COLOR]f4905062.htm" target="contenu">Cholet </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f1702062.htm" target="contenu">La Rochelle-Chatelaillon </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f7616062.htm" target="contenu">Mauquenchy </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f7104062.htm" target="contenu">Paray-le-Monial </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f4417062.htm" target="contenu">Pontch&acirc;teau </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f2210062.htm" target="contenu">Saint-Brieuc </a></p>, <a href="http://www.cheval-francais.com/courses/r2008-03/f4917062.htm" target="contenu">Saumur </a></p></font></td></tr>

Utiliser l'ascensseur horizontal pour voir les codes en surbrillance
 
Vote positif 0 Vote négatif
mromain

mromain

XLDnaute Barbatruc
Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements

bonjour Sauvagon,

tu peux vraiment pas faire un exemple plus simple???
je n'arrive même plus a comprendre ce que tu veux exactement...

en attendant, a+
 
Vote positif 0 Vote négatif
S

Sauvagon

XLDnaute Nouveau
Manipuler un Fichier texte(txt) et enregistrer les changements [RESOLU]

Bonjour mromain,

Finalement, j"ai résolu le problème hier soir.

En inversant les manipulations de chaine,
cela fonctionne.

Encore merci pour tes conseils.

@ +

PS: J'ai un autre post d'hier concernant Access,
si tu peut jeter un oeil !
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

T
  • Résolu(e)
XL 2019 Logger les modifications faites sur un autre classeur
Réponses
5
Affichages
198
ThierryP
T
E
  • Question
XL 2010 problème macro qui désactive le pavé numérique
2
Réponses
18
Affichages
672
Dranreb
Dranreb
S
  • Question
Autres Comment envoyer directement un fichier Excel, vers périphérique Bluetooth, après enregistrement?
Réponses
3
Affichages
155
patricktoulon
patricktoulon
B
  • Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
372
job75
job75
B
  • Résolu(e)
Microsoft 365 VBA tabulation
Réponses
2
Affichages
493
BOILEAU
B
mojales
  • Résolu(e)
XL 2021 Enregistrer les modifications faites par VBA sur un Userform
2
Réponses
25
Affichages
946
Dudu2
Dudu2
A
  • Question
Microsoft 365 Fichier de statistique et roulement
Réponses
0
Affichages
121
Aurel’Byylieve
A
klin89
  • Question
Microsoft 365 Formule : Atteindre un seuil et repartir à 0
Réponses
4
Affichages
330
TooFatBoy
TooFatBoy
A
  • Question
XL 2013 Liaisons de données externes avec un fichier contenant un mot de passe
Réponses
14
Affichages
573
Staple1600
Staple1600
A
  • Question
Microsoft 365 Enregistrer des PDF et JPEG automatiquement dont les liens sont dans un fichier excel.
Réponses
3
Affichages
408
Alternance
A

Membres actuellement en ligne

10 membres et 216 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 480
Messages
2 088 757
Membres
103 951
dernier inscrit
Misterb