PER JOE O ALTR I SCRIPTER

trivellatomariotretre33 · 28 Aprile 2019

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

Cinzia27 · 29 Aprile 2019

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 · 29 Aprile 2019

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

Cinzia27 · 29 Aprile 2019

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 · 29 Aprile 2019

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 · 30 Aprile 2019

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

trivellatomariotretre33 · 30 Aprile 2019

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 · 30 Aprile 2019

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 · 30 Aprile 2019

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 · 30 Aprile 2019

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 · 30 Aprile 2019

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 · 30 Aprile 2019

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

Cinzia27 · 30 Aprile 2019

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

LuigiB · 30 Aprile 2019

ciao ..

a = "ABC"
msgbox lcase(a)

a = "abc"
msgbox ucase(a)

trivellatomariotretre33 · 30 Aprile 2019

grazie Cinzia27 grazie Luigi una stretta di mano chilometrica ciao.

joe · 30 Aprile 2019

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

trivellatomariotretre33 · 30 Aprile 2019

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

Cinzia27 · 30 Aprile 2019

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

trivellatomariotretre33 · 30 Aprile 2019

grazie Cinzia27 Luigi Joe .

joe · 1 Maggio 2019

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.

PER JOE O ALTR I SCRIPTER

Super Member >PLATINUM<

Allegati

Advanced Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Allegati

Advanced Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Allegati

Advanced Premium Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Premium Member

LuigiB

Guest

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<