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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Abertura de Vários Arquivos txts
Régis
SÃO PAULO
SP - BRASIL
Postada em 05/12/2005 13:20 hs            
E gostaria de saber onde eu posso encontrar exemplos de abertura de vários arquivos txts importando para um banco de dados.
 
Obrigado
     
Gboese
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 05/12/2005 14:07 hs            
aqui no VB WEB mesmo... vá em dicas que você acha alguns exemplos... de como importar arquivos texto direto pra um banco de dados

Gustavo Boese
   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 06/12/2005 06:27 hs            
Não sei se é o que você quer mas veja este código.
 
       Dim sTexto As String
    Dim sArray() As String
    Dim sNomeAnterior As String
   
    Dim i As Integer
    i = 1
    '.Recordset("") = REPLACE(Trim$(sArray()), CHR(34), "")
    Open "D:ImportImportTransTransD.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, sTexto
            sArray() = Split(sTexto, "|")
            If sNomeAnterior <> Left(Replace(Trim$(sArray(0)), Chr(34), ""), 40) Then
                With Data1
                    .Recordset.AddNew
                    .Recordset("COD") = Format(i, "000000")
                    .Recordset("NOME") = Left(Replace(Trim$(sArray(0)), Chr(34), ""), 40)
                    sNomeAnterior = Left(Replace(Trim$(sArray(0)), Chr(34), ""), 40)
                    .Recordset("NREDUZ") = Left(Replace(Trim$(sArray(1)), Chr(34), ""), 15)
                    .Recordset("VIA") = "RODOVIARIO     "
                    .Recordset("END") = Left(Replace(Trim$(sArray(4)) & " " & Replace(Trim$(sArray(5)), ",", "") & IIf(Trim$(sArray(6)) <> "", ", N. " & Trim$(sArray(6)), ""), Chr(34), ""), 40)
                    .Recordset("BAIRRO") = Replace(Trim$(sArray(8)), Chr(34), "")
                    .Recordset("MUN") = Replace(Trim$(sArray(10)), Chr(34), "")
                    .Recordset("EST") = Replace(Trim$(sArray(11)), Chr(34), "")
                    .Recordset("CEP") = Replace(Trim$(sArray(9)), Chr(34), "")
                    .Recordset("DDD") = IIf(Replace(Trim$(sArray(12)), Chr(34), "") <> "0", Replace(Trim$(sArray(12)), Chr(34), ""), "")
                    .Recordset("TEL") = IIf(Replace(Trim$(sArray(13)), Chr(34), "") <> "0", Replace(Trim$(sArray(13)), Chr(34), ""), "")
                    .Recordset("L_FAX") = IIf(Replace(Trim$(sArray(14)), Chr(34), "") <> "0", Replace(Trim$(sArray(14)), Chr(34), ""), "")
                    Dim sTipo As String
                    sTipo = ""
                    sTipo = Replace(Trim$(sArray(2)), ".", "")
                    sTipo = Replace(sTipo, "/", "")
                    sTipo = Replace(sTipo, "-", "")
                    .Recordset("CGC") = Replace(sTipo, Chr(34), "")
                    If Len(Replace(Trim$(sArray(3)), Chr(34), "")) > 15 Then
                        sTipo = ""
                        sTipo = Replace(Trim$(sArray(3)), ".", "")
                        .Recordset("INSEST") = Replace(Trim$(sArray(3)), Chr(34), "")
                    Else
                        .Recordset("INSEST") = Replace(Trim$(sArray(3)), Chr(34), "")
                    End If
                    .Recordset("EMAIL") = Replace(Trim$(sArray(15)), Chr(34), "")
                    .Recordset.Update
                End With
            End If
        Loop
    Close #1
 
Veja mais este exemplo:
 
 
Você deve fechar um antes de abrir o outro. (Não é exatamente abrir vários, mas esta importando par ao banco.)
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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