Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde pessoal,
Pesquisando aqui no fórum eu encontrei um código que permite a importação de registros em um arquivo txt para o banco de dados.
Até ai tudo bem, mas quando precisei formular uma função que possa remover ou converter para HTML os caracteres aspa simples ‘ de todos os registros do arquivo txt antes de enviar para o banco de dados, não consegui. Tentei varias maneiras.
A linha que alterei recentemente foi esta:
arrayLinha=split.replace((varArquivo.ReadLine), ";",-1,1, "'", "'")
Alguém pode me ajudar a solucionar esse problema?
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim varArquivo
Set varArquivo = objFSO.OpenTextFile(server.MapPath("Cotacao.txt"), 1)
dim arrayLinha
Do while not varArquivo.AtEndOfStream
arrayLinha=split.replace((varArquivo.ReadLine), ";",-1,1, "'", "'")
conexao.execute "INSERT INTO tbl_cotacaoExter (cod_produto, nome_produto, qtd_prod, estoque, un_medida, cod_periodo) VALUES ('"&arrayLinha(0)&"','"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&cod_periodo&"')"
Carregando comentários...