« Programmation VBScript/Application » : différence entre les versions

Contenu supprimé Contenu ajouté
Aucun résumé des modifications
Ligne 279 :
MsgBox calc(15,10,2.5)&vbcrlf&Abs(calc(10,20,30))
</source>
! Dans calc() Round retourne directement l'arrondi. A la ligne 5, le pipe s'effectue de la plus petite parentheseparenthèse à l'interieurl’intérieur, ici calc(10,20,30) pour retourner sa valeur a Abs() qui retourne sa valeur en même temps que calc(15,10,2.5) > [str] > MsgBox qui affiche [str]. C'est simple comme 'Hello World'.
 
= Classe d'objets =
Ligne 301 :
<source lang="vb">
'------------------------------------
'- ouvre une classclasse et creecrée tableau -
'- place des articles dedans -
'- affiche l'article par numeronuméro -
'------------------------------------
On Error Resume Next
Ligne 354 :
! On initialise et on termine une classe pour libérer la ressource apres usage. On declare plusieurs fonctions qui sont les methodes à appeler. Les Init et Termin sont en private car utile que dans la classe, en revanche toute autre function ou sub doit être public pour l'E/S hors classe.
 
Pour utiliser une classe :
*on initialise d'abord l'objet obj= new NomDeClass;
*on appele la methode dans l'objet obj.NomDeFonction([arg]);
*comme dans fonction ordinaire [arg] [var] [expr] < en parametre ;
*Voir cet [http://jerome.developpez.com/tutos/classesvbscript/ article]
 
Ligne 371 :
Response.Write("Le fichier a été supprimé.")
End If
filesys.CopyFile "c:\NouveauFichier.txt", "c:\NouvelAncienFichier.txt" ' Ecrase si existant
</source>
 
 
VBS peut aussi faire plus en utilisant [[{{w:WSH|WSH]]}} (Windows Script Host)<ref>http://www.computing.net/answers/programming/vbs-set-subdirectories-files-too/9928.html</ref>.
 
 
Pour lire et écrire dans un fichier, utiliser la méthode ''OpenTextFile()'' du ''FileSystemObject''<ref>http://msdn.microsoft.com/en-us/library/t5399c99%28v=vs.84%29.aspx</ref>.
 
= Bases de données =
Pour encapsuler du [[SQL]] dans du VBS pour Windows SQL server, créer une connexion {{w|ADOdb}}<ref>http://stackoverflow.com/questions/11143764/vbscript-and-sql-server-2008-questions</ref> :
<source lang=vb>
Set cnx = CreateObject("ADODB.Connection")
cnx.ConnectionString = "Provider=SQLOLEDB.1; Server=NomDuServeur; Database=NomDeLaBase; User ID=NomUtilisateur; Password=MotDePasse"
cnx.Open
Requete = "select Nom, Prenom from Utilisateur"
set recordset = cnx.execute(Requete)
 
msgbox recordset('Prenom') & " " recordset('Nom')
</source>
 
==Références==