Se connecter / S'enregistrer
Votre question

Exécuter un VBScript dans une page HTML

Tags :
  • Script
  • Programmation
Dernière réponse : dans Programmation
13 Août 2006 18:27:58

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:

  1. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  2. Dim fso, f
  3. Dim st
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. Set f = fso.OpenTextFile("fichier.txt", ForReading)
  6. st = f.readAll
  7. f.Close
  8. Set f = fso.OpenTextFile("fichier.txt", ForWriting)
  9. f.Write replace(st,"chaine1","chaine2")
  10. f.close

Voici ce que j'ai essayé:

  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  5. <title>Document sans nom</title>
  6. </head>
  7. <body>
  8.  
  9.  
  10.  
  11. <script language="VBScript" type="text/javascript">
  12. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  13. Dim fso, f
  14. Dim st
  15. Set fso = CreateObject("Scripting.FileSystemObject")
  16. Set f = fso.OpenTextFile("fichier.txt", ForReading)
  17. st = f.readAll
  18. f.Close
  19. Set f = fso.OpenTextFile("fichier.txt", ForWriting)
  20. f.Write replace(st,"chaine1","chaine2")
  21. f.close
  22. </script>
  23.  
  24.  
  25.  
  26. </body>
  27. </html>

Y-a-t-il un forumeur ici qui puisse m'éclairer ?

Autres pages sur : executer vbscript page html

Anonyme
14 Août 2006 15:14:28

Essaye de donner un nom au scipt ou defini le comme fonction

Public Sub Mafonction
'**ton code**
End Sub

puis tu fais aussi <body onload="Mafonction">.
Je suis pas sur pour la syntaxe mais si ca peut t'aider.
Anonyme
16 Août 2006 15:19:19

Ca a marché ?
Contenus similaires
18 Mai 2011 16:38:40

<script language="VBScript" type="text/javascript"> ne peux pas marcher car on a un langage vbscript et un type javascript si jamais tu utilise les 2 il te faut deux fonction script
<script language="javascript" type="text/javascript">
<script language="VBScript" type="text/vbscript">
18 Mai 2011 17:28:00

Solution qui marche (mettre le chemin des fichiers et readAll() prend des parenthèses :

<script language="VBScript">
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile("c:\__\fichier.txt", ForReading)
st = f.readAll()
f.Close
Set f = fso.OpenTextFile("c:\__\fichier.txt", ForWriting)
f.Write replace(st,"chaine1","chaine2" )
f.close
</script>


Par contre il faut autoriser les activex non marqués comme sécurisés dans le navigateur IE (ton script ne marchera pas avec autre chose qu'IE).
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS