Discussion :

[Zapsalis]

Bonjour,

Voici mon problème, j'ai un fichier txt que j'ouvre avec NotePad++ et que je modifie, le seul problème que j'ai c'est que je n'arrive pas a écrire cette modification à un endroit précis dans mon fichier texte, je pensais pourtant utiliser la bonne méthode.
Le texte s'affiche tout en haut de mon fichier au niveau de la première ligne, au lieu de s'afficher juste au dessus de la ligne où il y a le mot "COMMIT".

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
19
20
21
22
23
24
 
Sub TextModifTEST()
     Dim TXT As String
     Dim TextLine As String
     Dim FileName As String
     Dim k As Integer
 
     k = FreeFile
    FileName = CheminDeMonFichier
 
    Open FileName For Input As #k 'Ouverture du fichier en lecture.
    Do While Not EOF(k)
        Line Input #k, TextLine 'Lecture de la ligne
        If InStr(1, TextLine, "COMMIT") <> 0 Then
            MsgBox TextLine
            TXT = TXT & AjouterText() 'Si le test est concluant j'ajoute mes valeurs
        End If
        TXT = TXT & TextLine & vbCrLf 'Je concat+ène mon texte
    Loop
    Close #k
    Open FileName For Output As #k 'Ouverture du fichier en écriture.
    Write #k, TXT 'Je stock dans mon fichier la variable TXT
    Close #k
End Sub

De plus, lorsque je rajoute un msgbox textLine, pour voir quelle ligne s'affiche, cela affiche tous mon fichier et non pas ligne par ligne, comme si mon fichier n'était qu'une seule ligne alors qu'il y a bien 60 lignes environ.

Merci,
Zapsalis

[micniv]

Bonjour,
Ce code devrait le faire :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub TextModifTEST()
    Dim s1 As String, s2 As String, s3 As String, sLine As String, sFileName As String
    Dim k As Integer, p As Integer
 
    k = FreeFile
    sFileName = "D:\temp\_vba tests\bd options test.txt"     '1005 octets ' CheminDeMonFichier
 
    Open sFileName For Input As #k       'Ouverture du fichier en lecture
 
    Do While Not EOF(k)
        Line Input #k, sLine    'Lecture de la ligne
        'If InStr(1, sLine, "COMMIT") <> 0 Then
        p = InStr(1, sLine, "Sub WebReq()")  ' position de l'insertion dans la ligne
          'Debug.Print p, sLine
        If p <> 0 Then
            Debug.Print sLine       ' debug.print affiche les variables dans la fenêtre Exécution du VBE
            s2 = Mid(sLine, 1, p - 1)                   ' le debut de la ligne jusqu'à p
            Debug.Print s2
            s3 = Right(sLine, Len(sLine) - (p - 1))  ' le reste de la ligne
            Debug.Print s3
            s1 = s1 & s2 & AjouterText() & " " & s3    ' le test est concluant j'ajoute mes valeurs
        Else
            s1 = s1 & sLine & vbCrLf        'concatène les lignes lues
        End If
 
    Loop
   Close #k
   Open sFileName For Output As #k    'Ouverture du fichier en écriture.
    Write #k, s1                              ' écrire la variable dans le fichier
    Close #k
    Debug.Print "traitement terminé"
End Sub

[Zapsalis]

Bonjour,

Merci beaucoup, ça marche effectivement comme je le voulais.

Bonne journée.

Zapsalis.