Description
Langage script découlant du Visual Basic. Très utilisé pour les pages ASP.
Le visual basic est indifférent à la case [majuscule/minuscule]
Commentaires
Portée: De l'apostrophe simple jusqu'à la fin de la ligne.
Exemple: ' ceci est un commentaire!
Déclaration de variable
Simple
Dim nomVariable
Affectation: nomVariable = valeur
Tableau
Syntaxe:
Dim nomTableau (nbElement)
Il y a nbElement + 1 éléments dans un tableau, car l'élément 0 et nbElement existe.
Exemple "Dim tab (2)" à trois élément: tab(0), tab(1) et tab(2).
Affectation: nomTableau(1) = valeur
Types de variables
Chaines de caractères
Entouré de guillemets double, pour afficher des guillemets double dans une chaine de caractère ou faut les doubler soit "". Par exemple: "Ceci est des doubles guillemet : "" et celui-ci ferme la chaîne."
Concaténation : avec le signe : &
Exemple: chaine3 = "un texte" & chaine3
Note, pour une chaine de caractère : des guillemets double, ""
Objets
Affectation: Set nomObjet = objet
Destruction: Set nomObjet = nothing
Procédures et fonctions
Appel:
nomSub param1, ... varRetour = nomFonction (param1, ...)
Sub nomSub ([param]) ... End Sub
Définit une procédure sans retour possible.
Syntaxe:
Sub nomSub ([param, ...])
[instructions...]
End Sub
Function nomFunction ([param]) ... End Function
Définit une procédure avec un retour possible.
Syntaxe:
Function nomFunction ([param, ...])
[instructions...]
nomFunction = valeurRetour
End Function
N.B.: il peut y avoir plusieurs retour mais la fonction s'arrête au premier retour rencontré.
Condition
If (...) Then ... End If
Syntaxe:
If (condition) Then
instructions...
End If
If (condition) Then
instructions...
Else
instructions si la condition n'est pas remplie...
End If
If (condition) OR (condition) Then
instructions exécutés si une condition est vraie.
End if
If (condition) AND (condition) Then
instructions exécutés si les deux conditions sont vraies.
End if
La condition d'égalité se fait avec le signe = et non le signe == de c++.
Boucles
For ... to ... [step] ... next [...]
Syntaxe:
For nomVar = valeurDepart to valeurFin [step valeurPas]
instructions...
Next [nomVar]
Sortie d'urgence d'un for: "end for"
While condition ... Wend
Syntaxe:
While conditionVrai
instructions...
Wend
Fonction
Les dates
DATE()
Retourne la date du jour (mois jour an).
DATEADD("attribut", nbAjouter, date)
Retourne une date avec une valeur ajoutée à "date".
"d" : ajoute des jours
"m" : ajout des mois
Exemple:
premier_jour_du_mois = DATEADD("d",1-DAY(adate),adate) 'enlever 1 jour de moins que la journée de la date
premier_jour_du_mois_suivant = DATEADD("m",1,premier_jour_du_mois) ' ajouter 1 mois
dernier_jour_du_mois_precedent = DATEADD("d",-1,premier_jour_du_mois) ' enlever 1 jour
DAY(date)
Retourne la journée d'une date (en chiffre).
MONTH(date)
Retourne le numéro du mois d'une date (en chiffre). (1 à 12)
NOW()
Retourne la date d'aujourd'hui.
WEEKDAY(date)
Retourne le jour de la semaine d'une journée (1 = dimanche, 7=samedi).
Exemple: day_num = -WEEKDAY(first_day)+2 ' brillant! pour faire un calendrier!
YEAR(date)
Retourne l'année d'une date (en chiffre).
String (chaîne de caractères)
Chr(intCodeAscii)
Retourne un caractère ascii correspond au numéro envoyé. Voir tables Ascii
CHR(13) ' retour de ligne (\n)
Split(String1, String2, Integer)
Sépare une chaîne de caractère (String1) avec l'élément séparateur String2 et retourne chaque élément dans un Array [tableau]. Integer = -1
MyArray = Split("a*b*c*d*e", "*", -1)
' MyArray(0) = a, MyArray(1) = b...
Conversion
Int(string)
Convertit une chaîne de caractères en nombre entier.
Les chaines de caractères (string)
INSTR(chaine As String, recherche As String) As Variant
Recherche la chaine 'recherche' dans la chaine de départ 'chaine' et
retourne la position de la première occurance.
1 = 1ere position
0 = chaine non trouvée.
REPLACE(chaine As String, recherche As String, remplacement As String) As String
Remplace la chaine 'recherche' par la chaine 'remplacement' dans la chaine de départ 'chaine' et retourne une chaine où toutes les occurences de 'recherche' ont été remplacés par 'remplacement'.
Hyperliens...