Se connecter avec
S'enregistrer | Connectez-vous

Exécuter un VBScript dans une page HTML

Dernière réponse : dans Programmation

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" "<a href="http://www.w3.org/TR/html4/loose.dtd" target="_blank">http://www.w3.org/TR/html4/loose.dtd</a>"> 
    

  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

Lassé par la pub ? Créez un compte

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

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).
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde