Duvida em classificação de array

[CeSaR340]

:) olá, sou novo no forum e estou começando minha carreira de programador. fiz um codigo que cria um array e depois os ordena em ordem alfabetica, segue o codigo abaixo...

dim Nomes

nomes = array("zé", "pedro", "jose", "antonio", "bruno")

for x=0 to ubound(nomes)

msgbox nomes(x)

next

msgbox "voce viu todos os nomes, agora vamos classifica-los em ordem alfabetica"

for i = Ubound(nomes) - 1 to 0 step -1

for j=0 to i

if nomes(j)>nomes(j+1) then

temp=nomes(j+1)

nomes(j+1)=nomes(j)

nomes(j)=temp

end if

next

next

for x=0 to 4

msgbox nomes(x)

next

coloquei alguns nomes com a primeira letra maiuscula e ele não ordena em ordem alfabetica e sim ele coloca primeiro os nomes que começa com letra maiuscula e somente dps os que tem letra minuscula, seugue codigo abaixo...

dim Nomes

nomes = array("zé", "Pedro", "jose", "Antonio", "bruno")

for x=0 to ubound(nomes)

msgbox nomes(x)

next

msgbox "voce viu todos os nomes, agora vamos classifica-los em ordem alfabetica"

for i = Ubound(nomes) - 1 to 0 step -1

for j=0 to i

if nomes(j)>nomes(j+1) then

temp=nomes(j+1)

nomes(j+1)=nomes(j)

nomes(j)=temp

end if

next

next

for x=0 to 4

msgbox nomes(x)

next

gostaria de saber como eu faço para que nesse segundo codigo ele coloque em ordem alfabetica independente de ser letra maiuscula ou minuscula!

não sei se me expressei direito, mas espero que alguém me ajude!!!!!!!! grato Cesar

[CeSaR340]

consegui galera, consegui utilizando a função Ucase

segue codigo correto abaixo...

dim Nomes

nomes = array("zé", "Pedro", "jose", "Antonio", "bruno")

for x=0 to ubound(nomes)

msgbox nomes(x)

next

msgbox "voce viu todos os nomes, agora vamos classifica-los em ordem alfabetica"

for i = Ubound(nomes) - 1 to 0 step -1

for j=0 to i

if Ucase(nomes(j))>Ucase(nomes(j+1)) then

temp=nomes(j+1)

nomes(j+1)=nomes(j)

nomes(j)=temp

end if

next

next

for x=0 to 4

msgbox nomes(x)

next

[Danleonhart]

Parabéns CeSaR340

Eu estava pensando nisso também :rolleyes:

só um favorzinho...quando for postar código utiliza a opção "Inserir Code" (é a ultima opção dos ícones de ferramentas)...

assim facilita para entender-se o código, e evita poluição visual

VALEU CARA !!!

Editado Dezembro 21, 2011 por Danleonhart

[CeSaR340]

assim?

dim meuarray
redim meuarray = array(1,2,3,4)

foi meu primeiro post, obrigado pelo dica ^_^