Problema con CSV

[andreathedove]

Ciao,
mi potete aiutare con questo script ...

In oratica dovrei importare un CSV in access, ma ho dei problemi.

Il file lo trovate qui:

http://www.allinonenet.it/FINO-clickpoint.csv

questo è il codice

<%@ Language="VBScript" %>

<%
  'CONNECT TO THE DATABASE
  set objconn = Server.CreateObject("ADODB.Connection")
  objconn.Provider="Microsoft.Jet.OLEDB.4.0"
  objconn.Open Server.MapPath("mdb-database/csv.mdb")


  csv_to_read="FINO-clickpoint.csv"
  set fso = createobject("scripting.filesystemobject")
  set act = fso.opentextfile(server.mappath(csv_to_read),1,False)

  dim sline
  dim sSeg
  
  Do Until act.AtEndOfStream
  
  sline=act.readline
  sSeg=split(sline,";")

  dim strsql
  strsql="INSERT INTO CSV (id,categoria)"
  strsql=strsql & "VALUES('"&sSeg(0)&"', '"&sSeg(1)&"')"

  objconn.execute strsql
     
  loop
  act.close
  set act=nothing
   
  'CLOSE THE CONNECTION AND CLEAN UP
  objconn.close
  set objconn=nothing
%>

ho questo errore:

http://www.allinonenet.it/csv.asp

xche ?

Grazie,
Andrea

 

[lukeonweb]

Ciao Andrea, non fai prima a scaricare il database e ad usare le apposite funzioni di importazione?

La mia risposta è molto poco professionale, ma se devi farlo una volta sola... che ti frega?!

 

[andreathedove]

Ciao,
scusa luke ma a me serve farlo in ASP.

Sono riuscito a leggere il CSV con questo script:

<%
filePath = Server.Mappath("FINO-clickpoint.csv")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if objFileSystem.FileExists(filePath ) then	
Set objFile = objFileSystem.OpenTextFile(filePath, 1)	
'leggo file riga per riga fino alla fine del file	
Do While Not objFile.AtEndofStream
READ = (split(objFile.ReadLine,";"))
Response.Write READ(1) & "<br><br>"
Loop
objFile.Close
Set objFile=Nothing
end if
Set objFileSystem=Nothing
%>

Ora il problema che mi viene fuori il nome del campo "categoria":
come faccio a toglierlo ?

Il risultato:
http://www.allinonenet.it/csv.asp

Andrea

 

[lukeonweb]

In che senso come fai a toglierlo?

 

[andreathedove]

... nel senso che non lo voglio stampato.

Andrea

 

[andreathedove]

ho risolto il problema.
ANdrea

 

[lukeonweb]

Prova a fare a mano un conto da 0 a N e capisci in quale item c'è il campo che non ti interessa.

Ad esempio:

pippo | pluto | paperino

Se vuoi escludere pluto, escludi l'item 1.

A questo punto, in fase di stampa a video, fai un controllo e verichi che:

If tuo_metodo_di_lettura = 1 Then

... non lo stampa a video!

 

[andreathedove]

Luke sei arrivato in ritardo ...
nell'altro post ho scritto che ho risolto il problema ...

Andrea