Importare file txt

[mr.fifteen]

No... non riesco a capire...

if fso.fileExists(file) then
set file = fso.openTextFile(file)
i = 1
while not file.atEndOfStream
if i < 2 then
tempLine = file.readLine
tempLine = replace(tempLine,"""","")
elTempLine = split(tempLine,";")

Questo è il mio codice...
ho provato in tutti i modi...
allora se io faccio if i = 2 mi stampa la prima linea...
quindi io devo avere tutti i valori tranne l'ultimo?
non capisco assolutamente nulla.

[optime]

...
i = 1
while not file.atEndOfStream
   if i > 1 then
      tempLine = file.readLine
      tempLine = replace(tempLine,"""","")
      elTempLine = split(tempLine,";")
      Inserisci.CommandText=("INSERT INTO prova (Riferimento) VALUES('" & elTempLine(0) & "')")
   end if
   i = i + 1
wend
...

questo è il tuo originale... andava già bene

[Roby_72]

A meno che le linee da escludere non siano più d'una...

Roby

[mr.fifteen]

A volte ritornano...
Scusate ma ho avuto problemi con il computer e non sono riuscito a provare subito...
Allora vi dico quello che faccio

se io metto i>1 nel db stampa anche la prima riga
ho provato anche con i>2 e i>0 ma stampa sempre le prime 2 righe...

[Roby_72]

E' possibile vedere le prime righe di questo file?

Roby

[mr.fifteen]

Certamente... mando tutta la pagina tanto non è lunghissima

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
set Inserisci=Server.CreateObject("ADODB.Command")
Inserisci.ACTIVECONNECTION=MM_Conn_Sassa_STRING
file = server.mapPath("testata.txt")
set fso = server.createObject("scripting.fileSystemObject")
if fso.fileExists(file) then
set file = fso.openTextFile(file)
i = 0
while not file.atEndOfStream
if i > 0 then
tempLine = file.readLine
tempLine = replace(tempLine,"""","")
elTempLine = split(tempLine,";")
Inserisci.CommandText=("INSERT INTO tbl_testata (ID, Riferimento, Codice, EU_nome, EU_cognome, EU_ragsoc, EU_P_IVA, EU_Indirizzo, EU_Citta, EU_PR, EU_tel, EU_fax, EU_email, Commenti, Data_ins, Data_scad, Stato, Messaggio, Pagamento, Trasporto) VALUES('" & eltempLine(0) & "', '" & eltempLine(1) & "', '" & eltempLine(2) & "', '" & eltempLine(3) & "', '" & eltempLine(4) & "', '" & eltempLine(5) & "', '" & eltempLine(6) & "', '" & eltempLine(7) & "', '" & eltempLine(8) & "', '" & eltempLine(9) & "', '" & eltempLine(10) & "', '" & eltempLine(11) & "', '" & eltempLine(12) & "', '" & eltempLine(13) & "', '" & eltempLine(14) & "', '" & eltempLine(15) & "', '" & eltempLine(16) & "', '" & eltempLine(17) & "', '" & eltempLine(18) & "', '" & eltempLine(19) & "')")
Inserisci.execute
end if
i = i + 1
wend

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

Ovviamente è un po' più lunga perchè questa è quella che mi serve nella realtà e non è più la prova iniziale...

[Roby_72]

Del file di testo intendevo...

Roby

[mr.fifteen]

stupido stupido stupido... scusa...

"ID";"Riferimento";"Codice";"EU_nome";"EU_cognome";"EU_ragsoc";"EU_P_IVA";"EU_Indirizzo";"EU_Citta";"EU_Pr";"EU_tel";"EU_fax";"EU_email";"Commenti";"Data_ins";"Data_scad";"Stato";"Messaggio";"Pagamento";"Trasporto"
226610;"PC OFFICE gemelli";"929145";"";"";"";"";"";"";"";"";"";"";"";19/09/2006 22.38.00;29/09/2006 22.38.00;"IN PREPARAZIONE";"";"";"0"

[Roby_72]

E quante righe sarebbero queste?

Roby

[mr.fifteen]

questo 1...
purtroppo non ho altri esempi con più di una riga, il succo è che deve saltare la prima, quella con l'intestazione... per intenderci questa:
"ID";"Riferimento";"Codice";"EU_nome";"EU_cognome" ;"EU_ragsoc";"EU_P_IVA";"EU_Indirizzo";"EU_Citta"; "EU_Pr";"EU_tel";"EU_fax";"EU_email";"Commenti";"D ata_ins";"Data_scad";"Stato";"Messaggio";"Pagament o";"Trasporto"