[Resolvido] Como remover ou converter aspas simples ' de um t

[Leandro Ribeiro 0]

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&"')"

[Ted k' 126]

arrayLinha=replace((varArquivo.ReadLine), "'", "'")

[Leandro Ribeiro 0]

arrayLinha=replace((varArquivo.ReadLine), "'", "'")

Olá, valeu pela dica, mas tem um problema, ao substituir a linha esta ocorrendo o seguinte erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/testes/gmerc/comerc/valida_cadastra_cotacao_Exter.asp, line 96

 

a linha 96 é a que contem o comando Insert:

 

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&"')"

[Mário Monteiro 179]

voce esta substituindo umas aspa por outra?

 

substitua por duas

[Leandro Ribeiro 0]

voce esta substituindo umas aspa por outra?

 

substitua por duas

Olá Mario, Então eu tentei fazer isso, mas ocorre o mesmo erro. E tem outro detalhe eu preciso manter as o ponto e virgura ; pois o txt vem como marcador ;

 

A linha que tava utilizando era essa:

arrayLinha=split(varArquivo.ReadLine, ";",-1,1)

Veja que o marcador que separa os campos é o ponto e virgula ;

 

Quando altero para a proposta o Ted K' apresentou, não dá pois perco o marcado que separa os campos (ponto e virgula ;)

arrayLinha=replace((varArquivo.ReadLine), "'", "'")

Se coloco duas aspas também ocorre o mesmo erro.

[Leandro Ribeiro 0]

Pessoal valeu pela ajuda, consegui fazer mas de uma maneira diferente, vejam abaixo como:

arrayLinha(0) = Replace((arrayLinha(0)), "'", "'")
arrayLinha(1) = Replace((arrayLinha(1)), "'", "'")
arrayLinha(2) = Replace((arrayLinha(2)), "'", "'")
arrayLinha(3) = Replace((arrayLinha(3)), "'", "'")
arrayLinha(4) = Replace((arrayLinha(4)), "'", "'")

Dessa forma todos os registros que tenham aspa simples no arquivo txt são convertidos em caracter html, podendo assim ser salvo no banco de dados.

 

 

Mas mesmo assim gostaria de saber se tem como fazer isso direto na linha:

 

arrayLinha=split(varArquivo.ReadLine, ";",-1,1)