Category

Keywords

Options

Option Explicit   ' Force explicit variable declaration.

Dim MyVar   ' Declare variable.

MyInt = 10   ' Undeclared variable generates error.

MyVar = 10   ' Declared variable does not generate error.

Rounding

Dim MyNumber

MyNumber = Abs(50.3)  ' Returns 50.3.

MyNumber = Abs(-50.3) ' Returns 50.3.

Dim MyVar, pi

pi = 3.14159

MyVar = Round(pi, 2) ' MyVar contains 3.14.

Dim var1, var2, var3, var4, var5

var1 = Round(1.5)      ' var1 contains 2

var2 = Round(2.5)      ' var2 contains 2

var3 = Round(3.5)      ' var3 contains 4

var4 = Round(0.985, 2) ' var4 contains 0.98

var5 = Round(0.995, 2) ' var5 contains 1.00

Script Engine ID

Strings

Asc
- Returns the ANSI character code corresponding to the first letter in a string.

Dim MyNumber
MyNumber = Asc("A")       ' Returns 65.

MyNumber = Asc("a")       ' Returns 97.

MyNumber = Asc("Apple")   ' Returns 65.

Chr
- Returns the character associated with the specified ANSI character code.

Dim MyChar

MyChar = Chr(65)   ' Returns A.

MyChar = Chr(97)   ' Returns a.

MyChar = Chr(62)   ' Returns >.

MyChar = Chr(37)   ' Returns %.

Filter
- Returns a zero-based array containing a subset of a string array based on a specified filter criteria.

Dim MyIndex

Dim MyArray (3)

MyArray(0) = "Sunday"

MyArray(1) = "Monday"

MyArray(2) = "Tuesday"

MyIndex = Filter(MyArray, "Mon") ' MyIndex(0) contains "Monday".

InStr
- Returns the position of the first occurrence of one string within another.

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"   ' String to search in.

SearchChar = "P"   ' Search for "P".

MyPos = Instr(4, SearchString, SearchChar, 1)   ' A textual comparison starting at position 4. Returns 6.

MyPos = Instr(1, SearchString, SearchChar, 0)   ' A binary comparison starting at position 1. Returns 9.    

MyPos = Instr(SearchString, SearchChar)   ' Comparison is binary by default (last argument is omitted). Returns 9.

MyPos = Instr(1, SearchString, "W")   ' A binary comparison starting at position 1. Returns 0 ("W" is not found).

InstrRev
- Returns the position of an occurrence of one string within another, from the end of string.

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"   ' String to search in.

SearchChar = "P"   ' Search for "P".

MyPos = InstrRev(SearchString, SearchChar, 10, 0)   ' A binary comparison starting at position 10. Returns 9.

MyPos = InstrRev(SearchString, SearchChar, -1, 1)   ' A textual comparison starting at the last position. Returns 12.

MyPos = InstrRev(SearchString, SearchChar, 8)   ' Comparison is binary by default (last argument is omitted). Returns 0.

Join
- Returns a string created by joining a number of substrings contained in an array.

Dim MyString

Dim MyArray(3)

MyArray(0) = "Mr."

MyArray(1) = "John "

MyArray(2) = "Doe "

MyArray(3) = "III"

MyString = Join(MyArray) ' MyString contains "Mr. John Doe III".

Len
- Returns the number of characters in a string or the number of bytes required to store a variable.

Dim MyString

MyString = Len("VBSCRIPT") ' MyString contains 8.

Lcase
- Returns a string that has been converted to lowercase.

Dim MyString

Dim LCaseString

MyString = "VBSCript"

LCaseString = LCase(MyString)   ' LCaseString contains "vbscript".

Ucase
- Returns a string that has been converted to uppercase.

Dim MyWord

MyWord = UCase("Hello World")   ' Returns "HELLO WORLD".

Left
- Returns a specified number of characters from the left side of a string.

Dim MyString, LeftString

MyString = "VBSCript"

LeftString = Left(MyString, 3) ' LeftString contains "VBS".

Mid
- Returns a specified number of characters from a string.

Dim MyVar

MyVar = Mid("VBScript is fun!", 4, 6) ' MyVar contains "Script".

Right
- Returns a specified number of characters from the right side of a string.

Dim AnyString, MyStr

AnyString = "Hello World"      ' Define string.

MyStr = Right(AnyString, 1)    ' Returns "d".

MyStr = Right(AnyString, 6)    ' Returns " World".

MyStr = Right(AnyString, 20)   ' Returns "Hello World".

Replace
- Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Dim MyString

' A binary comparison starting at the beginning of the string.

MyString = Replace("XXpXXPXXp", "p", "Y")

' Returns "XXYXXPXXY".

' A textual comparison starting at position 3.

MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1)

' Returns "YXXYXXY".

Space
- Returns a string consisting of the specified number of spaces.

Dim MyString

MyString = Space(10)   ' Returns a string with 10 spaces.

MyString = "Hello" & Space(10) & "World" ' Insert 10 spaces between two strings.

Split
- Returns a string consisting of the specified number of spaces.

Dim MyString

MyString = Space(10)   ' Returns a string with 10 spaces.

MyString = "Hello" & Space(10) & "World" ' Insert 10 spaces between two strings.

StrComp
- Returns a value indicating the result of a string comparison.

Dim MyString

MyString = Space(10)   ' Returns a string with 10 spaces.

MyString = "Hello" & Space(10) & "World" ' Insert 10 spaces between two strings.

String
- Returns a repeating character string of the length specified.

Dim MyString

MyString = String(5, "*")   ' Returns "*****".

MyString = String(5, 42)   ' Returns "*****".

MyString = String(10, "ABC")   ' Returns "AAAAAAAAAA".

StrReverse
- Returns a string in which the character order of a specified string is reversed.

Dim MyStr

MyStr = StrReverse("VBScript") ' MyStr contains "tpircSBV".

Ltrim
- Returns a copy of a string without leading spaces (LTrim), trailing spaces (RTrim), or both leading and trailing spaces (Trim).

Dim MyVar

MyVar = LTrim("   vbscript ")   ' MyVar contains "vbscript ".

MyVar = RTrim("   vbscript ")   ' MyVar contains "   vbscript".

MyVar = Trim("   vbscript ")   ' MyVar contains "vbscript".

Rtrim
- Returns a copy of a string without leading spaces (LTrim), trailing spaces (RTrim), or both leading and trailing spaces (Trim).

Dim MyVar

MyVar = LTrim("   vbscript ")   ' MyVar contains "vbscript ".

MyVar = RTrim("   vbscript ")   ' MyVar contains "   vbscript".

MyVar = Trim("   vbscript ")   ' MyVar contains "vbscript".

Trim
- Returns a copy of a string without leading spaces (LTrim), trailing spaces (RTrim), or both leading and trailing spaces (Trim).

Dim MyVar

MyVar = LTrim("   vbscript ")   ' MyVar contains "vbscript ".

MyVar = RTrim("   vbscript ")   ' MyVar contains "   vbscript".

MyVar = Trim("   vbscript ")   ' MyVar contains "vbscript".

Variants

IsArray
- Returns a Boolean value indicating whether a variable is an array.

Dim MyVariable

Dim MyArray(3)

MyArray(0) = "Sunday"

MyArray(1) = "Monday"

MyArray(2) = "Tuesday"

MyVariable = IsArray(MyArray) ' MyVariable contains "True".

IsDate
- Returns a Boolean value indicating whether an expression can be converted to a date.

Dim MyDate, YourDate, NoDate, MyCheck

MyDate = "October 19, 1962": YourDate = #10/19/62#: NoDate = "Hello"

MyCheck = IsDate(MyDate)   ' Returns True.

MyCheck = IsDate(YourDate)   ' Returns True.

MyCheck = IsDate(NoDate)   ' Returns False.

IsEmpty
- Returns a Boolean value indicating whether a variable has been initialized.

Dim MyVar, MyCheck

MyCheck = IsEmpty(MyVar)   ' Returns True.

MyVar = Null   ' Assign Null.

MyCheck = IsEmpty(MyVar)   ' Returns False.

MyVar = Empty   ' Assign Empty.

MyCheck = IsEmpty(MyVar)   ' Returns True.

IsNull
- Returns a Boolean value that indicates whether an expression contains no valid data (Null).

Dim MyVar, MyCheck

MyCheck = IsNull(MyVar)   ' Returns False.

MyVar = Null   ' Assign Null.

MyCheck = IsNull(MyVar)   ' Returns True.

MyVar = Empty   ' Assign Empty.

MyCheck = IsNull(MyVar)   ' Returns False.

IsNumeric
- Returns a Boolean value indicating whether an expression can be evaluated as a number.

Dim MyVar, MyCheck

MyVar = 53   ' Assign a value.

MyCheck = IsNumeric(MyVar)   ' Returns True.

MyVar = "459.95"   ' Assign a value.

MyCheck = IsNumeric(MyVar)   ' Returns True.

MyVar = "45 Help"   ' Assign a value.

MyCheck = IsNumeric(MyVar)   ' Returns False.

IsObject
- Returns a Boolean value indicating whether an expression references a valid Automation object.

Dim MyInt, MyCheck, MyObject

Set MyObject = Me

MyCheck = IsObject(MyObject)   ' Returns True.

MyCheck = IsObject(MyInt)   ' Returns False.

TypeName
- Returns a string that provides Variant subtype information about a variable.

Dim ArrayVar(4), MyType

NullVar = Null   ' Assign Null value.

MyType = TypeName("VBScript")   ' Returns "String".

MyType = TypeName(4)            ' Returns "Integer".

MyType = TypeName(37.50)        ' Returns "Double".

MyType = TypeName(NullVar)      ' Returns "Null".

MyType = TypeName(ArrayVar)     ' Returns "Variant()".

VarType
- Returns a value indicating the subtype of a variable.

Dim MyCheck

MyCheck = VarType(300)          ' Returns 2.

MyCheck = VarType(#10/19/62#)   ' Returns 7.

MyCheck = VarType("VBScript")   ' Returns 8.