Realizando ordenação alfabética via VBScript com dicionário.

Este artigo contém uma aplicação exemplo que demonstra como realizar uma ordenação alfabética via VBScript utilizando o objeto ‘dictionary‘ e a função SortDictionary, bem como o script responsável por esta execução.

Abaixo o código da função de ordenação da aplicação exemplo:

'######################### Order Dictionary ##########################
Function SortDictionary(objDict,intSort)
Dim strDict()
Dim objKey
Dim strKey,strItem
Dim X,Y,Z

Z = objDict.Count

Const dictKey = 1
Const dictItem = 2

If Z > 1 Then
ReDim strDict(Z,2)
X = 0
For Each objKey In objDict
strDict(X,dictKey) = CStr(objKey)
strDict(X,dictItem) = CStr(objDict(objKey))
X = X + 1
Next

For X = 0 to (Z - 2)
For Y = X to (Z - 1)
If StrComp(strDict(X,intSort),strDict(Y,intSort),vbTextCompare) > 0 Then
strKey = strDict(X,dictKey)
strItem = strDict(X,dictItem)
strDict(X,dictKey) = strDict(Y,dictKey)
strDict(X,dictItem) = strDict(Y,dictItem)
strDict(Y,dictKey) = strKey
strDict(Y,dictItem) = strItem
End If
Next
Next

objDict.RemoveAll

For X = 0 to (Z - 1)
objDict.Add strDict(X,dictKey), strDict(X,dictItem)
Next
Set SortDictionary = objDict
End If
End Function

Artigos Relacionados

• Utilizando o objeto Dicionário no Elipse E3.

Anexos:

SortingAlgorithm.zip