Discussion :

[RomBon]

Bonjour à tous.
Je vous expose mon problème :
je dois coder un programme sous VBA pour rechercher et supprimer des données récurrentes dans un bloc notes. Je m'explique :
Mon bloc note contient des lignes (en têtes) récurrents (dans le fichier joint : Jour"n" Séquence"x" Alinéa"y").
Le paramètre "Alinéa"y"" n'est pas toujours présent sur chaque entête.

Au final je veux supprimer les paramètres "Jour" et "Séquence" sans supprimer la ligne, et garder le paramètre "Alinéa" si celui-ci est présent.

Par avance je vous remercie, et je vous joint le dossier
fichier.txt

[patricktoulon]

bonjour ton exemple n'est pas très représentatif de ton besoin

en effet
en première ligne tu a jour.. sequence ..... mais pas alinea alors on fait quoi sur cette ligne

dans une autre tu a "aliné" on fait quoi avec celle la

toi tu a essayé quoi comme code?

[RomBon]

Justement c'est bien le principe de la manœuvre, sur certaines lignes (en têtes) il y a "Alinéa" et pas sur d'autres.
Comme je dis plus haut, je veux supprimer "Jour" et "Séquence" sur chaque en-tête et garder "Alinéa" s'il est présent.
J'utilise une boucle "Do while" qui fonctionne pour enlever "Jour" mais c'est ensuite que je bloque pour identifier les espaces dans bloc notes et garder "Alinéa" s'il est présent.

[patricktoulon]

bonjour j'utilise la methode open de VBA qui ouvre le fichier texte en mémoire
le reste n'est qu'une boucle for avec 2 if
if 1 = si il y a jour ou séquence
if2 imbriqué dans le premier = if like "alinea"
dans le if2 si il y a alinea donc on coupe a alinea sinon on vide la ligne
point barre c'est fini

méthode open vba pour créer et écrire cette fois ci dans un newfichier le résultat obtenu
adapte le chemin de ton fichier 1 et 2 dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test1()
    Dim fichier As String, tabl, newtext As String
    Dim lines As String, i As Long, x
 
    fichier = "C:\Users\polux\Downloads\fichier.txt"
    x = FreeFile: Open fichier For Input As #x: lines = Input$(LOF(x), #x): Close #x
    tabl = Split(lines, vbCrLf)
    'Debug.Print lines
    For i = 0 To UBound(tabl)
        If tabl(i) Like "*Jour*" Or tabl(i) Like "*Séquence*" Then
            If tabl(i) Like "*Alinéa*" Then tabl(i) = "Alinéa" & Split(tabl(i), "Alinéa")(1) Else: tabl(i) = ""
        End If
    Next
    newtext = Join(tabl, vbCrLf)
    'Debug.Print newtext
    fichier = "C:\Users\polux\Downloads\fichier2.txt"
    x = FreeFile:    Open fichier For Output As #x: Print #x, newtext: Close #x
End Sub

voila pas besoin du blok note

[RomBon]

Ecoute ça a l'air de fonctionner, merci à toi !