Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	FindKeyFromItem
Where:	vItem The search data to match exactly within the Dictionary collection objDictionary The Dictionary object to search.
Constants:	None
Return Type:	Variant

View Function in:

Function FindKeyFromItem(vItem, objDictionary)
	Dim objItems, objKeys
	Dim Index
	
	objItems = objDictionary.Items
	objKeys = objDictionary.Keys
	
	For Index = 0 To objDictionary.Count -1
		If LCase(vItem) = LCase(objItems(Index)) Then
			FindKeyFromItem = objKeys(Index)
			Exit Function
		End If
	Next
	
	FindKeyFromItem = vbNull
	
	Erase objItems
	Erase objKeys
End Function

Script Example

Option Explicit

Dim objDict
Dim Index, strTemp
Dim vKey, vItem

'Create and Populate Dictionary object
Set objDict = WScript.CreateObject("Scripting.Dictionary")
For Index = 1 to 12
	'Syntax: object.Add Key, Item
     objDict.Add CStr(Index), MonthName(Index)
Next

'Easy search for Key
vKey = InputBox("Enter a Month Number (1 thru 12)","Find Key","5")
If objDict.Exists(vKey) Then
	WScript.Echo objDict.Item(vKey)
Else
	WScript.Echo "Key not Found"
End If

'Search for Item
vItem = InputBox("Enter a Month Name","Find Item","May")
strTemp = FindKeyFromItem(vItem,objDict)
If strTemp = vbNull Then
	WScript.Echo "Key not found"
Else
	WScript.Echo "Key: " & strTemp
End If

Set objDict = Nothing

Last Modification:
5/23/2008

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 10:15:15 PM for Unknown