importar txt

[luisym 0]

Alguém sabe como faço para pegar um txt ler linha a linha colocar numa variavel e gravar numa bd?

[hinom 5]

<%

i = 0

Var_Caminho = "caminho_do_arquivo"

Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")

Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho, 1, True, False)

If ObjAbreArq.AtEndOfStream = True Then Response.Write "<script>alert('arkivo vazio!');</script>"

Do While Not ObjAbreArq.AtEndOfStream

  linha = ObjAbreArq.ReadLine ' (aqui pega o valor da linha)

  i = i + 1

Loop

ObjAbreArq.Close

Set ObjAbreArq = Nothing

%>

total de linhas: <%=i%><br>