Déclarations

Contrairement à beaucoup d'autres langages, le vbs n'est pas sensible à la casse.

• LÉGENDE

src - source

nm - nom

var - variable

expr - expression

ins - instruction

arg - argument

cond - condition

• Déclaration

option explicit - force déclaration de toutes variables dans scr

dim nm(src) - variable

redim [preserve] var(src)

const nm=expr - constante

• Procédure - execute instructions

sub nm(arg1,arg2,...)

[ins]

[exit sub]

[ins]

end sub

• Fonction - retourne une valeur en sortie à nm

function nm(arg1,arg2,...)

[ins]

[nm=expr]

[exit function]

[ins]

[nm=expr]

end function

• Get - comme fonction simple

property get nm(arg1,arg2,...) as [type]

...

[ins]

[nm=expr]

end property

• Let - comme fonction simple

property let nm(arg1,arg2,...)

...

[ins]

end property

• Set - comme fonction simple

property set nm(arg1,arg2,...)

...

[ins]

end property

• Classe - retourne initialize || terminate

class ClassName

[var]

Private Sub Class_Initialize()

[ins]

End Sub

Private Sub Class_Terminate()

[ins]

End Sub

Public Function NomMethode([arg])

[ins]

End Function

end Class

nota : const/sub/function/property sont déclarables en [public [default] | private]

Exemple 1

  public function nm(args)  ' pour tout le fichier

Exemple 2

sub nm(args)
  private const=expr  ' n'est déclarée et n'est valable que dans la procédure
end sub

Instructions de contrôle

• TEST

If cond Then [ins] Else [ins]

If cond1 Then
 [ins]
Elseif cond2 Then
 [ins]
Else
 [ins]
Endif

Select Case expression
 Case expr1
  [ins]
 Case expr2
  [ins]
 Case Else
  [ins]
End Select

• BOUCLE

For cpt = début To fin [Step pas]
 [ins]
 [Exit For]
 [ins]
Next [cpt]

For Each élément In groupe
 [ins]
 [Exit For]
 [ins]
Next

Do [{While | Until} condition]
 [ins]
 [Exit Do]
 [ins]
Loop

Do
 [ins]
 [Exit Do]
 [ins]
Loop [{While | Until} condition]

While condition
 [ins]
Wend

• APPELS

With obj
 [ins]
End With

Call nom [args]

• ERREURS

On Error Resume Next
On Error Goto 0

• REMARQUES

Rem

• AFFECTATION DE REFERENCES

Set objvar=[obj expr | New classname | Nothing ]

• ASSOCIATION DE REFERENCE

Set object.eventname=GetRef(procname)

conversion et mise en forme

• CBool(expr) - conversion en variant booleen
• CByte(expr) - conversion en variant byte
• CCur(expr) - conversion en variant currency
• CDate(expr) - conversion en variant date
• CDbl(expr) - conversion en variant double
• CInt(expr) - conversion en variant integer
• CLng(expr) - conversion en variant long
• CSng(expr) - conversion en variant single
• CStr(expr) - conversion en variant string
• FormatCurrency(expr,[NumDigitsAfterDecimal],[IncludeLeadingDigit],[UseParensForNegativeNumber],[GroupDigits]) - conversion formatée en variant currency
• FormatDateTime(date,[NamedFormat]) - conversion formatée en variant date
• FormatNumber(expr,[NumDigitsAfterDecimal],[IncludeLeadingDigit],[UseParensForNegativeNumber],[GroupDigits]) - conversion formatée en variant nombre
• FormatPercent(expr,[NumDigitsAfterDecimal],[IncludeLeadingDigit],[UseParensForNegativeNumber],[GroupDigits]) - conversion formatée en variant percent
• Hex(nbr) - conversion en variant hexadecimal
• IsArray(expr) - renvoit booleen si tableau
• IsDate(expr) - renvoit booleen si date
• IsEmpty(expr) - renvoit booleen si vide
• IsNull(expr) - renvoit booleen si null
• IsNumeric(expr) - renvoit booleen si nbr
• IsObject(identifier) - renvoit booleen si obj automation
• Oct(nbr) - conversion en string octal

mathématiques

• Abs(nbr) - renvoie valeur absolue
• Atn(nbr) - renvoie arc tangent
• Cos(nbr) - renvoie cosinus
• Exp(nbr) - renvoie la puissance
• Int(nbr) - renvoie partie entière
• Fix(nbr) - renvoie partie entière
• Log(nbr) - renvoie log népérien
• Sqr(nbr) - renvoie racine carrée
• Tan(nbr) - renvoie tangente
• Sgn(nbr) - renvoie signe
• Randomize(nbr) - init nbr aleatoire !!les nombres ne sont pas aleatoire en vbs!!
• Rnd(nbr) - renvoie nbr aleatoire
• Round(expr,[numdecimalplaces]) - renvoie l'arrondi
• Sin(nbr) - renvoie sinus

de traitement de chaînes

• Asc(string) - renvoie code ansi du 1er char
• Chr(charcode) - renvoie le char du code ansi
• inStr(start,string,string2,[compare]) - renvoie 1ère position d'un string dans un autre
• InStrRev(delimiter) - renvoie position d'un string dans un autre en partant de fin
• Join(string) - renvoie string joins partant d'un tableau
• LCase(string) - conversion en minuscule
• Left(string,length) - renvoie sous string partant de gauche
• Len(string) - renvoie nbr de char dans string
• LTrim(string) - renvoie string sans espace à gauche
• Mid(string,start,[length]) - renvoie sous string partant de milieu
• Replace(expr,find,replacement,[start],[count],[compare]) - remplace string dans string
• Right(string,length) - renvoie sous string partant de droite
• RTrim(string) - renvoie string sans espace à droite
• StrComp(string1,string2,[compare]) - renvoie valeur de comparaison de string
• String([nbr],[char]) - renvoie string de char repete
• StrReverse(string) - renvoie string inverse
• Space(nbr) - renvoie string de space
• Trim(string) - renvoie string sans espace ni gauche ni droite
• UCase(string) - renvoie string en majuscule

de date et d'heure

• Date() - renvoie date sys
• DateAdd(interval,nbr,Date) - renvoie date + interval. Ex : DateAdd("d", -1, now) affiche la date de la veille.
• DateDiff(interval,date1,date2,[firstdayofweek],[firstdayofyear]) - renvoie interval
• DatePart(interval,Date,[firstdayofweek],[firstdayofyear]) - renvoie partie spécifiée
• DateSerial(Year,Month,Date) - renvoie variant de type date
• DateValue(Date) - renvoie variant de type date
• Day(Date) - renvoie jour du mois
• Hour(Time) - renvoie heure
• Minute(Time) - renvoie minute
• Month(Date) - renvoie mois en chiffre
• MonthName(Month,[abbreviate]) - renvoie mois en lettre
• Now() - renvoie date et heure sys
• Second(Time) - renvoie seconde
• Time() - renvoie heure sys
• Timer() - renvoie nbre de sec depuis 00:00
• TimeSerial(Hour,Minute,Second) - renvoit variant de type date
• TimeValue(Time) - renvoit variant de type date
• Weekday(Date,[fistdayofweek]) - renvoie jour semaine en chiffre
• WeekdayName(Weekday,abbreviate,firstdayofweek) - renvoie jour semaine en lettre
• Year(Date) - renvoie annee de date

liées aux tableaux

• Array(arg) - renvoie variant contenant tableau
• Erase tableau - libère tableau
• Filter(InputStrings,Value,[Include],[compare]) - renvoie tableau commençant par 0 contenant sous ensemble de string
• LBound(arrayname,[dimension]) - renvoie plus petit indice tableau
• Split(expr,[delimiter],[count],[compare]) - renvoie tableau commençant par 0 comprenant # de string
• UBound(arrayname,[dimension]) - renvoie plus grand indice tableau

Autres fonctions

• CreateObject(class) - renvoie ref à objet automation
• Eval(string) - renvoie resultat
• Execute ins - execute ins
• ExecuteGlobal ins - execute ins globale
• GetLocale() - renvoie valeur ID parametre regionnaux sys
• GetObject([pathname],[class]) - renvoie ref à objet automation de fichier
• GetRef(string) - renvoie ref à procedure
• InputBox(prompt,[title],[default],[xpos],[ypos],[helpfile],[context]) - prompt
• LoadPicture([stringexpr) - renvoie img
• MsgBox(prompt,[buttons],[title],[helpfile],[context]) - msgbox
• RGB(red,green,blue) - renvoie int rgb
• ScriptEngine() - renvoie string de script utilisé
• ScriptEngineBuildVersion() - renvoie N° version
• ScriptEngineMajorVersion() - renvoie N° version principale
• ScriptEngineMinorVersion() - renvoie N° version secondaire
• SetLocate(Icid) - def param regionnaux globaux
• TypeName(varname) - renvoit string d'info sur variant
• VarType(varname) - renvoit valeur sous type de var

Pour déclarer ses propres fonctions, voir le chapitre Application.

Erreur de syntaxe

Erreur à l'exécution

Qu'est-ce qu'un programme

Un programme est une suite d'instructions qui comporte des traitements sur des données.

• Légende des abréviations utilisées ici :

Type de variable

• VAR

Une var sous vbs est en mode auto, ainsi lorsque l'on affecte une valeur ou [expr] à [], le [str] est typé en fonction de son contenu ce qui n'est pas toujours vrai en visual basic.

'déclaration
Dim var1,var2,var3
var1=10.3
var2="il etait une fois"
var3=var1&var2

! On ne peut effectuer d'opération sur var1 et var2 en var3 car elles ne sont pas de même type. Seule la concaténation fonctionne ici.

• CONST

Une constante est une valeur qui ne change pas.

Const1=15
Const2=30
Const3=Const1+Const2

• ARRAY

Un tableau est une var contenant n cellule []. On peut y stocker des [str]. Un array se déclare comme une var et reçoit des valeurs. Chaque cellule a un indice, ainsi la cellule n°n a l'indice n.

dim MonTableau()
'on definit le nombre de [] de MonTableau
Redim MonTableau(10)
For cpt=0 to 9
 MonTableau(cpt)="Cellule_"&cpt
Next
MsgBox MonTableau(1)

'>Cellule_1

! La première cellule a l'indice 0. MonTableau(1) ou la deuxième cellule de MonTableau aura donc pour [str]="Cellule_1".

Procédures

Sub permet de déclarer nom [args] et [ins] formant la procédure. Son but est d'exécuter des [ins].

[Public [Default] | Private] Sub Nom_Procédure [(arg1,arg2,...)]

[ins]

End Sub

• Sans arguments

'Afficher l'heure système
Sub heure()
 MsgBox Now()
End Sub
heure()

On déclare ici la procédure heure() - sans [arg] - qui > now() - procédure affichant heure sys. On appelle ensuite l'exécution de cette procédure.

• Avec arguments

'calc + et >
Sub adi(a,b)
 Dim somme
 somme=a+b
 MsgBox somme
End Sub
Call adi(15,20)

'>35

Vous remarquez ici que Dim déclare [somme] en tête du sous-programme adi qui est appelé avec deux args/paramètres définis par adi(a,b).

Fonctions

Function permet de déclarer nom [args] et [ins] formant la fonction. Son but est de retourner une valeur. Sinon, autant utiliser une procédure.

[Public [Default] | Private] Function Nom_Fonction [(arg1,arg2,...)]

[ins]

Nom_fonction=[expr]

End Function

La fonction à Nom_Fonction comme point d'entrée () et retourne Nom_Fonction=[expr] en sortie(). Vous comprenez maintenant ? Un programme c'est un pipeline, les [res] ne font que passer d'un bout à l'autre jusqu'au terminus, l'écran ou un fichier ou autre :)

! Il est impossible de créer Function à l'intérieur de Sub et réciproquement.

• Sans arg

Function Addition1()
 a=10
 b=15
 Addition1=a+b
End Function
MsgBox Addition1()

• Avec arg

Function Addition(val1, val2)
  Addition = val1 + val2
End Function
MsgBox Addition(10,15)

'>25

• Autre exemple

'calc (a-b)/c >
Function calc(a,b,c)
 calc=(a-b)/Round(c)
End Function
MsgBox calc(15,10,2.5)&vbcrlf&Abs(calc(10,20,30))

! Dans calc() Round retourne directement l'arrondi. À la ligne 5, le pipe s'effectue de la plus petite parenthèse à l’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'.

Références

1. ↑ http://www.devguru.com/technologies/vbscript/quickref/filesystemobject_deletefile.html
2. ↑ http://msdn.microsoft.com/en-us/library/e1wf9e7w%28v=vs.85%29.aspx
3. ↑ http://www.computing.net/answers/programming/vbs-set-subdirectories-files-too/9928.html
4. ↑ http://msdn.microsoft.com/en-us/library/t5399c99%28v=vs.84%29.aspx
5. ↑ http://stackoverflow.com/questions/11143764/vbscript-and-sql-server-2008-questions
6. ↑ http://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/

• http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/filesfolders/folders/

GFDL

Vous avez la permission de copier, distribuer et/ou modifier ce document selon les termes de la licence de documentation libre GNU, version 1.2 ou plus récente publiée par la Free Software Foundation ; sans sections inaltérables, sans texte de première page de couverture et sans texte de dernière page de couverture.