replace per inserimento presenze

[waitec401]

'---------------------------
'	Inserimento Presenze
'---------------------------
Dim Presenze
Dim SPresenze
Dim TabellinoA
Dim TabellinoB
TabellinoA = Replace(Request.Form("tabellino_A"), ".", ",")
TabellinoB = Replace(Request.Form("tabellino_B"), ".", ",")
tabAB = TabellinoA & " " & TabellinoB

tabAB = Replace(tabAB,".",",")
if Right(tabAB,1)="," then tabAB = Left(tabAB,Len(tabAB)-1)
'Response.Write tabAB & "<hr>"
set re = new RegExp
re.Pattern="\(dal \d{1,2}’[ps]t ([^\)]+)\)"
re.Global=true
re.IgnoreCase=true
tabAB = re.Replace(tabAB,", $1")
SPresenze = SPLIT(tabAB, ", ") 
for each Presenze in SPresenze
  nome = trim(Presenze)
  ' Aggiungo la presenza al giocatore
strSQL= "UPDATE tb_carriera SET str_presenze=str_presenze+1 WHERE tb_carriera.str_giocatore in ((SELECT id_giocatore FROM tb_giocatori WHERE str_anno="&StrAnnata&" AND str_cognomegioc='"&nome&"'))"
'Response.Write strSQL & "<hr>"
objConn.Execute(strSQL)
next

Grazie
Ciao

[willybit]

l'apice usato nella re e quello usato nei nomi è diverso.. per sistemare metti tutti e due i tipi di apice

re.Pattern="\(dal \d{1,2}[’'][ps]t ([^\)]+)\)"

e poi attentoche i vari nomi devono essere separati da virgola spazio ", " e non solo virgola.

[waitec401]

ok
sembra funzionare alla grande,
per evitare errori potrei fare un controllo su come è scritto il tabellino?

Caio

[willybit]

il tabellino viene scritto in un form.... intendi un controllo lato client?
come dovrà essere inserito?
Nomi separati da virgola spazio ", " e punto "." alla fine
e i cambi tra parentesi

"Belardi, Zini, De Simone, Di Sole, Sussi, Pierotti (dal 19’st Nervo), Calzi, Miceli (dal 44’st Russo), Rizzato, Corona, Sorrentino (dal 33’st Imbriani)."

[waitec401]

Si viene scritto in un form, e siccome viene fatto il copia e incolla a volte nell'originale al posto della virgola c'è un puntoevirgola o manca lo spazio, in questi casi io avverto che il tabellino non è inserito correttamente.