Lendo txt

[Ricky Bizarria]

Como eu leio um txt com espaços?!

[Gustavo Almeida]

Função que Abre um Arquivo Texto e Retorna seu Conteúdo

 

Function AbreArquivo(sArquivo As String) As String
  Dim iARQ As Integer
  Dim sLinha As String
  Dim sResult As String

 

  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  Do While Not EOF(iARQ)
    'Pega o conteúdo da linha
    Line Input #iARQ, sLinha

 

    'Quebra a linha e concatena (soma) o resultado
    sResult = sResult + Chr(13) & Chr(10) + sLinha
  Loop

 

  AbreArquivo = sResult

 

  'Fecha o arquivo
  Close iARQ
End Function

 

'P/ usar:
Text1.Text = AbreArquivo("C:\Texto.TXT")

[Henrique Bizarria]

Gustavo, porque meu programa num le certo este arquivo???

A ultima coluna ele le "24355174          

2009/9/14 Gustavo Almeida <gus...@gmasoftwares.com.br>

[Henrique Bizarria]

O programa num é meu, mas o cara usa as variaves assim:

 

 

Type TitulosUnificado
    Dta_Mov_Titulo                      As String * 8
    Num_Fatura                          As String * 14
    Num_Titulo                          As String * 20
    Cod_Fornec_Cgc                      As String * 14 'fica nas duas tabelas
    Dta_Emissao_Titulo                  As String * 8
    Dta_Vcto_Titulo                     As String * 8
    Val_Titulo                          As String * 15
    Val_Desconto_Titulo                 As String * 15
    Val_Liquido_Titulo                  As String * 15
    Num_Banco_Fornec                    As String * 4
    Num_Agencia_Fornec                  As String * 10
    Num_CCorrente_fornec                As String * 10
    Val_Acrescimo_Titulo                As String * 14
    Num_Dig_Agencia_Fornec              As String * 1
    Num_Dig_CCorrente_Fornec            As String * 2
    Cod_Fornec_Cpf                      As String * 11 'fica nas duas tabelas
    Nom_Fornec                          As String * 30
    Cod_CCusto_Solic                    As String * 3
    Dta_Solic_Titulo                    As String * 8
    Dsc_Titulo                          As String * 40
    Num_Fat_Relacionada                 As String * 10
    Num_Item_Fat_Relacionada            As String * 4
    Num_Empresa                         As String * 4
    Num_Ano_Fatura                      As String * 4
    Num_Ano_Fatura_Relacionada          As String * 4
    Banco                               As String * 4
    GrupoFornec                         As String * 4
    Sinal                               As String * 1
    ValorBoleto                         As String * 14
    DigitoBoleto                        As String * 1
    InfComplBoleto                      As String * 25
    CodBancoBoleto                      As String * 4
    CodMoedaBoleto                      As String * 1
    Forma                               As String * 1
    Num_Referencia                      As String * 20
    Tel_Fornecedor                      As String * 16
    Nom_Banco_Fornec                    As String * 60
    End_Fornec                          As String * 35
    Cep_Fornec                          As String * 10
    Region_Fornec                       As String * 3
    Swift_Fornec                        As String * 11
    Cidade_Fornec                       As String * 35
    Car1013                             As String * 1

 

a minha vem depois...é um integer...mas eu coloc e ele le errado....

2009/9/14 Gustavo Almeida <gus...@gmasoftwares.com.br>

[Gustavo Almeida]

Ué...

 

Não tá certo não???

 

O que tá faltando?

[Henrique Bizarria]

Eu acho que era a posição d coluna..ele tavamatendo 2 digtos...

Mas fz um teste e funcionu...

2009/9/14 Gustavo Almeida <gus...@gmasoftwares.com.br>