Questione di Split e ciclo For... Next

[[trodat]]

Ciao a tutti.

"Questione di split", parafrasando una famosa canzone di Mina e Cocciante...

Dal form generale viene processato ed arriva ad una pagina asp il seguente valore:

4-Venezia Veneto, 5-Milano Lombardia

Nel db sql server ho i campi IDLuogo, Luogo, Regione.

Dovrei inserire con una query e per ognuno dei valori che arrivano dal form, in questo modo:

IDRecord=1
IDLuogo=4
Luogo=Venezia
Regione=Veneto

IDRecord=2
IDLuogo=5
Luogo=Milano
Regione=Lombardia

Per fare ciò utilizzo questo ciclo for...next:

dati_form = split(lebez,",")
for i = 0 to Ubound(dati_form)
 sql = "insert into tbsqlserver (IDLuogo, Luogo, Regione) VALUES ("
 dati1 = split(dati_form(i),"-") 
 for j = 0 to Ubound(dati1)
  if j = 0 then
   sql = sql & trim(dati1(j))
  else
   sql = sql & ",'" & Replace(trim(dati1(j)),"'","''") & "'"
  end if
next 
 cn.execute sql
next

ma non scrive il dato relativo alla Regione, sapete dirmi perchè?

Vi ringrazio.

[Roby_72]

Devi splittare per la virgola, il trattino e lo spazio.

Roby

[[trodat]]

Scusa non ti seguo... :master:

[Mems]

beh, lo spazio ovvio, ma se per caso ha:
9-Mirabella Imbaccari Catania, 10-Aosta Valle D'Aosta
che succede?

[[trodat]]

Infatti Mems, giusta ed opportuna osservazione... che succederebbe?
mi sono messo in un guaio...

[Mems]

Si, ti sei messo in un guaio.
Comunque, l'esempio (a meno di casi relativi allo spazio "anomalo") è questo:

<%
stringa = "1-Roma Lazio, 2-Milano Lombardia"
arr1 = split(stringa,", ")
for each item in arr1
arr2 = split(item,"-")
valore1 = arr2(0)
valore1 = replace(valore1,"'","''")
arr3 = split(arr2(1)," ")
valore2 = arr3(0)
valore2 = replace(valore2,"'","''")
valore3 = arr3(1)
valore3 = replace(valore3,"'","''")
sql = "INSERT INTO tabella (campoID, campoCitta, campoRegione) VALUES(" & valore1 & ", '" & valore2 & "', '" & valore3 & "')"
conn.execute(sql)
next
%>

Per evitare il problema dovresti fare in modo che i dati arrivino tutti divisi dallo stesso carattere -

[Mems]

In pratica ti serve una stringa di questo tipo:
1-Roma-Lazio, 2-Milano-Lombardia, 3-Caropepe Valguarnera-Sicilia

[[trodat]]

Grazie Mems, sto provando con questi valori d'esempio:

1-Roma-Lazio, 2-Milano-Lombardia, 3-Caropepe Valguarnera-Sicilia

ma lo script restituisce quest'errore:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/soft.asp, line 343

la linea 343 è la rossa:

<%
stringa = "1-Roma Lazio, 2-Milano Lombardia"
arr1 = split(stringa,", ")
for each item in arr1
arr2 = split(item,"-")
valore1 = arr2(0)
valore1 = replace(valore1,"'","''")
arr3 = split(arr2(1)," ")
valore2 = arr3(0)
valore2 = replace(valore2,"'","''")
valore3 = arr3(1) 
valore3 = replace(valore3,"'","''")
sql = "INSERT INTO tabella (campoID, campoCitta, campoRegione) VALUES(" & valore1 & ", '" & valore2 & "', '" & valore3 & "')"
conn.execute(sql)
next
%>

[Mems]

Se provi con quei valori di esempio è ovvio che ti da errore!
Devi provare con i valori che ho postato nell'esempio.

[Mems]

Se vuoi provare con l'altra stringa, ovvero quella con il carattere - al posto degli spazi devi usare questo esempio:

<%
stringa = "1-Roma-Lazio, 2-Milano-Lombardia, 3-Caropepe Valguarnera-Sicilia"
arr1 = split(stringa,", ")
for each item in arr1
arr2 = split(item,"-")
valore1 = arr2(0)
valore2 = arr2(1)
valore3 = arr2(2)
sql = "INSERT INTO tabella (campoID, campoCitta, campoRegione) VALUES(" & valore1 & ", '" & valore2 & "', '" & valore3 & "')"
conn.execute(sql)
next
%>