Creating dictionary using Vbscript

Dim vKey

Dim sItem, sMsg

Dim oDict

'--- Creating a dictionary object

Set oDict = CreateObject("Scripting.Dictionary")

'--- Adding items to dictionary

oDict.Add "One", "Engine"

oDict.Add "Two", "Wheel"

oDict.Add "Three", "Tire"

oDict.Add "Four", "Spanner"

'--- Looping the Collection

For Each vKey In oDict

sItem = oDict.Item(vKey)

'sMsg = sMsg & sItem & vbCrLf

Next

'WScript.Echo (oDict.Count)

'oDict.Item("one") = "temp"

'WScript.Echo sMsg

'wscript.Echo (odict.item(one))

oDict.Key("One") = "nine"

'oDict.Item("nine") = "nine"

oDict.Add "Ten", "ten"

For Each vKey In oDict

sItem = oDict.Item(vKey)

sMsg = sMsg & sItem & " - " &vKey & vbCrLf

Next

WScript.Echo sMsg

WScript.Echo "===============Again============="

WScript.Echo (oDict.Exists ("One"))

WScript.Echo (oDict.Exists ("nine"))

WScript.Echo (oDict.Exists ("Ten"))

'WScript.Echo (odict.item(One))1

'WScript.Echo (odict.item(nine))

'WScript.Echo (odict.item(Ten))

For Each vKey In oDict

sItem = oDict.Item(vKey)

WScript.Echo (sItem & " - " & vKey)

Next

If oDict.Exists("One") Then

WScript.Echo "heello"

End If

If oDict.Exists("nine") Then

WScript.Echo "heello"

End If

Dim temp()

Dim count, counter

count = oDict.Count

WScript.Echo (count)

WScript.Echo

ReDim temp(count)

counter = 0

For Each key In oDict

temp(counter) = key

' WScript.Echo key & " - " & counter

' WScript.Echo temp(counter)

counter = counter+1

Next

'WScript.Echo ("oDict.Keys")

Vbscript Function Related to Date

dtm1="18-Feb-10"

dtm2="19-Aug-10"

'To Get difference between two date

WScript.Echo "Difference between " & dtm1 & " and " & dtm2

'To Get month difference

intMonthsDifferent=DateDiff("m", dtm1, dtm2)

WScript.Echo "In month: " & intMonthsDifferent

'To Get date difference

intDateDifferent=DateDiff("d", dtm1, dtm2)

WScript.Echo "In date: " & intDateDifferent

If intMonthsDifferent > 0 Then

WScript.Echo "postive"

Else

WScript.Echo "negative"

End If

'Difference In date with difference format Another example

dtm1="18/02/1999"

dtm2="18/03/1998"

WScript.Echo "Difference between " & dtm1 & " and " & dtm2

intMonthsDifferent=DateDiff("m", dtm1, dtm2)

WScript.Echo "In month: " & intMonthsDifferent

intDateDifferent=DateDiff("d", dtm1, dtm2)

WScript.Echo "In date: " & intDateDifferent

If intMonthsDifferent > 0 Then

WScript.Echo "postive"

Else

WScript.Echo "negative"

End If

WScript.Echo "-----------------------------------------------"

WScript.Echo "Function To Get different value of current Date"

WScript.Echo "-----------------------------------------------"

WScript.Echo "Current Date:- " &(Date ())

WScript.Echo "Current Time:- " &(Time ())

WScript.Echo "Current Time:- " & TimeValue (Time)

WScript.Echo "Current Time and date:- " & Now ()

WScript.Echo "Hours:- " & Hour (Time)

WScript.Echo "Month:- " & Month (Date)

WScript.Echo "Second:- " & Second (time)

WScript.Echo "Total Seconds:- " & Timer ()

WScript.Echo "Time with User's Argument:- " & TimeSerial (13,56,8)

WScript.Echo Weekday (Date)

WScript.Echo "Day's name as per index:- " & WeekdayName(Weekday(1))

WScript.Echo "Day's name as per index:- " & WeekdayName(Weekday(2))

WScript.Echo "Day's name as per index:- " & WeekdayName(Weekday(3))

WScript.Echo "Day's name as per index:- " & WeekdayName(Weekday(8))

WScript.Echo "Month's name as per index:- " & MonthName (1)

WScript.Echo "Month's name as per index:- " & MonthName (12)

Data Type Validation in Vbscript

Dim temp

WScript.Echo (VarType (temp))

WScript.Echo (TypeName (temp))

WScript.Echo

temp = 3

WScript.Echo (VarType (temp))

WScript.Echo (TypeName (temp))

WScript.Echo

temp = 3111111

WScript.Echo (VarType (temp))

WScript.Echo (TypeName (temp))

WScript.Echo

temp = "afsda"

WScript.Echo (VarType (temp))

WScript.Echo (TypeName (temp))

WScript.Echo

ReDim temp(6)

WScript.Echo (TypeName (temp))

WScript.Echo

temp(0) = 1

temp(1) = 1

WScript.Echo (VarType (temp))

WScript.Echo (vbSunday)

WScript.Echo (TypeName (temp))

Playing with array

WScript.echo "-------------------------------------------------------"

WScript.echo "Playing with array"

wscript.echo "-------------------------------------------------------"

Dim arrArray

Dim i

Dim sTmp

arrArray = Array(81,117,105,99,107,84,101,115,116,45,80,114,111)

'--- Checking if variable is an array.

If IsArray(arrArray) Then

For i = LBound(arrArray) To UBound(arrArray)

WScript.Echo (arrArray(i))

arrArray(i) = Chr(arrArray(i))

WScript.Echo (arrArray(i))

Next

End If

If IsArray(arrArray) Then

sTmp = Join(arrArray, vbNullString)

MsgBox sTmp

MsgBox vbNullString

MsgBox vbNull

End If

Erase arrArray

MsgBox vbArray

MsgBox vbByte

WScript.echo "-------------------------------------------------------"

WScript.echo "Split to make array n filtering"

wscript.echo "-------------------------------------------------------"

a=Split("Sunday Monday Tuesday WEDNES DAY T h urs dayF r iday Satu r day"," ",-1,1)

a=Split("Sunday Monday Tuesday WEDNES DAY T h urs dayF r iday Satu r day")

for each x in a

WScript.Echo(x)

Next

WScript.Echo

WScript.Echo "Filter Function"

WScript.Echo

WScript.Echo

WScript.Echo "True Function"

WScript.Echo

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

b=Filter(a,"S",True,1)

for each x in b

WScript.Echo (x)

Next

WScript.Echo

WScript.Echo "True Function"

WScript.Echo

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

b=Filter(a,"S",True,0)

for each x in b

WScript.Echo (x)

next

WScript.Echo "True Function"

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

b=Filter(a,"S",True)

for each x in b

WScript.Echo (x)

next

WScript.Echo

WScript.Echo "False"

WScript.Echo

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

b=Filter(a,"S",False,1)

for each x in b

WScript.Echo (x)

next

WScript.Echo

WScript.Echo "False"

WScript.Echo

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

b=Filter(a,"S",False,0)

for each x in b

WScript.Echo (x)

next