Discussion :

[Ange_1987]

Bonjour,

Avant de poster ma questtion j'ai cherché dans la FAQ VB et les tutoriels VB mais ce j'ai trouvé c'était toujours comment modifier un fichier en lui ajoutant une nouvelle information.
Alors que ce que je désire moi c'est en fait chercher un mot dans un fichier texte associé à une procédure VB, par exemple chercher le mot "NomChamp1" et la changer par "Num_Etudiant" vu que je travaille sur un générateur de code je dois modifier certaines valeurs.
J'ai vraiment besoin de votre aide le plutôt possible.

Et merci d'avance.

[Delbeke]

On ne paut pas modifier une partie d'un fichier texte.
On peut le charger dans une chaine de caractère, faire la modification dans cette chaine, supprimer l'ancien fichier et un recréer un nouveau avec la chaine modifiée.

[ThierryAIM]

c'est mon jour de bonté

cocher la référence Microsoft Scripting Runtime

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
Private Const ForReading = 1
Private Const ForWriting = 2
Private Const ForAppending = 8
 
Private Sub Form_Load()
Dim FSO As FileSystemObject
Dim TxtStream As TextStream
Dim strTextFile As String
 
    Set FSO = New FileSystemObject
    Set TxtStream = FSO.OpenTextFile("c:\Test.txt", ForReading)
    strTextFile = TxtStream.ReadAll
    Set TxtStream = Nothing
    strTextFile = Replace(strTextFile, "NomChamp1", "Num_Etudiant")
    FSO.DeleteFile "c:\Test.txt", True
    Set TxtStream = FSO.CreateTextFile("c:\Test.txt")
    TxtStream.Write strTextFile
    Set TxtStream = Nothing
    Set FSO = Nothing
End Sub

[ucfoutu]

Bonjour,

Alors que ce que je désire moi c'est en fait chercher un mot dans un fichier texte associé à une procédure VB, par exemple chercher le mot "NomChamp1" et la changer par "Num_Etudiant"

Bonjour,

Il ne semble s'agir ici que de transformer une chaîne dans un fichier ...

Il suffit alors de le lire d'un seul trait et d'utiliser la fonction Replace.

Code :

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

1
2
3
4
5
6
    Open "d:\essai.txt" For Input As #1
      present = Replace(Input(LOF(1), 1), "NomChamp1", "Num_Etudiant")
    Close #1
    Open "d:\essai.txt" For Output As #1
      Print #1, present
    Close #1

[Ange_1987]

Merci a vous tous.
C'est bon j'ai trouvé comment faire pour modifier une valeur dans un fichier texte.

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
Dim iFile As Integer
Dim sBuffer As String
Dim nPos As Long
    FileCopy "C:\ ........txt", "C:\......txt"
    iFile = FreeFile
    Open "C:\.........txt" For Input As iFile
        sBuffer = Input(LOF(iFile), iFile)
    Close iFile
     nPos = InStr(sBuffer, "NomChamp1")
    If nPos Then
        sBuffer = Left$(sBuffer, nPos - 1) & "Num_Etudiant" & Mid$(sBuffer, nPos + 9)
        Open "C:\.........txt" For Output As iFile
            Print #iFile, sBuffer;
        Close iFile
    End If

[ucfoutu]

Tu ne crois pas que Replace est quand-même plus simple ?

[ThierryAIM]

ucfoutu, tu as raison sur le fond !

Sur la forme, avec mon idée (qui n'est peu-être pas la meilleure) on peut faire toutes les requêtes de modification que l'on veut avant enregistrement de la chaine finale

perso : salut ucfoutu

[ThierryAIM]

Merci a vous tous.
C'est bon j'ai trouvé comment faire pour modifier une valeur dans un fichier texte.

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
Dim iFile As Integer
Dim sBuffer As String
Dim nPos As Long
    FileCopy "C:\ ........txt", "C:\......txt"
    iFile = FreeFile
    Open "C:\.........txt" For Input As iFile
        sBuffer = Input(LOF(iFile), iFile)
    Close iFile
     nPos = InStr(sBuffer, "NomChamp1")
    If nPos Then
        sBuffer = Left$(sBuffer, nPos - 1) & "Num_Etudiant" & Mid$(sBuffer, nPos + 9)
        Open "C:\.........txt" For Output As iFile
            Print #iFile, sBuffer;
        Close iFile
    End If

là, pour le coup c'est une usine à gaz pour rien et ucfoutu à raison !

[Ange_1987]

Oui, vous avez parfaitement raison.
C'est beaucoup plus simple aves Replace.
Je vous remercie infiniment.