importare da file txt

[Adam7]

Ciao a tutti!!

Girando qui sul forum ho trovato questo codice per importare un file txt/csv in un db access.

<%
file = server.mapPath("prova.txt")
set fso = server.createObject("scripting.fileSystemObject")
if fso.fileExists(file) then
set file = fso.openTextFile(file)
i = 1
while not file.atEndOfStream
if i > 1 then
tempLine = file.readLine
tempLine = replace(tempLine,"""","")
elTempLine = split(tempLine,",")
conn.execute("INSERT INTO prova (campo1, campo2, campo3, campo4, campo5) VALUES('" & tempLine(0) & "', '" & tempLine(1) & "', '" & tempLine(2) & "', '" & tempLine(3) & "', '" & tempLine(4) & "')")
end if
i = i + 1
wend

set file = nothing
end if
set fso = nothing
%>

Ho provato piu’ volte ma continua a darmi questo errore:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'tempLine'
/public/import.asp, line 13

il file txt è di questo tipo:
"1","2","3","4","5"
"6","7","8","8","10"

non riesco a trovare l’errore…. :master:
Qualche consiglio?

Grazie a tutti

[Roby_72]

Vorresti inserire 5 valori in 5 campi?

Roby

[Adam7]

ciao roby ... ehm ... si....

[elfa]

nella insert usa eltempline invece di templine (che è una stringa e non un array)

[Adam7]

grazie roby funziona perfettamente….. posso chiederti 1 altra cosa?
Con XMLHTTP se non ricordo male si puo’ richiamare il file specificando il percorso.. (es. http://www…….)
Ma non ricordo come si fa….

[Roby_72]

Impara ad usare la ricerca del forum...
Ad ogni modo uno a caso:

http://www.webaiuto.it/tutorial/asp/5.php

Roby

[Adam7]

Come al mio solito ho combinato un pastrocchio sono 2 giorni che ci provo ma l’unico risultato che ottengo e che mi importa solo la prima riga….
In cosa sbaglio?

<%
url="http://www.......it/public/prova2.txt"
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", url, False
xml.Send
stringa=xml.responseText


i = 1



arr2=split(stringa,"""")
tempLine = arr2
tempLine = replace(tempLine,"""","")
elTempLine = split(tempLine,",")
conn.execute("INSERT INTO prova (campo1, campo2, campo3, campo4, campo5) VALUES('" & eltempline(0) & "', '" & eltempline(1) & "', '" & eltempline(2) & "', '" & eltempline(3) & "', '" & eltempline(4) & "')")

i = i + 1

set xml = nothing
%>

ps. roby alcune volte la ricerca nn funziona

[santino83_11_04]

ehi ehi ehi fermati che è questo?

arr2=split(stringa,"""") 
tempLine = arr2
tempLine = replace(tempLine,"""","")
elTempLine = split(tempLine,",")

ma arr2 su cosa lo stai splittando? non credo che replace accetti un array come stringa su cui effettuare il replace...com'è la struttura di stringa?

[Adam7]

scusami infatti è sbagliato deve essere così tempLine = stringa.readLine ma cmq nn funziona :master:

[santino83_11_04]

che errore da?