Gentili colleghi,
Sto cercando un metodo che mi permetta di importare i dati contenuti in un file csv all'interno di un database.

Io sono riuscito a:

1- leggere ogni riga del file
2- creare un array per ogni singola riga
3- stampare a video il tutto in una tabella

Qui è visibile quanto sopra:
http://www.event-promotion.it/prova/lettura.asp

Ora però vorrei memorizzare il contenuto di ogni riga in una variabile in modo che cliccando sul pulsante che si occuperà di processare il form vengano eseguite le seguenti operazioni:

1- eliminazione dei doppioni dalla stringa
2- controllo della presenza dell'indirizzo email nel db e in questo caso saltare e andare al record successivo memorizzando che quanti campi sono stati trovati a doppione
3 - inserire i dati nel database

Mi aiutate ?

<%
Response.Expires=0
Response.Buffer = True
totrec = 0

Set FileObject=CreateObject("Scripting.FileSystemObject")
MioFile=Server.MapPath("visual2006.csv")
Set InStream=FileObject.OpenTextFile(MioFile,1,True)
%><form method="POST" action="importa.asp"><table border=1>
<%
Do While Not InStream.AtEndOfStream
linea = InStream.ReadLine()
carat = split (linea,";")
%><tr>
<%
for i = 0 to ubound(carat)
Response.Write "<td>" & carat(i) &"</td>"
next
%></tr>
<%
Loop
%><tr><%
colonne = ubound(carat)+1
for i = 1 to colonne
%>
<td><select class="SmallTextField" name="campodb<%=i%>" size="1">
<option value selected>Ignora</option>
<option value="email">Email</option>
<option value="campo1">Nome</option>
<option value="campo2">Cognome</option>
<option value="campo3">Città</option>
<option value="campo4">Indirizzo</option>
<option value="campo5">CAP</option>
<option value="campo6">Sesso</option>
<option value="campo7">Età</option>
</select></td>
<%
next
%></tr><%
InStream.Close
Set InStream=Nothing
Set FileObject=Nothing
%></table>
<p align="center"><input type="submit" value="Importa" name="B1"></p>
</form>

---

Modificato da djwebmaster il 18 marzo 2007 16.04 -