Créer un histogramme en VBS

VBS n'est vraiment pas adapté à la présentation de chiffres sous forme de graphiques.

Et pourtant, il est très facile de créer des histogrammes avec vbs et de les afficher comme des pages html. Il suffit en VBScript de créer un fichier texte dans lequel on inscrit un certain nombre de balises <IMG> pointant vers une image quelconque. En ajustant la taille des images, on peut en faire un histogramme tout à fait présentable :

Set fs = CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile("C:\rien.html", 2, true)
fich.writeLine "<HTML><BODY>
fich.writeLine "<IMG SRC='vbs.gif' height=20 width=" & valo & "></IMG>"
... (valo est la valeur de la donnée à représenter. Le VBS peut la récupérer dans un fichier texte contenant les données ou bien dans une chaine de données saisie par l'utilisateur, cf fichier exemple). voiture
bagnole
carosse
auto
vehicule
R21
tuture
Rosalie
caisse

Cliquez ici pour accéder au Script "graphique.vbs"
Cliquez ici pour accéder au texte du script
Cliquez ici pour accéder au Script zippé