Discussion :

[bailamos]

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

Code :

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

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

[OhMonBato]

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 ?

[bailamos]

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

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
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

[bailamos]

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
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