{"id":9311,"date":"2019-11-05T16:37:23","date_gmt":"2019-11-05T19:37:23","guid":{"rendered":"http:\/\/kb.elipse.com.br\/en\/?p=9311"},"modified":"2022-08-29T15:13:28","modified_gmt":"2022-08-29T18:13:28","slug":"sorting-out-alphabetically-via-vbscript-with-dictionary","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/sorting-out-alphabetically-via-vbscript-with-dictionary\/","title":{"rendered":"Sorting out alphabetically via VBScript with dictionary."},"content":{"rendered":"

Many times, you will need to sort out search results to display them in alphabetic order. To do so, you will need a script. This will sort\u00a0 the results out alphabetically via VBScript<\/strong>.<\/p>\n

VBScript<\/b> (Visual Basic Script) is an\u00a0Active Scripting<\/a>\u00a0language developed by Microsoft that is modeled on Visual Basic. It allows\u00a0Microsoft Windows<\/a>\u00a0system administrators<\/a>\u00a0to generate powerful tools for managing computers with\u00a0error handling<\/a>,\u00a0subroutines<\/a>, and other advanced programming constructs. It can give the user complete control over many aspects of their computing environment. One of its features are Dictionaries.<\/p>\n

You will frequently use a dictionary when you need to store items and recover them by name. For example, a dictionary can hold all the environment variables defined by the system or all the values associated with a registry key. However, a dictionary can only store one item for each key value. That is, dictionary keys must all be unique. You should keep this in mind when creating a new one.<\/p>\n

To use a Dictionary that returns search results alphabetically, that is, in ABCDE format, you will need to create a function called\u00a0 SortDictionary<\/strong>.<\/p>\n

This article contains a demo application that illustrates how to sort out items alphabetically via VBScript<\/a> with the ‘dictionary<\/em>‘ object and the SortDictionary <\/strong>function. You will find the demo application for download at the end of this article; we also illustrate this article with an example of script that can be used for its execution.<\/p>\n

Below is the code for the demo application at the end of the article:<\/p>\n

'######################### Order Dictionary ##########################\r\nFunction SortDictionary(objDict,intSort)\r\nDim strDict()\r\nDim objKey\r\nDim strKey,strItem\r\nDim X,Y,Z\r\n\r\nZ = objDict.Count\r\n\r\nConst dictKey = 1\r\nConst dictItem = 2\r\n\r\nIf Z > 1 Then\r\nReDim strDict(Z,2)\r\nX = 0\r\nFor Each objKey In objDict\r\nstrDict(X,dictKey) = CStr(objKey)\r\nstrDict(X,dictItem) = CStr(objDict(objKey))\r\nX = X + 1\r\nNext\r\n\r\nFor X = 0 to (Z - 2)\r\nFor Y = X to (Z - 1)\r\nIf StrComp(strDict(X,intSort),strDict(Y,intSort),vbTextCompare) > 0 Then\r\nstrKey = strDict(X,dictKey)\r\nstrItem = strDict(X,dictItem)\r\nstrDict(X,dictKey) = strDict(Y,dictKey)\r\nstrDict(X,dictItem) = strDict(Y,dictItem)\r\nstrDict(Y,dictKey) = strKey\r\nstrDict(Y,dictItem) = strItem\r\nEnd If\r\nNext\r\nNext\r\n\r\nobjDict.RemoveAll\r\n\r\nFor X = 0 to (Z - 1)\r\nobjDict.Add strDict(X,dictKey), strDict(X,dictItem)\r\nNext\r\nSet SortDictionary = objDict\r\nEnd If\r\nEnd Function<\/pre>\n
Related articles<\/h3>\n
\n