pessoal eu tenho esse arquivo txt:

000001(nº primeiro registro)   1(primeira linha da peça)    N     0115274                 089135(numero pedido)  18(fabrica de entrega)                                                                                                                      
000001(nº primeiro registro)   2(segunda linha da peça)  00027774(numero da nota fiscal)  050504(data) 000044000000 (quantidade da ultima entrega feita)                                                                                                                                                     
000001(nº primeiro registro)   3(segunda linha da peça)  401(ordem tipo data)   05060600000183000050704000002040000508010000024600005090500000186000051003000001290000511070000003900005120500000012000(programação de peças)

notem que o campo que está no banco de dados está entre parênteses.
                                                      
como eu faço para selecionar onde ele está e depois que eu clicar em um botão e jogar os dados em um banco de dados, cada um no seu campo?

'Exemplo de como extrair informações de um arquivo texto (faça as adaptações para o seu caso):

 

Dim Linha as String

Open <SeuArquivo.txt> For input As #1
 
Do While Not EOF(F)
  Line Input #F, Linha
 
  'extrai a informação do arquivo texto
  Registro = Mid(Linha, 1, 6) 'guarda o valor referente a posição da linha de 1 a 6
  Linha = Mid(Linha, 7, 1) '...
  Pedido = Mid(Linha, 16, 6)
( ...  )
  rs.AddNew          'inclui novo registro
  rs(0) = registro

  rs(1) = linha
  rs(2) = pedido

(...)

  rs.Update            'grava o registro inserido
Loop
Close #1

 

marcone, eu consegui fazer. dessa forma. quando o programa abre, em um listbox terá os registros que está no arquivo txt. só que cada registro que está no txt é um campo. Por exemplo: campo primeiro registro, primeira peca, numero de pedido, fabrica de entrega e assim por diante. como eu faço para gravar no banco de dados esses registros que estão no listbox?

 

valeu

cara, fiz dessa forma para pegar os registros no txt para dentro do listbox:

 

On Error Resume Next
With LSTBUSCA
    .View = lvwReport
    .ColumnHeaders.Add , , "DADOS", 15500
    '.ColumnHeaders.Add , , "DESCRIÇÃO", 6000

End With
Importacao = ""
Open App.Path & "EPE61400.txt" For Input As #1   ' Open file for input.
    Do While Not EOF(1) ' Loop until end of file.
        DoEvents
        Line Input #1, Importacao     ' Read data into two variables.
        If Importacao <> "" Then
            'Set lstLine = LSTBUSCA.ListItems.Add(, , Mid$(Importacao, 11, 6))
            Set lstLine = LSTBUSCA.ListItems.Add(, , Mid$(Importacao, 1, 140))
            lstLine.SubItems(1) = Mid$(Importacao, 80, 50)
        End If
    Loop
Close #1

agora como posso gravar isso no banco de dados?

cara se tiver como jogar os registros em seus textbox respectivos, melhor ainda.

cara consegui fazer.

 

valeu