USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Leitura de arquivo texto
dr.X
BELO HORIZONTE
MG - BRASIL
Postada em 12/09/2018 09:20 hs            
Olá feras!

Como que eu faço para ler uma linha de um arquivo texto nesta condição?

-249,999515530581;8407,84275726911

Preciso pegar: -249,999515530581
Preciso pegar: 8407,84275726911

e atribuir cada um a uma variável tipo array:

Val(0)=-249,999515530581
val(1)=8407,84275726911

Até usei um exemplo aqui do fórum, mas quando chega na primeira vírgula, ele ignora o restante da linha.

Desde já agradeço
     
dr.X
BELO HORIZONTE
MG - BRASIL
Postada em 12/09/2018 09:54 hs            
Pessoal !

Muito obrigado, já consegui resolver....

Segue a solução abaixo só para exemplo e se alguém precisar adaptar para outro fim...
No meu caso, eu estou abrindo um arquivo texto, lendo uma linha apenas e usando o Replace para formatar o modo que eu preciso. Eu gravo com "." dessa forma e troco por ",":
-249.999515530581;8407.84275726911 e assim consigo ler toda a linha delimitada por ";" e me retorna -249,999515530581  8407,84275726911 em um array. Show de bola !!!

Dim textfile As String
Dim textfields() As String
Dim varPt(0 To 1) As Variant
Open "C:SuportevP.dll" For Input As #1 Len = 255

While Not EOF(1)
    Input #1, textfile
    textfields() = Split(textfile, ";")
    
    If UBound(textfields()) = 1 Then
      varPt(0) = Replace(textfields(0), ".", ",")
      varPt(1) = Replace(textfields(1), ".", ",")

      MsgBox varPt(0) ' testando o retorno de textfields(0)...
      MsgBox varPt(1) ' testando o retorno de textfields(1)...

    End If

Wend
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página