help me en vb - Page 1

Bonjour à tous,
voilà mon ptit problème
j'aimerais savoir comment on fait pour chercher une chaine de caractere dans un fichier html et le remplace par un autre, merci d'avance

Public Function ReplaceHtml(ByVal Filename As String, ByVal FindStr As String, ByVal ReplaceStr As String) As Boolean
Dim File As Integer
Dim oldString As String, newString As String

'if an error occures, likely with IO
On Error GoTo ErrReplaceHtml

'get a file number
File = FreeFile
'size the buffer
oldString = Space(FileLen(Filename))

'store the hmtl file in oldString
Open Filename For Binary Access Read As File
Get File, , oldString
Close File

'Replace all the FindStr by ReplaceStr
newString = Replace(oldString, FindStr, ReplaceStr, 1, -1, vbBinaryCompare)
If newString = Null Then GoTo ErrReplaceHtml

'get a file number
File = FreeFile
'erase the former file
Kill Filename

'store newString in the html file
Open Filename For Binary Access Write As File
Get File, , oldString
Close File

'it's all right
ReplaceHtml = True
Exit Function

'here when error
ErrReplaceHtml:
'close all opened files
Close
End Function

---

Je viens juste de l'écrire pour toi mais je ne l'ai pas essayé.
Si ça marche pas répond-moi.

PS : J'espère que tu comprends l'anglais sinon je dois tout remettre en forme et c'est galère.