Organizar os itens de um dicionário alfabeticamente!

[dead_thinker 0]

Olá pessoal, seguinte, tenho uma função que passo um objeto dicionario (Scripting.Dictionary) e a função devolve um HTML escrito com os itens do dicionario, queria saber se tem como eu organizá-los dinamicamente, segue o codigo da função.

 

'	' Função para escrever os labels de forma de pagamento	'	Function EscreveLabels(byref p_dic, p_id)		'		' Recupera as chaves do dicionario		'		dim vKeys, strHTML, strID, x, strCor		vKeys = p_dic.Keys		'		' Se veio id, seta string, senao, zera		'		if Len(Trim(p_id)) > 0 then strID = "_" & p_id else strID = "" end if		'		' Para cada forma de pagamento no dicionario...		'		for x = 0 to p_dic.Count - 1			'			' Recupera a designacao da forma de pagamento			'			dim strDescFP			strDescFP = "Pesquisa a desc..."			'			' Se não houver valor, zeta 0			'			if Len(Trim(p_dic.Item(vKeys(x)))) <= 0 then p_dic.Item(vKeys(x)) = 0			'			' Se o valor for psotivo...			'			if CDbl(p_dic.Item(vKeys(x))) >= 0 then				'				' Seta cor azul				'				strCor = "0000FF"			else				'				' Senão, seta cor vermelha				'				strCor = "FF0000"			end if			'			' Escreve uma linha com a forma de pagamento			'			strHTML = strHTML & "<tr id='tr_" & vKeys(x) & strID & "'>"				strHTML = strHTML & "<td align='left' valign='middle'>"					strHTML = strHTML & "<label class='sub_titulo_4'>" & strDescFP & ": </label>"					strHTML = strHTML & "<label id='lbl_" & vKeys(x) & strID & "' name='lbl_" & vKeys(x) & strID & "' style='color:" & strCor & "'>" & FormatNumber(p_dic.Item(vKeys(x)), 2) & "</label>"				strHTML = strHTML & "</td>"			strHTML = strHTML & "</tr>"		next		'		' Devolve labels		'		EscreveLabels = strHTML	end function

Vlw!

[dead_thinker 0]

Alguma luz? :(

[LiPe 0]

Cara, o que isso faz...rss...você pode pegar a primeira string de cada linha, e comparar com um índice

[dead_thinker 0]

Cara, o que isso faz...rss...você pode pegar a primeira string de cada linha, e comparar com um índice

Em que seria baseado esse índice?

[dead_thinker 0]

Alguem da uma luz? :(

[dead_thinker 0]

Alguem pode me dar uma luz ou sabe de um algoritmo para fazer isso? O problema é organizar um "vetor" de strings alfabeticamente. os itens no dictionary ficam assim:Key | Valor=========="DN" | 35.65"CC" | 152.23...Onde DN nesse caso é o codigo da forma ded pagamento (Dinheiro)Grato...

[Marcelo Barcellos 0]

Cara...

Existem códigos para ordenar alfabeticamente um vetor, entretanto, para ficar muito mais simples, trabalhe com Recordsets desconectados e utilize o método "sort" para ordenar....

 

Qualquer dúvida dê uma olhada !

http://forum.brclube.net/index.php?showforum=294

[dead_thinker 0]

beleza cara obrigado, vou estudar aki.