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


    [Resolvido]Ler arquivo TXT

    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 23/08/2018

    [Resolvido]Ler arquivo TXT Empty [Resolvido]Ler arquivo TXT

    Mensagem  IuriEmanuel em 22/5/2019, 13:07

    Bom dia pessoal, tenho um arquivo TXT onde preciso extrair um texto de um arquivo TXT, ao exibi-lo no MsgBox, o texto aparece normal, mas ao tentar tratar o texto, com a função split, como segue abaixo, exibe uma mensagem de "Tipos Incompativeis", o engraçado é que o texto, é esse abaixo:

    OK: C:\ACBrMonitorPLUS\Logs\29190511040585000190650080000000011342131959-nfe.xml

    Logo, ele deveria ser String, né?

    Código:

    Public Sub VerChave()
     Dim pOutput As String
     pOutput = "C:\ACBrMonitorPLUS\sai.txt"
     Dim ArqTXT As String
     Dim ResTXT As String
     Dim Chave As String
     ArqTXT = FreeFile
     Open pOutput For Input As ArqTXT
     Do While Not EOF(ArqTXT)
      Line Input #ArqTXT, ResTXT
     Loop
      Chave = Split(ResTXT, "\")
      MsgBox (Chave)
    End Sub
    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 23/08/2018

    [Resolvido]Ler arquivo TXT Empty Re: [Resolvido]Ler arquivo TXT

    Mensagem  IuriEmanuel em 22/5/2019, 16:25

    Alguém ?? rs
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 652
    Registrado : 22/11/2016

    [Resolvido]Ler arquivo TXT Empty Re: [Resolvido]Ler arquivo TXT

    Mensagem  IvanJr. em 23/5/2019, 03:18

    Você sabe como funciona a função split? Ela transforma o texto em uma matriz separando os elementos pelo caractere indicado (que nesse seu caso é a barra inversa). Pelo que vejo você deseja mostrar o último elemento da matriz (Ubound). Faça testes e descubra como a função funciona. Experimente:

    Msgbox Chave(0)
    Para mostrar o primeiro elemento da matriz

    Msgbox Chave(1)
    Para mostrar o segundo elemento da matriz

    Msgbox Chave(Ubound(Chave))
    Para mostrar sempre o último elemento da matriz sem precisar saber quantos elementos ela tem


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 23/08/2018

    [Resolvido]Ler arquivo TXT Empty Re: [Resolvido]Ler arquivo TXT

    Mensagem  IuriEmanuel em 24/5/2019, 12:26

    Nossa, Ivan rs... Que bobagem minha estava usando a função errada mesmo rs

    Muito obrigado!!
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 652
    Registrado : 22/11/2016

    [Resolvido]Ler arquivo TXT Empty Re: [Resolvido]Ler arquivo TXT

    Mensagem  IvanJr. em 25/5/2019, 21:19

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.

    Conteúdo patrocinado

    [Resolvido]Ler arquivo TXT Empty Re: [Resolvido]Ler arquivo TXT

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:43