Novità

PER JOE O ALTR I SCRIPTER

Cinzia27

Premium Member
Ciao, Trivellato.
Non riesco a capire il file. Ho pensato che si trattassero di estrazioni, ma pare che non sia così.
Puoi spiegarlo ?
Cinzia
 

Cinzia27

Premium Member
Ciao, Trivellato.
Può andar bene ?
Codice:
' Archivio lotto per Trivellato (Cinzia)
Sub Main()
Scrivi " ",0,0
For es=9600 To EstrazioneFin
For r=1 To 10
For p=1 To 5
a=Estratto(es,r,p)
Scrivi Format2(a)&"",0,0
Next
Next
Scrivi "-"&giorno(es)&""&Left(MeseNome (6),3)&"-"&Anno(es)&"",0,0
Scrivi IndiceAnnuale(es)&"   ",0,0
Next
End Sub
 

trivellatomariotretre33

Super Member >PLATINUM<
Ciao Cinzia27 o provato il listato ma necessita di modifica controlla il tx che ti allego grazie anticipatamente. (controlla minusola e maiuscola)
e i giusti posti dove si applica (-)
esem;
06443320558679084406206358800773622449147638241418 17205407698929041761769054614306393159566461905057 07-dic-199149
puo venire incolonnato come tx in foto grazie
 

Allegati

  • 7.txt
    3,2 KB · Visite: 0
  • 7.png
    7.png
    249,4 KB · Visite: 1
Ultima modifica:

Cinzia27

Premium Member
Ciao, Trivellato.
Adesso dovrebbe andar bene.
Prova a vedere.

'
Codice:
 ' Archivio lotto per Trivellato (Cinzia)
Sub main()

For es=6285 To EstrazioneFin
For r=1 To 10
For p=1 To 5
a=Estratto(es,r,p)
Scrivi Format2(a)&"",0,0
Next
Next
Scrivi "-"&format2(giorno(es))&""&Left(MeseNome (6),3)&"-"&anno(es)&"",0,0
Scrivi format2(IndiceAnnuale(es))
Next
End Sub
 
Ultima modifica:

trivellatomariotretre33

Super Member >PLATINUM<
CINZIA NOTA BENE CE UN ERRORE QUI ALLA DATA
8649586590527054597440197535083760671827718117847743118342015008404232616563601234462890602654698688-27Giu-201951 IL TUO LISTATO MI DA LA LINIETTA (-27Giu-201951) MENTRE DEVE ESSERE COSI (-giu-194525) LA DATA PRIMA DELLA LINEA GRAZIE ANCORA CINZIA27.
NOTA BENE DEVE ESSERE COSI IL MESE MINUSCOLO (-giu-194525)
 
Ultima modifica:

Cinzia27

Premium Member
Già. Guarda ora.
'
Codice:
 Archivio lotto per Trivellato (Cinzia)
Sub main()

For es=6282 To EstrazioneFin
For r=1 To 10
For p=1 To 5
a=Estratto(es,r,p)
Scrivi Format2(a)&"",0,0
Next
Next
Scrivi ""&format2(Giorno(es))&"-"&Left(MeseNome (6),3)&"-"&anno(es)&"",0,0
Scrivi Format2(IndiceAnnuale(es))
Next
End Sub
 

trivellatomariotretre33

Super Member >PLATINUM<
Cinzia27 IL MESE DEVE ESSERE MINUSCOLO (-giu-194525)
Cinzia27 0 notato cche manca lo spazio come nel tx a ogni inizio estrazione scusami dai che ci siamo grazie per la pazienza.
 

Allegati

  • 7.png
    7.png
    254,8 KB · Visite: 1
Ultima modifica:

Cinzia27

Premium Member
Scusami, Trivellato.
E' che continuavo a provarlo su Lottodesk che adotta già il minuscolo per il mese e quindi per me andava bene.
Invece su Spaziometria vi è la maiuscola e non ho trovato una funzione che la trasformi in minuscola, quindi
ho fatto questo piccolo arrangiamento.
Sarà la volta buona ?:)


Sub Main()

For es=3862 To EstrazioneFin
For r=1 To 10
For p=1 To 5
a=Estratto(es,r,p)
Scrivi Format2(a)&"",0,0
Next
Next
Scrivi ""&Format2(giorno(es))&"-",0,0
If Mese(es)=1 Then Scrivi "gen"&"-",0,0
If Mese(es)=2 Then Scrivi "feb"&"-",0,0
If Mese(es)=3 Then Scrivi "mar"&"-",0,0
If Mese(es)=4 Then Scrivi "apr"&"-",0,0
If Mese(es)=5 Then Scrivi "mag"&"-",0,0
If Mese(es)=6 Then Scrivi "giu"&"-",0,0
If Mese(es)=7 Then Scrivi "lug"&"-",0,0
If Mese(es)=8 Then Scrivi "ago"&"-",0,0
If Mese(es)=9 Then Scrivi "set"&"-",0,0
If Mese(es)=10 Then Scrivi "ott"&"-",0,0
If Mese(es)=11 Then Scrivi "nov"&"-",0,0
If Mese(es)=12 Then Scrivi "dic"&"-",0,0

Scrivi "-"&Anno(es)&"",0,0
Scrivi Format2(IndiceAnnuale(es))
Next
End Sub
 

Cinzia27

Premium Member
Sono passata su Spaziometria
Hai ragione, Trivellato.
E mi sono anche accorta che nel tuo file l' indice annuale quando inferiore a 10 non ha lo zero davanti.
Prova adesso.


Codice:
Sub Main()

For es=3862 To EstrazioneFin
For r=1 To 10
For p=1 To 5
a=Estratto(es,r,p)
Scrivi Format2(a)&"",0,0
Next
Next
Scrivi ""&Format2(giorno(es))&"-",0,0
If Mese(es)=1 Then Scrivi "gen"&"-",0,0
If Mese(es)=2 Then Scrivi "feb"&"-",0,0
If Mese(es)=3 Then Scrivi "mar"&"-",0,0
If Mese(es)=4 Then Scrivi "apr"&"-",0,0
If Mese(es)=5 Then Scrivi "mag"&"-",0,0
If Mese(es)=6 Then Scrivi "giu"&"-",0,0
If Mese(es)=7 Then Scrivi "lug"&"-",0,0
If Mese(es)=8 Then Scrivi "ago"&"-",0,0
If Mese(es)=9 Then Scrivi "set"&"-",0,0
If Mese(es)=10 Then Scrivi "ott"&"-",0,0
If Mese(es)=11 Then Scrivi "nov"&"-",0,0
If Mese(es)=12 Then Scrivi "dic"&"-",0,0

Scrivi Anno(es)&"",0,0
Scrivi IndiceAnnuale(es)
Next
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Cinzia, Luigi & Co.

Luigi mi hai preceduto di un soffio.

Anche perché, al solito, ci sono voluti più di 10 minuti di attesa,

prima che l'indefesso chirurgo terminasse il suo .. sto operando.

Codice:
Sub Main()
Dim Ini,Fin,Es,R,P,A
  Ini = 3862 : Fin = EstrazioneFin
  For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
    Scrivi Space(1),0,0
    For R = 1 To 10
      For P = 1 To 5
        A = Estratto(Es,R,P)
        Scrivi Format2(A) & "",0,0
      Next
    Next
    Scrivi Format2(giorno(Es)) & "-",0,0
    Scrivi Left(LCase(MeseNome(Mese(es))),3)& "-",0,0
    Scrivi Anno(Es),0,0
    Scrivi IndiceAnnuale(Es)
  Next
End Sub

:)
 
Ultima modifica:

trivellatomariotretre33

Super Member >PLATINUM<
CIAO joe GUARDA L'ULTIMO TX ALLEGATO MANCA IL MESE AL TUO LISTATO
(-gen-19452)
SALUTI joe grazie.
.................................................................................................................................................
 

Cinzia27

Premium Member
Ciao, Trivellato.
Nel ringraziare LuigiB per l' aiuto, posto l' ultima versione.
E saluto Joe.
Codice:
' Archivio lotto per Trivellato (Cinzia e LuigiB)
Sub Main()

For es=3862 To EstrazioneFin
For r=1 To 10
For p=1 To 5
a=Estratto(es,r,p)
Scrivi Format2(a)&"",0,0
Next
Next
Scrivi ""&Format2(giorno(es))&"-"&Left(LCase(MeseNome(Mese(es))),3)&"-"&Anno(es)&"",0,0
Scrivi Format2(IndiceAnnuale(es))
Next
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Trivellato,

Hai ragione, lo script che avevo inserito aveva l'errore

che hai segnalato e che Cinzia, ha giustamente corretto.

Ringrazio entrambi.

:) Un caro saluto a tutte/i.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto