Comment chercher un mot dans un fichier texte et le modifier?Résolu

Question

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.

Renfield · Accepted Answer

lis tout ton fichier, 
fais ta modif (InStr et Mid$)
puis réécris le fichier.

c'est sommes toutes assez basique.

Dim iFile As Integer
Dim sBuffer As String
Dim nPos As Long
    iFile = FreeFile
    Open "C:\a.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:\a.txt" For Output As iFile
            Print #iFile, sBuffer;
        Close iFile
    End If

cs_PetiteAnge · Answer

Je vous remercie infiniment Renfield, ça m'as beaucoup aidé
mais si vous me permettez j'ai encore un problème ça m'a aider pour modifier mon fichier pour une seule fois.
A chaque fois que je veux reexécuter le programme je dois revenir a mon fichier texte et rechanger la nouvelle valeur par le nom standard "NomChamp1" pour que le code puisse excuter la procédure de modification de nouveau.
Je sais pas est ce que vous voyez ce que je veux dire.

Renfield · Answer

utilises deux fichiers...

un modèle, qui contiendrai nomChamp1 et l'autre, le fichier cible.

cs_PetiteAnge · Answer

Oui merci bien,
C'est ce que j'ai déjà fait j'ai fait des copies des fichiers standars et j'ai travaillé sur les copies.
Merci encore une fois.

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

4 réponses

Votre réponse

Discussions similaires