PER JOE O PER CHI PUO

[MILONICO]

Va bene phil79 ti ringrazio di cuore ti invio una stretta di mano chilometrica

 

[joe]

Prova questo:

Option Explicit
Sub Main
   'x Milonico Aggiornatore Archivio
   'Esempio: 7095;06/05/2025;Bari;6;44;88;74;39
   'Script By Joe
   Dim Ini,Offset,Es,R,S,P,Sep,Out
   Ini = DataEstrToIdEstr(06,05,2025)
   Sep = ";"
   Offset = 7095 - Ini
   For Es = Ini To EstrazioneFin
      For S = 1 To 11
         R = S
         If S = 9 Then R = 12
         If S > 9 Then R = S - 1
         Out = Es + Offset & Sep & DataEstrazione(Es,,,"/")
         Out = Out & Sep & NomeRuota(R)
         For P = 1 To 5
            Out = Out & Sep & Estratto(Es,R,P)
         Next
         Scrivi Out
      Next
   Next
End Sub
[/code ]

:)

 

[MILONICO]

ciao joe grazie mi servirebbe anche questo deve essere come ti allego solo che il conteggio iniziale deve partire da 1
fino al conteggio finale delle estrazzione

367772010720163904817909877357726380813230750763395764470611266604811576488415525625123406542644867448804477115862310525
367822061970356352046443775688382140865632743642013367630637466485661742414988038057384243536950165531322811737252030625
367951334736708726893803377902312371884372734716713010327641292524336513625310405972852287846008712580706748866213050625
368040883009667630050970226741856357233089602645777022017132074113118634766781237247427340611590232279343472330153060625
368176015074871376674359371771482354584448464809867744382517198281667872057027834471798653038978183379384963488668070625
368248327459087773721866563386237581297025282721878890805786244347303769275751161850611112833311215374392948428381100625
368326166708126731377680036328094368385386856641880753113209247907447630350364306529404631323988674604517667493456120625
368451316649016405113184615604644547167479123190084019207356228228022539065338884574544081780104506139626743873854130625
368543281104794424175440516885055835402231458430472885120624838266038841451577687059812506337777791249870184113145140625
368650692920429018152470015324253689496705301716538756782867305508690585222876197717715603150957827652628349071213170625
368732646730173956771235111659720280790503330987238882567485166184210818857184205486283668495314453943427311462026190625
368833012944224419093301681430610544532479626272072137483929851112502976758902627823164527231336778109731718014788200625
368907034525052073885015041909525521476553241164706751596683330361742862042529155444342230592842750683843667415456210625

 

[joe]

Al primo messaggio di questa discussione

hai chiesto uno script che replicasse il testo che hai proposto.

Io, ho fatto, quello che hai chiesto.

Ho controllato ed è esattamente uguale.

 

[phil79]

Prova questo:

Option Explicit
Sub Main
   'x Milonico Aggiornatore Archivio
   'Esempio: 7095;06/05/2025;Bari;6;44;88;74;39
   'Script By Joe
   Dim Ini,Offset,Es,R,S,P,Sep,Out
   Ini = DataEstrToIdEstr(06,05,2025)
   Sep = ";"
   Offset = 7095 - Ini
   For Es = Ini To EstrazioneFin
      For S = 1 To 11
         R = S
         If S = 9 Then R = 12
         If S > 9 Then R = S - 1
         Out = Es + Offset & Sep & DataEstrazione(Es,,,"/")
         Out = Out & Sep & NomeRuota(R)
         For P = 1 To 5
            Out = Out & Sep & Estratto(Es,R,P)
         Next
         Scrivi Out
      Next
   Next
End Sub
[/code ]

:)

Questo andava bene col primo esempio e in effetti è buono....poi però ha chiesto un'altra modifica. Il problema che ho riscontrato è figurare l'anno in due cifre. Se noti nell'ultimo post ho inserito dopo fatica a capire quello che poteva andare bene per il momento.
Che poi da neofita mi sono scervellato ahahahaha diciamo che ho imparato qualcosa di script

 

[joe]

Non corrisponde perché per avere un altro output ci vuole un altro script.

Option Explicit
Sub Main
   'x Milonico Aggiornatore Archivio
   'Esempio: 365580697558168805516575746519474287892232262713155623248762412876203362358023841585783418416205848331467269255464240425
   'Script By Joe
   Dim Ini,Offset,Es,R,P,Sep,Out
   Ini = DataEstrToIdEstr(24,04,2025)
   Sep = ""
   Offset = 3655 - Ini
   For Es = Ini To EstrazioneFin
      Out = Es + Offset
      For R = 1 To 12 : If R = 11 Then R = 12
         For P = 1 To 5
            Out = Out & Sep & Format2(Estratto(Es,R,P))
         Next
      Next
      Out = Out & Sep & Format2(giorno(Es))
      Out = Out & Sep & Format2(Mese(Es))
      Out = Out & Sep & Right(Anno(Es),2)
      Scrivi Out
   Next
End Sub

 

[MILONICO]

JOE GRAZIE PERFETTO FUNZIONA TI INVIO UN CARO SALUTO E UNA STRETTA DI MANO CHILOMETRICA GRAZIE A TUTTI.
ANCORA GRAZIE joe

 

[phil79]

Per chi volesse ho aggiornato Archivio23.Exe di Igor dal 1871 spezzato in due parti per il limite di 9999