Comment chercher un mot dans un fichier texte et le modifier?

Version imprimable

13/05/2009, 09h59
Ange_1987

Comment chercher un mot dans un fichier texte et le modifier?

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.
13/05/2009, 10h13
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.

c'est mon jour de bonté :aie:

cocher la référence Microsoft Scripting Runtime

Code:

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

Citation:

Envoyé par Ange_1987

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:

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

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

Code:

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

13/05/2009, 15h38
ucfoutu

Tu ne crois pas que Replace est quand-même plus simple ? ;)
13/05/2009, 15h43
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 ;)

Citation:

Envoyé par Ange_1987

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

Code:

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 ! :aie:

13/05/2009, 18h24
Ange_1987

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