MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    ordenar texto no txt

    Compartilhe

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    ordenar texto no txt

    Mensagem  mcsanches em Dom 26 Out 2014, 19:02

    Pessoal boa tarde, mais uma vez eu precisando de ajuda

    é o seguinte

    tenho um arquivo de texto que se apresenta:

    30 de set 14:10 - cheguei
    agua
    banana
    coelho
    dinheiro
    30 de set 14:10 - teste
    tese
    xuxu
    30 de set 14:10 - olá
    manga
    abacate
    pera


    gostaria de ordena-lo da seguinte forma, unindo as linhas eu uma só até a próxima data, com o resultado:

    30 de set 14:10 - cheguei agua banana coelho dinheiro
    30 de set 14:10 - teste tese xuxu
    30 de set 14:10 - olá manga abacate pera

    estou tentando usar o seguinte código:

    Private Sub Comando2_Click()

    Dim strLinha1 As String
    Dim strLinha2 As String
    Dim strlinha3 As String
    Dim guia As String
    Dim guia2 As String
    Dim strLinhaUnica As String
    Dim flag As String


    Open "C:\pasta_wa\tratando.txt" For Input As #1
    Open "C:\pasta_wa\resultado.txt" For Output As #2

    flag = "a"

    Do While Not EOF(1) And flag = "a"

    Line Input #1, strLinha1

    If Mid(strLinha1, 3, 4) Like " de " Then

    guia = strLinha1

    Else

                   If Not EOF(1) Then
                   
                   Line Input #1, strLinha2
                   
                   If Mid(strLinha1, 3, 4) Like " de " Then
                   
                   guia = strLinha2
                               
                   flag = "b"
                   
                   Else
               
                   guia = ""

                   End If
                   
                   

                   End If
                   
                 

    End If
                               
    strlinha3 = guia & strLinha1 & strLinha2

    Loop

    strLinhaUnica = strlinha3

    Print #2, strLinhaUnica

    Close #1
    Close #2

    End Sub


    o resultado esta imprimindo: peraabacate

    alguem pode me ajudar?

    obrigado

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: ordenar texto no txt

    Mensagem  Noobezinho em Dom 26 Out 2014, 21:33

    Sanches

    Se entendi, teu problema é resolvido assim:


    strlinha3 = guia & " " & strLinha1 & " " & strLinha2

    Dentro das aspas duplas tem um espaço que irá separar as palavras.

    Pode usar o traço também " - "



    Abraços

    Nb


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    Re: ordenar texto no txt

    Mensagem  mcsanches em Dom 26 Out 2014, 23:07

    Caro Noobezinho

    agradeço o retorno...

    strlinha3 = guia & " " & strLinha1 & " " & strLinha2

    me ajudará.. porem o problema é na sequencia da leitura das linhas e no seu armazenamento...

      Data/hora atual: Qua 07 Dez 2016, 08:38