MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 121
    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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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 : 121
    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: Qui 17 Ago 2017, 02:52