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:
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é:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "<a href="http://www.w3.org/TR/html4/loose.dtd" target="_blank">http://www.w3.org/TR/html4/loose.dtd</a>">
<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 ?