PER JOE O ALTR I SCRIPTER

[trivellatomariotretre33]

SALVE JOE MI SERVIREBBE UNO SCRIPT COME ALLEGATO O CHI LO FA
VI RINGRAZIO DI CUORE. ....

 

[Cinzia27]

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

 

[trivellatomariotretre33]

Ciao Cinzia27 si ai pensato bene e un archivio, sono estrazioni.

 

[Cinzia27]

Ciao, Trivellato.
Può andar bene ?

' 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]

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

 

[Cinzia27]

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

'

 ' 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

 

[trivellatomariotretre33]

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)

 

[Cinzia27]

Già. Guarda ora.
'

 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]

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.

 

[Cinzia27]

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

 

[trivellatomariotretre33]

Cinzia27 ce sempre il fattore dello spazio iniziale che non va e poi (-ago--201499)
CE UNA LINIETTA IN PIU GUARDA LULTIMO TX (-ago-201499)
io uso spaziometria .....

 

[trivellatomariotretre33]

FATTO....... Cinzia27 grazie di cuore sei stata pazientosa e brava .

 

[Cinzia27]

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.

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

 

[LuigiB]

ciao ..

a = "ABC"
msgbox lcase(a)

a = "abc"
msgbox ucase(a)

 

[trivellatomariotretre33]

grazie Cinzia27 grazie Luigi una stretta di mano chilometrica ciao.

 

[joe]

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.

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

 

[trivellatomariotretre33]

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

 

[Cinzia27]

Ciao, Trivellato.
Nel ringraziare LuigiB per l' aiuto, posto l' ultima versione.
E saluto Joe.

' 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

 

[trivellatomariotretre33]

grazie Cinzia27 Luigi Joe .

 

[joe]

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.