[Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

Boa tarde,
Será que alguém me poderá ajudar?
Estou criando uma base de dados em access, que permita importar um segmento de texto (string) de um ficheiro .txt e adicionar a tabela no Access.

Exemplo do conteúdo de uma ficheiro (SALES100214.txt)recebido em "C:\FilesVendasDiarios\*.txt":

BFH0000000101790331  203PROD1402110103  000001                                                                                        
BCH00000002020221140210F                                                                                                                
BOH000000030322990833140210                       USD2                                                                                  
BKT0000000406      000001                  NR019X 331            
BKS00000005241402090000013312400747471  37906004134925496FFVV   22990833                                  
BKS00000006301402090000013312400747471  30000004990{0000004990{ YC      0000000055{US      
BKS00000010301402090000013312400747471  30000000000{0000004990{ XF      
BKS00000011301402090000013312400747471  30000000000{0000004990{ YR      0000000202I        
BKS00000012391402090000013312400747471  3I        000000000000000{    
BKS00000013461402090000013312400747471  3                                PENALTIES MAY APPLY -BG S4                                    
BAR00000018661402090000013312400747471  31WBVI063606160000939603244                                                                                                              
BKP0000002184140209000001MSCC      0000006117DWBVI063606160000939                            
BKP0000002284140209000001CA        0000000000{                                                
BKT0000002306      000002                  NR019X 331                                              
BKS00000024241402090000023312400747473  57906004134925522FFVV   22990833                    
BKS00000031391402090000023312400747473  5I        000000000000000{      
BKS00000032461402090000023312400747473  5                                PENALTIES MAY APPLY -BG:S4                                    
BAR00000037661402090000023312400747473  51WBVI063606160000939603244                                                                  
BKF00000038811402090000023312400747473  5  1BOS S4 PDL208.00S4 BOS291.00NUC499.00END
BKF00000039811402090000023312400747473  5  25.00XA7.00XY2.50AY21.17YP11.78PT4.50XF20.29YRXF BOS4.5                                      
BKP0000004084140209000002MSCC      0000006117DWBVI063606160000939                            
BKP0000004184140209000002CA        0000000000{                                                
BKT0000004206      000003                  NR019X 331                                              
BKS00000043241402090000033312400747472  47906004134925533FFVV  
BKS00000044301402090000033312400747472  40000004990{0000004990{
BKS00000045301402090000033312400747472  40000000000{0000004990{

Este ficheiro, não tem colunas. Gostaria de importar para uma tabela em access todos os números documentos (assinalado a amarelo), a primeira linha do ficheiro BKS (assinalado a azul) que está a seguir da linha BKT (assinalado a verde).
A tabela criada em access teria basicamente só um campo que seria o número de documento.
Tenho uma tabela criada em access (Tab_FileDocs) com os campos “ID.Doc” e “NumeroDoc”.

Os exemplos que tenho encontrado na net são para a importação de um ficheiro .txt  com colunas e não por linhas.

Agradeço deste já a quem me possa ajudar.

Carlos Machado

Será que alguem pode ajudar-me?

Não percebo muito de SQL mas criei esta expressão, mas não funiona.  

Private Sub ImportTicket_Click()

Dim Ponteiro As integer
Dim RegistoLinha As String
Dim LinhaBKS As String
Dim StrNumbDoc As Double


Open "C:\ImportFile\*.txt" For Input As #1
DoCmd.OpenTable "Tabela_TicketInFile", acNormal, acEdit

Do While Not EOF(1) and Tabela_TicketInFile.DocNumber <> StrNumbDoc
Line Input #1, Ponteiro, LinhaBKS, RegistoLinha


LinhaBKS = Left(RegistoLinha, 3)
If RegistoLinha=”BKS” then
Tabela_TicketInFile.SiglaBKS = LinhaBKS

StrNumbDoc = Mid(RegistoLinha, 22, 13)
Tabela_TicketInFile.DocNumber = StrNumbDoc


Loop


Close #1

End Sub

Veja se ajuda;

http://maximoaccess.forumeiros.com/t7059-resolvidoimportar-dados-de-um-arquivo-txt-irregular

Antes de mais obrigado João Paulo, pela resposta.


Estou com problemas na linha do comando "Open" em abrir o ficheiro .txt.

Outro problema é que não quero integrar na tabela numero de documentos em duplicado.




Private Sub ImportTicket_Click()

Dim linha1 As String
Dim linha2 As String
Dim db As Database
Dim rs As Recordset

Open " C:\Users\20000252\Desktop\SIRAX\Teste\EMD140211.txt " For Input As #1 'o nome do ficheiro é dinâmico.
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Tabela_TicketInFile", dbOpenTable)

Do While Not EOF(1)
Line Input #1, linha1

If Left(linha1, 3) = "BKS" Then

TicketInFileNumber = Mid(linha1, 22, 13)


rs.AddNew

rs(0) = TicketInFileNumber

rs.Update

End If
Loop

MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close

End Sub

Caro João Paulo,

Vou anexar um ficheiro de imagem que explica melhor aquilo que pertendo.


Obrigado.

Estou em difiuldades...  

Carrego no botão do formulário ele corre o codigo até ao fim, mas não carrega nada na tabela.
Vou Anexar aqui, o ficheiro que estou tentando carregar.




Private Sub ImportTicket_Click()


Dim linha(1) As String
Dim Siglalinha As String

Dim db As DAO.Database, rs As DAO.Recordset


Open ("C:\Users\20000252\Desktop\EMD140211.txt") For Input As #1


Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Tabela_TicketInFile", dbOpenTable)

Do While Not EOF(1)
Line Input #1, linha(1)

Do While Not EOF(1)
Line Input #2, Siglalinha

If Left(Siglalinha, 1) = "BSK" Then 'Linhas começadas com a sigla BSK

TicketInFileNumber = Mid(linha(1), 25, 10)






rst.AddNew

rs(1) = (TicketInFileNumber)

rs.Update
End If
Loop
Loop
MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close

Close #1


End Sub

Não estou a conseguir chegar a uma solução. Será que alguem me pode ajudar.

Boas,

Será que o problema tem haver com o facto de eu estar a utilizar a versão do ACCESS 2013?


Cumprimentos,
Carlos Machado

Ola;

Converta para 2007 e anexe aqui parte do seu banco com o ficheiro, para o ajudar-mos.

Obrigado João Paulo. Segue em anexo a Base de Dados.

Ola;

Pode anexar o ficheiro EMD140211.txt" ?

Faça o teste assim;

Código:

Private Sub ImportTicket_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim linha(1) As String
Dim TicketInFileNumber  As String


Open ("C:\EMD140211.txt") For Input As #1

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Tabela_Stock_Bilhetes")

Do While Not EOF(1)
Line Input #1, linha(1)

If Left(linha(1), 3) = "BKS" Then

TicketInFileNumber = ""
TicketInFileNumber = Mid(linha(1), 25, 14)

rs.AddNew

rs.Fields("Bilhete") = TicketInFileNumber

rs.Update

End If
Loop

MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close

Close #1

End Sub



João Paulo,

Antes de mais, agradeço a resposta.

O codigo que me mandou não está a carregar tabela com os registos importados.

Envio o ficheiro em anexo.

Código:

Private Sub ImportTicket_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim linha(1) As String
Dim TicketInFileNumber  As String


Open ("C:\EMD140211.txt") For Input As #1

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Tabela_Stock_Bilhetes")

Do While Not EOF(1)
Line Input #1, linha(1)

If Left(linha(1), 4) Like "*" & "BKS" & "*" Then

TicketInFileNumber = ""
TicketInFileNumber = Mid(linha(1), 25, 14)

rs.AddNew

rs.Fields("Bilhete") = TicketInFileNumber

rs.Update

End If
Loop

MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close

Close #1

End Sub




A continua sem importar os registos do ficheiro.txt para a tabela.

Bom dia !

Pelos testes que fiz, importa sem problema.

Faça o teste da seguinte forma;

1º Coloque o txt que lhe envio, para C:\
2º Abra o form Principal, pressione o botão "Importar Tickets from EMD File" e aguarde.

Como eu tenho algo parecido com o arquivo retorno do Bradesco de boletos pagos, ai fazer também uma sugestão, mas com o código do JPaulo, não tem necessidade, funciona direitinho! Fiz aqui um teste e deu certo. Estou usando o Office 2013 365. Importou 1028 Bilhetes.

Bom dia,

Obrigado pelas respostas.

Como estou a trabalhar em rede eu não tenho permissões para cópiar o ficheiro para o c:\.
Através deste evento posso dar a volta a isto?

Abraço,
Carlos

Ola;

O teste que fiz foi em C:\, você pode copiar o txt do zip, para um diretorio que quiser e testar, alterando o caminho no código.

Pois...O problema é que já alterei o caminho e continua sem importar.  

Então o problema está no seu PC, pois aqui importa tanto no 2003 como no 2007, como no 2010.

Boas,

Estou a tentar abrir o ficheiro de outra maneira sem a função Open(), mas estou a ter problemas. Podem dar-me uma orientação?


Private Sub ImportTicket_Click()
Dim rs As Recordset
Dim FileNm As String
Dim strData As String
Dim oFSO As FileSystemObject
Set oFSO = New FileSystemObject
Dim oFS As TextStream
Close #1
Set rs = CurrentDb.OpenRecordset("Tabela_Stock_Bilhetes", dbOpenDynaset)



If oFSO.FileExists("C:\Users\20000252\Desktop\EMD140211.txt") Then

Set oFS = oFSO.OpenTextFile("C:\Users\20000252\Desktop\EMD140211.txt")
oFS.Close
Else
MsgBox "The file path is invalid.", vbCritical, vbNullString
End If
Do Until EOF(1)
Line Input #1, strData

If Left(strData, 4) Like "*BKS*" Then
rs.AddNew
rs!Bilhete = Trim(Mid(strData, 28, 10))
On Error Resume Next
rs.Update
End If
Loop

MsgBox "Importação Concluída com Sucesso!!!"
Close #1
rs.Close
Set rs = Nothing

End Sub

Meu caro Carlos Machado, o problema está resolvido porque já foi testado por outro usuário e funciona em pleno.

O que agora está a tentar fazer, é usar o Scripting Runtime para aceder ao fso.

Repare que, se não deu com o que lhe passei, então o problema está no seu PC e por mais voltas que dê, a nossa bola de cristal não funciona.

Abra novo tópico, para a nova duvida.

Caro João Paulo,

Não queria chateá-lo com a minha insistência.
Estava só a tentar resolver o meu problema...não faço minima ideia de qual a razão do problema no meu computador.

Cumprimentos,
Carlos Machado

Realmente, está funfa direitinho.
Tem algo na configuração de seu computador que está dando erro. Também não sei.
Sugiro tentar em outro computador antes de partir para modificações mais radicais.
Como disse, tenho algo parecido, abrindo e selecionando o arquivo no explorer, mas precisará usar bibliotecas e talvez aí complique mais ainda um assunto que creio já esta´resolvido de uma forma maravilhosa e simples, mostrando o domínio que o JPaulo tem da ferramenta.

Boas,

Antes de mais quero que fique claro, que não duvido que o problema está no meu computador, estou só a tentar arranjar forma de dar a volta ao problema. Aqui no meu emprego o departamento de informatica não deu grande ajuda, por isto voltei a postar.

Já consigo abrir o arquivo TXT, estou agora com problemas na condição que por alguma razão não adiciona um novo registo. Ver anexo.


If Left(strData, 4) Like "BKS*" Then
rs.AddNew
rs!TicketInFileNumber = Trim(Mid(strData, 28, 10))
On Error Resume Next
rs.Update

End If

Cpts,
CM