Novità

script di mike che voglio modificare

P

ppaaoolloo

Super Member >PLATINUM<
ciao,
vorrei poter utilizzare questo script di Mike che segue
ma modificando solo i gruppetti dei numeri della
tabella che ne contiene 90

esempio
a(01) = "01-02"
a(02) = "02-03"
a(03) = "03-04"
a(04) = "04-05"
a(05) = "05-06"
a(06) = "06-07"
a(07) = "07-08"
a(08) = "08-09"
ecc.

con altre lunghette da me scelte,

esempio

a(01) = "01-02-22-23-25"
a(02) = "02-03-24-25-29"
a(03) = "03-04-55-58-59"
a(04) = "04-05-33-36-39"
a(05) = "05-0641-42-43"
a(06) = "06-07-77-78-79"
a(07) = "07-08-12-14-15"
a(08) = "08-09-16-18-19"
ecc.

ma ne vorrei inserire qualche migliaio....

la mia domanda è:
fino a quante lunghette posso inserire?
c'è un limite massimo?

ringrazio anticipatamente

ecco lo script di mike


Sub Main
Dim a(90)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " -1 "
atitoli(07) = " -2 "
atitoli(08) = " -3 "
atitoli(09) = " -4 "
atitoli(10) = " -5 "
atitoli(11) = " -6 "
atitoli(12) = " -7 "
atitoli(13) = " -8 "
atitoli(14) = " -9 "
atitoli(15) = " -10 "
atitoli(16) = " Estr. "
atitoli(17) = " +2 "
atitoli(18) = " +3 "
atitoli(19) = " +4 "
atitoli(20) = " +5 "
atitoli(21) = " +6 "
atitoli(22) = " +7 "
atitoli(23) = " +8 "
atitoli(24) = " +9 "
atitoli(25) = " +10 "
atitoli(26) = " +11 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " Ultima ESTR_Esito "

Call InitTabella(atitoli,2,,2,5)

a(01) = "01-02"
a(02) = "02-03"
a(03) = "03-04"
a(04) = "04-05"
a(05) = "05-06"
a(06) = "06-07"
a(07) = "07-08"
a(08) = "08-09"
a(09) = "09-10"
a(10) = "10-11"
a(11) = "11-12"
a(12) = "12-13"
a(13) = "13-14"
a(14) = "14-15"
a(15) = "15-16"
a(16) = "16-17"
a(17) = "17-18"
a(18) = "18-19"
a(19) = "19-20"
a(20) = "20-21"
a(21) = "21-22"
a(22) = "22-23"
a(23) = "23-24"
a(24) = "24-25"
a(25) = "25-26"
a(26) = "26-27"
a(27) = "27-28"
a(28) = "28-29"
a(29) = "29-30"
a(30) = "30-31"
a(31) = "31-32"
a(32) = "32-33"
a(33) = "33-34"
a(34) = "34-35"
a(35) = "35-36"
a(36) = "36-37"
a(37) = "37-38"
a(38) = "38-39"
a(39) = "39-40"
a(40) = "40-41"
a(41) = "41-42"
a(42) = "42-43"
a(43) = "43-44"
a(44) = "44-45"
a(45) = "45-46"
a(46) = "46-47"
a(47) = "47-48"
a(48) = "48-49"
a(49) = "49-50"
a(50) = "50-51"
a(51) = "51-52"
a(52) = "52-53"
a(53) = "53-54"
a(54) = "54-55"
a(55) = "55-56"
a(56) = "56-57"
a(57) = "57-58"
a(58) = "58-59"
a(59) = "59-60"
a(60) = "60-61"
a(61) = "61-62"
a(62) = "62-63"
a(63) = "63-64"
a(64) = "64-65"
a(65) = "65-66"
a(66) = "66-67"
a(67) = "67-68"
a(68) = "68-69"
a(69) = "69-70"
a(70) = "70-71"
a(71) = "71-72"
a(72) = "72-73"
a(73) = "73-74"
a(74) = "74-75"
a(75) = "75-76"
a(76) = "76-77"
a(77) = "77-78"
a(78) = "78-79"
a(79) = "79-80"
a(80) = "80-81"
a(81) = "81-82"
a(82) = "82-83"
a(83) = "83-84"
a(84) = "84-85"
a(85) = "85-86"
a(86) = "86-87"
a(87) = "87-88"
a(88) = "88-89"
a(89) = "89-90"
a(90) = "90-01"
'--------------------------------------------------------------------
ReDim aPos(5)
'aPos(1) = True
'aPos(2) = True
'aPos(3) = True
aPos(4) = True
aPos(5) = True
For N = 1 To UBound(a)
Nu = Split("0-" &(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin,,aPos)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,Nothing,esitoF,, estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,fin,fin,,aPos)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
hhh = SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,nu,aRuote,1)
iii = SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,nu,aRuote,1)
lll = SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,nu,aRuote,1)
mmm = SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,nu,aRuote,1)



'End If
If fre > 0 Then
ReDim avalori(30)
avalori(01) = " Dec. " & Format2(n)
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = hhh
avalori(13) = iii
avalori(14) = lll
avalori(15) = mmm
avalori(16) = aaa
avalori(17) = aaa + bbb
avalori(18) = aaa + bbb + ccc
avalori(19) = aaa + bbb + ccc + ddd
avalori(20) = aaa + bbb + ccc + ddd + eee
avalori(21) = aaa + bbb + ccc + ddd + eee + fff
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF


Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
 
P

ppaaoolloo

Super Member >PLATINUM<
ciao
ho provato ad inserire le mie lunghette
e sono riuscito ad arrivare fino a 2.000
dopo di che lo script va in tilt

facendo qualche variazione oppure cambiandolo
si potrebbe arrivare ad inserirne 24.000?
questo è il numero di lunghette che ho pensato
e già pronte.

ringrazio anticipatamente chi vorrà aiutarmi

saluti
 
i legend

i legend

Premium Member
Hai provato con un foglio txt per le lunghette?
Le tabelle non possono sfruttare più di un tot di righe ,se superato tale limite potrebbero dare errore.
 
P

ppaaoolloo

Super Member >PLATINUM<
20220826_080154.jpg
Questo è il messaggio che mi da mentre faccio il copia incolla delle lunghette, mentre come detto sopra fino a 2000 è tutto ok.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Forse dipende dalla ram del computer, ho provato in uno script a inserire molte righe ed a me da errore di Overflow con 1665 righe

il mio computer ha 4 giga di ram.
 
i legend

i legend

Premium Member
Hai provato ad inserire le lunghette in un foglio fi block note?
Poi quando lanci lo script utilizzi leggi righedafile le scorri ed in base hai filtri le metti in tabella. 24000 righe non so se stanno in tabella. Il foglio dello script viene appesantito troppo con tutte quelle righe.
 
P

ppaaoolloo

Super Member >PLATINUM<
ciao a tutti
alla fine non sono riuscito a fare niente di buono,
così ho fatto 12 script con 2.000 lunghette
è una grandissima perdita di tempo
ma per lo meno riesco ad ottenere quello che
cercavo, comunque ringrazio tutti per i
consigli che mi avete dato
buona serata
 
i legend

i legend

Premium Member
Quando analizzi le lunghette, avrai dei filtri che le ridurranno a quante più o meno? Puoi postare 10 lunghette di esempio . Non necessariamente le tue , random va benissimo giusto per capire come sono scritte, per non fare un lavoro inutile , e farti riscrivere tutto nuovamente.
Scrivo questo perché il primo suggerimento mi sembrava una strada percorribile.
Cmq se hai risolto, magari non è bellissima e funzionale ma ti faccio i miei complimenti ugualmente per aver trovato una soluzione. 🙂👍
 
Ultima modifica:
G

giomi

Banned
seguito idee riportate .
problema , non e' tanto lettura righe , ma visuallizazione di tali .
occorre buona ram .
Codice: 
Option Explicit
' ref_20220916_01
Dim clsHSS
Sub Main
   Dim sFileBd
   ' imposto il percorso per il file della base dati da usare
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   ' istanzio l'oggetto HSS
   Set clsHSS = CreateObject("HSS.ClsHighSpeedStat")
   ' inizializzo l'archivio.N.B. E' la prima cosa da fare
   ' 1 indica che il file è l'archivio lotto di spaziometria
   Call clsHSS.Init(sFileBd,1)
   ReDim a(00)
   Dim Ru(1)
   ReDim aRuote(11)
   Dim k,N,qualeTab,qt,sorte,color,sFile,Fin,Ini
   Dim NU,rit,max,Incr,fre,retesito,retestratti
   Dim esitoF,estrF,ritP,maxP,IncrP,aaa
   Dim bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm,x
   qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
   'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
   qt = CInt(InputBox("QUANTE , CONTROLLO",,200))
   sorte = CInt(InputBox("QUALE SORTE ",,1))
   color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
   sFile = ScegliFile(".\",".txt")
   Dim posta(2)
   posta(1) = 1
   posta(2) = 1
   Fin = EstrazioneFin
   Ini = EstrazioneFin - qt
   Call TempoTrascorso()
   If ScegliRuote(aRuote) > 0 Then
      Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
      Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
      Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
      Scrivi
      For k = 1 To UBound(aRuote)
         If aRuote(k) > 0 Then
            Ru(1) = aRuote(k)
            'For rt = 1 To 12
            'Ru(1) = aRuote(k)
            ReDim atitoli(30)
            atitoli(01) = " fila "
            atitoli(02) = " numeri "
            atitoli(03) = " Rit. "
            atitoli(04) = " Rit. M. "
            atitoli(05) = " Estr. "
            atitoli(06) = " -1 "
            atitoli(07) = " -2 "
            atitoli(08) = " -3 "
            atitoli(09) = " -4 "
            atitoli(10) = " -5 "
            atitoli(11) = " -6 "
            atitoli(12) = " -7 "
            atitoli(13) = " -8 "
            atitoli(14) = " -9 "
            atitoli(15) = " -10 "
            atitoli(16) = " Estr. "
            atitoli(17) = " +2 "
            atitoli(18) = " +3 "
            atitoli(19) = " +4 "
            atitoli(20) = " +5 "
            atitoli(21) = " +6 "
            atitoli(22) = " +7 "
            atitoli(23) = " +8 "
            atitoli(24) = " +9 "
            atitoli(25) = " +10 "
            atitoli(26) = " +11 "
            atitoli(27) = " I.C. "
            atitoli(28) = " Media uscita "
            atitoli(29) = " Stringa estratti "
            atitoli(30) = " Ultima ESTR_Esito "
            Call InitTabella(atitoli,2,,2,5)
            '-----.----------------------------
            Call LeggiRigheFileDiTesto(sFile,a)
            For N = 1 To UBound(a)
               NU = Split("0-" &(a(N)),"-")
               ReDim aPos(5)
               aPos(1) = True
               aPos(2) = True
               aPos(3) = True
               aPos(4) = True
               aPos(5) = True
               Call clsHSS.StatisticaFormazione(NU,aRuote,sorte,rit,max,Incr,fre,Ini,Fin,,aPos)
               'If Ru(1) = 11 Then
               'ReDim rr(10)
               'For xx = 1 To 10
               'rr(xx) = xx
               'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
               'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
               'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
               'Next
               'End If
               'If Ru(1) <> 11 Then
               Call clsHSS.VerificaEsito(NU,aRuote,Fin - rit,sorte,,Nothing,retesito,,retestratti)
               Call clsHSS.VerificaEsito(NU,aRuote,EstrazioneFin,1,,Nothing,esitoF,,estrF)
               'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
               Call clsHSS.StatisticaFormazione(NU,aRuote,1,ritP,maxP,IncrP,aaa,Fin,Fin,,aPos)
               bbb = clsHSS.SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,NU,aRuote,1)
               ccc = clsHSS.SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,NU,aRuote,1)
               ddd = clsHSS.SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,NU,aRuote,1)
               eee = clsHSS.SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,NU,aRuote,1)
               fff = clsHSS.SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,NU,aRuote,1)
               ggg = clsHSS.SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,NU,aRuote,1)
               hhh = clsHSS.SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,NU,aRuote,1)
               iii = clsHSS.SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,NU,aRuote,1)
               lll = clsHSS.SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,NU,aRuote,1)
               mmm = clsHSS.SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,NU,aRuote,1)
               'End If
               If fre > 0 Then
                  ReDim avalori(30)
                  avalori(01) = " Dec. " & Format2(N)
                  avalori(02) = StringaNumeri(NU,"-",True)
                  avalori(03) = rit
                  avalori(04) = max
                  avalori(05) = aaa
                  avalori(06) = bbb
                  avalori(07) = ccc
                  avalori(08) = ddd
                  avalori(09) = eee
                  avalori(10) = fff
                  avalori(11) = ggg
                  avalori(12) = hhh
                  avalori(13) = iii
                  avalori(14) = lll
                  avalori(15) = mmm
                  avalori(16) = aaa
                  avalori(17) = aaa + bbb
                  avalori(18) = aaa + bbb + ccc
                  avalori(19) = aaa + bbb + ccc + ddd
                  avalori(20) = aaa + bbb + ccc + ddd + eee
                  avalori(21) = aaa + bbb + ccc + ddd + eee + fff
                  avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
                  avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
                  avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
                  avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
                  avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
                  avalori(27) = Round(qt/fre,2)
                  avalori(28) = Round(fre/qt*rit,2)
                  avalori(29) = retestratti
                  avalori(30) = esitoF & " : " & estrF
                  Call AddRigaTabella(avalori,,,2)
               End If
               For x = 1 To 15
                  If N = color Then Call SetColoreCella((x),3,1)
               Next
               '-----------------------------------.
               Call AvanzamentoElab(000,UBound(a),N)
               Call Messaggio("Lettura Colonna : " & _
               FormattaStringa(N,"00000"))
            Next
            '-----------------------------------------
         End If
      Next
   End If
   Call SetTableWidth("100%")
   If qualeTab = 1 Then Call CreaTabella(6)
   If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
   If qualeTab > 2 Then MsgBox " errore digit Tabella"
   Call Scrivi()
   Call Scrivi("Tempo di elaborazione : " & TempoTrascorso)
   Call Scrivi()
   Call PicClear()
   Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
   Call PicEsegui()
End Sub
 
i legend

i legend

Premium Member
Ciao giomi, qualche tempo fa ho provato ad usare questa classe per velocizzare una ricerca. Potresti controllare se il ritardo che ottieni coincide con i valori delle tabelle di spaziometria?
Riscontravo su alcune formazioni differenze, ma non capisco perché .
Ottimo lavoro, la libreria clshss è stata
Poco utilizzata, se non da magia un utente molto bravo a fare listati.
Ciao:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 02 maggio 2024
    Bari
    43
    35
    83
    74
    40
    Cagliari
    10
    23
    48
    01
    87
    Firenze
    71
    12
    04
    27
    01
    Genova
    83
    37
    42
    70
    78
    Milano
    28
    72
    27
    30
    07
    Napoli
    34
    42
    13
    67
    11
    Palermo
    37
    77
    19
    17
    12
    Roma
    79
    85
    90
    55
    49
    Torino
    83
    56
    46
    57
    19
    Venezia
    41
    48
    57
    12
    15
    Nazionale
    84
    70
    10
    67
    74
    Estrazione Simbolotto
    Milano
    22
    09
    04
    01
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto