Ho realizzato un codice che da un elenco (tabellino di una partita di calcio) di giocatori riesco ad incrementare le presenze nel caso il giocatore sia stato utilizzato per la partita.

Il problema è che quando nell'elenco il giocatore viene sostituito invece della virgola c'è un testo compreso tra le parentesi, e sia il nuovo entrato che il giocatore sostituito non vengono considerati e quindi non gli viene assegnata la presenza

Ecco 1 esempio di tabellino:

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).

codice:
'---------------------------
'	Inserimento Presenze
'---------------------------
Dim Presenze
Dim SPresenze
Dim TabellinoA
Dim TabellinoB
TabellinoA = StrTabellinoA
TabellinoB = StrTabellinoB
TabellinoA = Replace(StrTabellinoA, ".", ",")
TabellinoB = Replace(StrTabellinoB, ".", ",")
tabAB = TabellinoA & " " & TabellinoB
set re = new RegExp
re.Pattern="\(dal \d{1,2}’[ps]t ([^\)]+)\)"
re.Global=true
re.IgnoreCase=true
set ris=re.Execute(tabAB)
tabAB = re.Replace(tabAB,"")
re.Pattern="\(dal \d{1,2}’[ps]t "
for each rr in ris
	nome = re.Replace(rr,"")
	tabAB = tabAB & "," & Left(nome,Len(nome)-1)
next
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&"'))"
  objConn.Execute(strSQL)
next