ImpostaArchivio10ELotto (2) ' Con questo imposto l'archivio a quello del 10eLotto 5minuti
sTemp = GetInfoEstrazioneDL(EstrazioniArchivioDL) ' scrive il risultato una variabile temporanea
' leggo i dati dcontenuti nella variabile e li separo con split
ReDim av(0) As String
av() = Split(sTemp, " ")
' Formato risultato del getinfoestrazionedl [01056] [192] 21.04.2013
' 1° Elemento Array ->[01056]
' 2° Elemento Array ->[192]
' 3°Elemento Array ->21.04.2013
' Gli array partono da 0 perciò memorizzo i singoli valori nelle apposite variabili
' ricordando che dobbiamo normalizzarli togliendo parentesi quadre e sostitundo il . con /
' levo le parentesi quadre dall'id estrazione contenuto nell'elemento 0 dell'array aV()
av(0) = Replace(av(0), "[", "")
av(0) = Replace(av(0), "]", "")
' levo le parentesi quadre dal numero estrazione contenuto nell'elemento 1 dell'array aV()
av(1) = Replace(av(1), "[", "")
av(1) = Replace(av(1), "]", "")
' sostituisco il punto con slash nell'elemento 2 dell'array aV()
av(2) = Replace(av(2), ".", "/")
' ora siamo pronti per memorizzare i dati nelle variabili
idEstr = Val(av(0))
NumEstr = Val(av(1))
sDataUltimaEstr = av(2)