FAQ VBScriptConsultez toutes les FAQ

1
2
3
4
5
Dim st 
st="Bienvenue sur DVP" 
Wscript.Echo Left(st,9) 
Wscript.Echo Mid(st,11,3) 
Wscript.Echo Right(st,3)

1
2
3
4
Dim st 
st = "Bienvenue sur DVP" 
Wscript.Echo Mid(st,11) 
Wscript.Echo Mid(st,11,255)

1
2
3
Dim st 
st="Bienvenue sur DVP" 
Wscript.Echo Len(st)

1
2
3
4
5
6
7
8
9
10
Dim st1 
Dim st2 
' 
' Concaténation de la "valeur" de 2 variable 
' 
st1 = "Bienvenue " 
st2 = "sur dvp" 
Wscript.Echo st1 & st2 
' Une chaîne et une variable : 
Wscript.Echo st1 & " a vous"

1
2
3
4
  
Wscript.Echo "à voir " + st2 
'Attention dans l'utilisation de l'opérateur + 
Wscript.Echo "1" + "2"

1
2
Wscript.Echo "3" + 2 
Wscript.Echo 1+2

Wscript.Echo "a" + 1

1
2
3
4
5
6
Dim st,i,tb 
st="Antoine,Pierre,Jacques,Alain" 
tb = split(st,",") 
For i = lbound(tb) to ubound(tb) 
  Wscript.echo tb(i) 
next

For i = 0 to ubound(tb)

1
2
3
4
5
6
7
8
Dim st,tb(3) 
Tb(0)="Antoine" 
tb(1)="Pierre" 
tb(2)="Jacques" 
tb(3)="Alain" 
  
st = join(tb,",") 
 Wscript.echo st

1
2
pos = InStr(4, "Nous sommes au mois de Juillet.", "Juillet")    'renvoie 24 
pos = InStr(27, "Nous sommes au mois de Juillet.", "Juillet")   'renvoie 0

1
2
3
4
5
6
7
8
9
10
Public Function EmailValide(ByVal email )  
    Dim regEx , occurrences 
    Set regEx = New RegExp 
    regEx.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}\.[a-z]{2,3}$" 
    regEx.IgnoreCase = True 'Ne pas distinguer les minuscules des majuscules 
    regEx.Global = False 'Renvoyer seulement la première occurrence 
    Set occurrences = regEx.Execute(email) 
    EmailValide = (occurrences.Count = 1) 
  
End Function

Set RegularExpressionObject = New RegExp

1
2
3
4
With RegularExpressionObject 
 .Pattern = Pattern 
 .IgnoreCase = Boolean 
End With

RegularExpressionObject.Test(aTester)

1
2
3
4
5
6
7
8
9
Set RegularExpressionObject = New RegExp 
  
With RegularExpressionObject 
 .Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$" 
 .IgnoreCase = False 
End With 
  
MsgBox RegularExpressionObject.Test("172.16.18.21") 
MsgBox RegularExpressionObject.Test("300.22.194.37")

1
2
3
4
Dim toto  
  
toto = "SUPER * 10"  
MsgBox Eval(Replace(toto, "SUPER", 500))

1
2
3
4
5
6
7
8
9
10
Option Explicit  
  
InputBox "", "", Test 
Function Test() 
   Const ForReading = 1 
   Dim fso, F 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(Wscript.ScriptName, ForReading, False) 
   Test = f.ReadAll 
End Function