webding | Bonjour, je voudrais utiliser un VBScript de remplacement de chaînes de caractères dans une page html, j'ai trouvé un script VBScript et HTML pour copier une chaîne de caractères dans le presse papier de windows et j'ai essayé une petite adaptation. Voici mon VBScript de remplacement de chaînes de caractères:
Code :
- Const ForReading = 1, ForWriting = 2, ForAppending = 8
- Dim fso, f
- Dim st
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set f = fso.OpenTextFile("fichier.txt", ForReading)
- st = f.readAll
- f.Close
- Set f = fso.OpenTextFile("fichier.txt", ForWriting)
- f.Write replace(st,"chaine1","chaine2" )
- f.close
|
Voici ce que j'ai essayé:
Code :
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <title>Document sans nom</title>
- </head>
- <body>
- <script language="VBScript" type="text/javascript">
- Const ForReading = 1, ForWriting = 2, ForAppending = 8
- Dim fso, f
- Dim st
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set f = fso.OpenTextFile("fichier.txt", ForReading)
- st = f.readAll
- f.Close
- Set f = fso.OpenTextFile("fichier.txt", ForWriting)
- f.Write replace(st,"chaine1","chaine2" )
- f.close
- </script>
- </body>
- </html>
|
Y-a-t-il un forumeur ici qui puisse m'éclairer ? Message édité par webding le 13-08-2006 à 18:33:26
|