function replace fichier txt

salut tous le monde,
comment est ce que je peux remplacer dans un fichier "Fichier" la chaine "fi" par "Nouveau"

Code:

---

1 2 3 4 5 6 7 8 9

Public Function rep(Nouveau, Fichier)   open fichier for append as #1   Print #1, text1 replace   Close (1) End Sub

---

merci de completer ce code svp:salut:

Tu as cherché où ?
Tu sais que tu passerais moins de temps à chercher par toi meme des epxlications aussi simples et que par la meme occasion tu ne nous en ferais pas perdre ?

ce que il ya c'est que je n'arrive pas a enregistrer les modification

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function rep(newv, Fichier)   Open Fichier For Input As #1   While Not EOF(1) Input #1, a$ ch = a$ + Chr$(13) + Chr$(10)   ch = Replace(ch, "a", newv)   List1.AddItem ch   Wend Close #1   End Function

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Function RemplaceTxt(Fichier As String, TxtSource As String, TxtDestination As String) Dim Ligne As String Dim Varfichier As String Open Fichier For Input As #1 Do While Not EOF(1) Line Input #1, Ligne Ligne = Replace(Ligne, TxtSource, TxtDestination) varfic = varfic & Ligne & vbCrLf Loop Close #1 'ecriture du fichier Open Fichier For Output As #1 Print #1, Varfichier Close #1 End Function

---