3 replies to this topic

[regitronic]

Pessoal Estou tentando fazer um campo de atualização no banco de dados desta forma:

Tenho um arquivo do tp TXT da seguinte maneira

codigo_do_produto|valor

Eu preciso que o sistema leia esse TXT e atualize a base de dados.

Eu tentei ja de varias formas mas não consegui, eu nunca fiz isso então se alguem puder ajudar.

[Renan L. Queiroz]

Já tentou alguma dessas maneiras, para ler o arquivo?
1 - ASP - Criar e ler um TXT
2 - Leitura e escritura de arquivos em ASP
3 - Selecionando e lendo arquivo TXT

Já sabe como salvar os dados no banco via ASP?

[regitronic]

então, este terceiro eu tentei usar, beleza ele mostro o conteudo do txt mas eu não sei como selecionar a primeira linha, para atualizar o bd, se eu selecionar a primeira linha e colocar ela numa variavel e so dar split depois para seleconar antes e depois do | correto!?

[Renan L. Queiroz]

Desculpe a demora!!

Pronto acho que isso pode lhe ajudar!!

<%
    'criamos a variável arquivo
    Dim arq : arq = request.serverVariables("APPL_PHYSICAL_PATH") &"forum\text.txt"

    'conectamos com o FSO
    Set objFSO = createObject("Scripting.FileSystemObject")

    'voltamos a abrir o arq para leitura
    Set arqObj = objFSO.OpenTextFile(arq)

    'le o arquivo enquanto não for o final do objeto
    Do while not arqObj.AtEndOfStream

        'separar os dados entre barra vertical
        'readLine é usado para indicar que iremos separar os dados linha a linha
        arrayLinha = split(arqObj.ReadLine, "|", -1, 1)

        'imprimindo o comando a ser executado por linha
        response.write ("insert into tabela (codigo_do_produto, valor) values ('"& arraylinha(0) &"','"& arraylinha(1) &"')<br />")
        'command.execute ("insert into tabela (codigo_do_produto, valor) values ('"& arraylinha(0) &"','"& arraylinha(1) &"')")

    Loop

    'destroi e fecha o objeto FSO e o acesso ao arq
    arqObj.Close
    Set arq = Nothing
    Set objFSO = Nothing
%>

Conteudo do arquivo texto utilizado (text.txt):

Renan|1
Queiroz|2

Resultado:

insert into tabela (codigo_do_produto, valor) values ('Renan','1')
insert into tabela (codigo_do_produto, valor) values ('Queiroz','2')

Edição feita por: Renan L. Queiroz, 09/02/2010, 13:48.