none
Ordem crescente

    Question

  • Tenho um loop que gostaria que os resultados ficassem em ordem crescente

    os resultados estao ficando desordenado tipo 2,4,7,1,4,9 gostaria que ja ficasse em uma variavel global 1,2,3,4,5......

    preciso de uma dica em vb6

    Wednesday, July 18, 2012 6:56 PM

Answers

All replies

  • Olá, poderia ser mais explícito?

    Você tem um array? Se colocasse parte do código ajudaria.

    []´s


    Visite a Zona .NET: http://zonadotnet.wordpress.com | http://lblima.blogspot.com
       

    Wednesday, July 18, 2012 7:17 PM
  • em qq google da vida vc acha esse, é só digitar: "como ordenar uma cadeia de números vb6" ou coisa do gênero... 

    http://www.htmlstaff.org/ver.php?id=24102

    http://support.microsoft.com/kb/321292/pt

    pronto, agora vc põe logo sua solução (pq já saquei qual é a sua)...


    **A blonde girl who tries understand the world in C# and VB**

    ***_Hey, se alguém resolveu seu problema, não esquece de marcar e/ou deixar sua solução!_***

    ***** Winter is coming *****

    Thursday, July 19, 2012 2:20 PM
  • aqui esta o meu codigo, so que gostaria que ele  me retornasse em ordem crescente

    Dim CaminhoArquivo As String

        
        Dim Linha As String
        Dim ContadorLinha As Long
           
     
        'Configura a leitura do arquivo
        Arquivo = FreeFile
        
        
        Arquivo = FreeFile
        CaminhoArquivo = "c:\temp\teste.TXT"
     
        'Abre o arquivo para leitura
        Open CaminhoArquivo For Input As Arquivo
        ContadorLinha = 1
        'Lê o conteúdo do arquivo linha a linha
        Do While Not EOF(Arquivo)
            Line Input #Arquivo, Linha
                          
          TextoArquivo = Linha & TextoArquivo & vbCrLf
                    
            If TextoArquivo > Linha Then
                
                
               'TextoArquivo = Linha & TextoArquivo & vbCrLf
                      
            Else
            
            End If
                    
            Loop
               
        Close Arquivo

      MsgBox TextoArquivo

    Thursday, July 19, 2012 2:59 PM
  • Thursday, July 19, 2012 6:36 PM