Senhores

Saudações

 

PRECISO DE AJUDA PARA DESENVOLVER UM CODIGO PARA LER UM ARQUIVO TEXTO QUE QUE SEGUINTE NO MEU ARQUIVO TEXTO DA LINHA 1 ATE A LINHA 5 PERTENCE A UM REGISTRO DA 8 A 13 PERTENCEM A OUTRO REGISTRO

 

POR EXEMPLO

NA LINHA 1 NOME

     LINHA 2 ENDEREÇO

     LINHA 3 CIDADE

     LINHA 4 CEP

     LINHA 5 TEL 

 

ASSIM CONSECUTIVAMENTE

 

PRECISO LER ESTE ARQUIVO E TRASPORTAR OS DADOS PARA UMA TABELA

PODEM ME AJUDAR?

 

HA E ENTRE A LINHA 5 A 7 TEM DUAS LINHAS EM BRANCO, ISSO SERVE PARA O ARQUIVO INTEIRO OU SEJA

 

CONTA 5 LINHAS ARMAZENA

PULA DUAS LINHAS EM BRANCO

CONTA MAIS 5 LINHAS ARMAZENA

ASSIM CONSECUTIVAMENTE

 

DESDE JA OBRIGADO

 

 

 

 

Tente isto:

 

Private Sub Cmd_Command1_Click()
  On Error GoTo Erro
  Dim Origem  As String
  Dim Linha1  As String
  Dim Linha2  As String
  Dim Linha3  As String
  Dim Linha4  As String
  Dim Linha5  As String
  Dim Branco  As String
  Screen.MousePointer = vbHourglass
  CommonDialog1.Filter = "Todos os Arqivos (*.*)|*.*|Arquivos Texto (*.txt)|*.Txt"
  CommonDialog1.FilterIndex = 2
  CommonDialog1.ShowOpen
  Origem = CommonDialog1.FileName
  Open Origem For Input As #1
  Do While Not EOF(1)
    Linha1 = ""
    Linha2 = ""
    Linha3 = ""
    Linha4 = ""
    Linha5 = ""
    Line Input #1, Linha1
    Line Input #1, Linha2
    Line Input #1, Linha3
    Line Input #1, Linha4
    Line Input #1, Linha5
    TABELA.AddNew
    TABELA!Nome = Linha1
    TABELA!Endereco = Linha2
    TABELA!Cidade = Linha3
    TABELA!CEP = Linha4
    TABELA!Tel = Linha5
    TABELA.Update
    Line Input #1, Branco ' linha em branco
    Line Input #1, Branco ' linha em branco
  Loop
  Close #1
  Screen.MousePointer = vbDefault
  MsgBox "Gravação efetuada com sucesso !", vbOKOnly, "Atenção"
  Exit Sub
Erro:
  Screen.MousePointer = vbDefault
  MsgBox "Ocorreu o erro nº " & Err.Number & vbCr & vbCr & Err.Description, vbOKOnly, "Atenção"
  Err.Clear
End Sub

Qualquer dúvida e-mail-me

 

Jayme

  Dim strABC As String
  Dim strInfo01 As String 'informação 01
  Dim strInfo02 As String 'informação 02
  Dim strInfo03 As String 'informação 03
  Dim strInfo04 As String 'informação 04
  Dim strInfo05 As String 'informação 05
  Dim intContador As Integer
  Open "C:     empTesteArq.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, strABC
    If LTrim(RTrim(strABC)) <> "" Then
      intContador = intContador + 1
      Select Case intContador
        Case 1
          strInfo01 = strABC
        Case 2
          strInfo02 = strABC
        Case 3
          strInfo03 = strABC
        Case 4
          strInfo04 = strABC
        Case 5
          strInfo05 = strABC
      End Select
      If intContador = 5 Then
        MsgBox "grava informações na tabela"
        'coloque aqui o código para gravar as informações no banco de dados
        intContador = 0
      End If
    End If
  Loop
  Close #1