Tom's Guide > Forum > Programmation > Exécuter un VBScript dans une page HTML

Exécuter un VBScript dans une page HTML

Forum Programmation : Exécuter un VBScript dans une page HTML

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

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 :
  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é:

Code :
  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. <script language="VBScript" type="text/javascript">
  9. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  10. Dim fso, f
  11. Dim st
  12. Set fso = CreateObject("Scripting.FileSystemObject" )
  13. Set f = fso.OpenTextFile("fichier.txt", ForReading)
  14. st = f.readAll
  15. f.Close
  16. Set f = fso.OpenTextFile("fichier.txt", ForWriting)
  17. f.Write replace(st,"chaine1","chaine2" )
  18. f.close
  19. </script>
  20. </body>
  21. </html>


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


Message édité par Etodux le 13-08-2006 à 18:33:39
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

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.

------------------------------ Codialement, Hrusdik.
Répondre à Hrusdik

Ca a marché ?

------------------------------ Codialement, Hrusdik.
Répondre à Hrusdik
Tom's Guide > Forum > Programmation > Exécuter un VBScript dans une page HTML
Aller à :

Il y a 481 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens