MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Ler arquivo TXT

    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às regras : 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 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 : 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 22/5/2019, 16:25

    Alguém ?? rs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    IuriEmanuel
    Intermediário
    Intermediário

    Respeito às regras : 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 24/5/2019, 12:26

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

    Muito obrigado!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 25/5/2019, 21:19

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/8/2021, 11:54