Una domanda semplice semplice per chi sa la risposta :)

[lotto_tom75]

Io no

20/10/2023 BA 16 85 90 62 06
20/10/2023 CA 50 58 28 75 78
20/10/2023 FI 86 76 01 44 18
20/10/2023 GE 30 70 68 57 78
20/10/2023 MI 87 47 32 64 06
20/10/2023 NA 65 58 89 70 41
20/10/2023 PA 09 04 19 29 08
20/10/2023 RO 90 86 22 14 64
20/10/2023 TO 31 42 45 48 51
20/10/2023 VE 17 75 19 61 18

Invece di così... avrei bisogno di invertire semplicemente... l'anno in questo modo


2023/10/20 formato data di storico di Alex

per avere secondo l'esempio...

2023/10/20 BA 16 85 90 62 06
2023/10/20 CA 50 58 28 75 78
2023/10/20 FI 86 76 01 44 18
2023/10/20 GE 30 70 68 57 78
2023/10/20 MI 87 47 32 64 06
2023/10/20 NA 65 58 89 70 41
2023/10/20 PA 09 04 19 29 08
2023/10/20 RO 90 86 22 14 64
2023/10/20 TO 31 42 45 48 51
2023/10/20 VE 17 75 19 61 18


in questo script:

Option Explicit
Sub Main

   Dim es
   Dim ruota
   Dim Inizio
 
'1939/01/07   formato data di Alex

   Inizio = EstrazioneIn

   For es = EstrazioneIni To EstrazioneFin
      'Scrivi
      'Scrivi "Estrazione del " & GetInfoEstrazione(es)
      'Scrivi
      For ruota = 1 To 10
         If ruota = 11 Then
            ruota = 12
         End If
         'Scrivi "ruota " & NomeRuota(ruota) & "-" & StringaEstratti(es,ruota,".")
         Scrivi DataEstrazione(es,False,,"/") & " " & SiglaRuota(ruota) & " " & StringaEstratti(es,ruota," ")
         If ScriptInterrotto Then Exit For
      Next 'x ruota
      If ScriptInterrotto Then Exit For
   Next ' x es
End Sub

Dovendo infatti aggiornare l'archivio x python per testare anche gli script di Alex avrei bisogno di avere tutto l'archivio per ogni ruota in quel formato e non vorrei ogni volta passare da excel e open office per invertire la data... Un'altra alternativa sarebbe quella di chiedere ad Alex di cambiare in python la lettura della data per uniformarla al formato di default di spaziometria ma me la lascio come seconda opzione visto che mi interesserebbe sapere come poter cambiare il formato di data in quello che si desidera al soprastante script.

Grazie anticipate a chi eventualmente interverrà con la soluzione

 

[i legend]

Tom non ho modo di verificare.
Mi baso sul tuo formato se ho capito bene.

prova così
Av= split( dataestrazione(idestr),".")
S=av(2)&"/"&av(1)&"/"&av(0)
Scrivi S
In ogni caso gestisci il carattere separatore e come mettere in ordine g/m/a
Basta combinare l array av()

Se non funzia, mi metto al PC e ci riprovo

 

[druid]

Scusa Tom ma python ha il modulo datetime che ti converte le date nel formato che vuoi o non ho capito la domanda.....

 

[lotto_tom75]

Tom non ho modo di verificare.
Mi baso sul tuo formato se ho capito bene.

prova così
Av= split( dataestrazione(idestr),"/")
S=av(2)&"/"&av(1)&"/"&av(0)
Scrivi S
In ogni caso gestisci il carattere separatore e come mettere in ordine g/m/a
Basta combinare l array av()

Se non funzia, mi metto al PC e ci riprovo

Grazie legend per adesso mi da errore indice non corrispondente ma ci riprovo! Ottima dritta di trasformazione la tua!

Scusa Tom ma python ha il modulo datetime che ti converte le date nel formato che vuoi o non ho capito la domanda.....

Ciao druid, non conosco quasi per nulla python. E lo sto provando ad utilizzare solo grazie ad Alex e all'IA A proposito Copilot di Bing è ancora meglio (anche se si tratta sempre di chatgpt)...



Infatti chatgpt 3.5 mi ha realizzato questo in python che risolve il problema...

# Specifica il nome del file di input e di output
input_file = "input.txt"
output_file = "output.txt"

# Apri il file di input in modalità lettura
with open(input_file, "r") as file_in:
    # Leggi il contenuto del file
    lines = file_in.readlines()

# Apri il file di output in modalità scrittura
with open(output_file, "w") as file_out:
    # Scorro le righe lette dal file di input
    for line in lines:
        # Divide la riga in parti separate da spazi
        parts = line.strip().split()

        # Verifica se ci sono abbastanza parti nella riga
        if len(parts) >= 4:
            # Estrai le parti rilevanti
            data = parts[0]
            ruota = parts[1]
            numeri = " ".join(parts[2:])

            # Divide la data originale in giorno, mese e anno
            giorno, mese, anno = data.split("/")
            # Rimuovi eventuali zeri iniziali dal giorno e mese
            giorno = giorno.lstrip('0')
            mese = mese.lstrip('0')

            # Scrivi la riga nel formato desiderato nel file di output
            formatted_line = f"{anno}/{mese}/{giorno} {ruota} {numeri}\n"
            file_out.write(formatted_line)
        else:
            print(f"Riga non valida: {line}")

print("Conversione completata.")

ma si è completamente arenata nel farne la versione batch (.bat)

mentre copilot alla prima mi ha realizzato il batch richiesto...

@echo off
setlocal EnableDelayedExpansion

REM Creazione del file di output
> output.txt (

REM Lettura del file di input riga per riga
for /F "tokens=1-7 delims= " %%a in (input.txt) do (

    REM Suddivisione della data in giorno, mese e anno
    for /F "tokens=1-3 delims=/" %%i in ("%%a") do (
        set "giorno=%%i"
        set "mese=%%j"
        set "anno=%%k"
    )

    REM Scrittura nel file di output con il formato di data invertito
    echo !anno!/!mese!/!giorno! %%b %%c %%d %%e %%f %%g
)
)
endlocal

Grazie ad entrambi per essere così rapidamente intervenuti!

 

[lotto_tom75]

Grazie legend per adesso mi da errore indice non corrispondente ma ci riprovo! Ottima dritta di trasformazione la tua!

ci ho riprovato e con una piccola aggiunta al tuo code ha funzionato! Grazie ancora legend per la dritta!

Dim av
Av= Split( DataEstrazione(es),"/")
's=Av(2)&"/"&Av(0)&"/"&Av(1)
Scrivi StringaNumeri(Av)

Dim av2
av2= Split(StringaNumeri(Av),".")
s=av2(2)&"/"&av2(1)&"/"&av2(0)

Scrivi s

 

[i legend]

Tom di nulla.
Ho fatto lo split seguendo il tuo esempio.
Tu hai utilizzato come separatore "/"

20/10/2023 VE 17 75 19 61 18

Invece di così... avrei bisogno di invertire semplicemente... l'anno in questo modo
2023/10/20 formato data

Riprova così senza scrivere troppe volte la stessa cosa , che provoca rallentamenti
Av= split( dataestrazione(idestr),".")
S=av(2)&"/"&av(1)&"/"&av(0)
Scrivi S

 

[i legend]

Tom per favore cancella la parte quotata grazie.
Se continui a quotarmi , non ti aiuto più

 

[lotto_tom75]

Versione "corretta"

Option Explicit
Sub Main
   Dim es
   Dim ruota
   Dim Inizio
   Dim Av
   Dim s
   '1939/01/07   formato data di Alex
   Inizio = EstrazioneIni
   For es = EstrazioneIni To EstrazioneFin
      For ruota = 1 To 10
         If ruota = 11 Then
            ruota = 12
         End If
         Av = Split(DataEstrazione(es),".")
         s = Av(2) & "/" & Av(1) & "/" & Av(0)
         'Scrivi s
         Scrivi s & "  " & SiglaRuota(ruota) & "  " & StringaEstratti(es,ruota,"  ")
         If ScriptInterrotto Then Exit For
      Next 'x ruota
      If ScriptInterrotto Then Exit For
   Next ' x es
End Sub

 

[i legend]

 

[Codicebinario]

Tom non ho modo di verificare.
Mi baso sul tuo formato se ho capito bene.

prova così
Av= split( dataestrazione(idestr),".")
S=av(2)&"/"&av(1)&"/"&av(0)
Scrivi S
In ogni caso gestisci il carattere separatore e come mettere in ordine g/m/a
Basta combinare l array av()

Se non funzia, mi metto al PC e ci riprovo

Ciao i Legend,ciao Lottotom 75 ,scusate per l'intromissione nel 3d....visto che si parlava di modifica di uno script,ho pensato che su questa base si potrebbe ricavare questoche cerco:

situazione attuale dello script di Lotto tom 75(ho cercato di modificarlo...)ma non ci riesco,non ne sono capace....

Estrazione del [10320] [140] 19.10.2023
ruota Bari-67;84;56;65;31
19/10/2023 BA 67 84 56 65 31
ruota Cagliari-05;36;53;06;01
19/10/2023 CA 05 36 53 06 01
ruota Firenze-38;48;71;77;81
19/10/2023 FI 38 48 71 77 81
ruota Genova-79;63;09;32;55
19/10/2023 GE 79 63 09 32 55
ruota Milano-30;21;41;12;69
19/10/2023 MI 30 21 41 12 69
ruota Napoli-54;18;22;48;87
19/10/2023 NA 54 18 22 48 87
ruota Palermo-30;28;18;70;55
19/10/2023 PA 30 28 18 70 55
ruota Roma-71;23;01;66;34
19/10/2023 RO 71 23 01 66 34
ruota Torino-87;16;10;02;04
19/10/2023 TO 87 16 10 02 04
ruota Venezia-40;57;82;01;10
19/10/2023 VE 40 57 82 01 10
Estrazione del [10321] [141] 20.10.2023
ruota Bari-16;85;90;62;06
20/10/2023 BA 16 85 90 62 06
ruota Cagliari-50;58;28;75;78
20/10/2023 CA 50 58 28 75 78
ruota Firenze-86;76;01;44;18
20/10/2023 FI 86 76 01 44 18
ruota Genova-30;70;68;57;78
20/10/2023 GE 30 70 68 57 78
ruota Milano-87;47;32;64;06
20/10/2023 MI 87 47 32 64 06
ruota Napoli-65;58;89;70;41
20/10/2023 NA 65 58 89 70 41
ruota Palermo-09;04;19;29;08
20/10/2023 PA 09 04 19 29 08
ruota Roma-90;86;22;14;64
20/10/2023 RO 90 86 22 14 64
ruota Torino-31;42;45;48;51
20/10/2023 TO 31 42 45 48 51
ruota Venezia-17;75;19;61;18
20/10/2023 VE 17 75 19 61 18


Esempio di archivio da ottenere:

Estrazione del [10320] [140] 19.10.2023-------------Questo è ok va' bene dove è posizionato

67;84;56;65;31 Bari

05;36;53;06;01 Cagliari

38;48;71;77;81 Firenze

79;63;09;32;55 Genova

30;21;41;12;69 Milano

54;18;22;48;87 Napoli

30;28;18;70;55 Palermo

71;23;01;66;34 Roma

87;16;10;02;04 Torino

40;57;82;01;10 Venezia

05;27;62;21;69 Nazionale

Questo perchè usando un programma di I.A per le catene di Markov ,la massa numerica deve essere cosi' definita,con ";",e fin qui ci siamo,siccome sono cecato volevo eliminare le date a inizio stringa e anche il fatto di avere i numeri doppi.L'indicazione della ruota dovrebbe stare a dx ben spaziato in modo da non fare confusione quando copio/incollo i "numerelli".la "finezza" sarebbe: colorare i nomi delle ruote secondo le VENUS...Nord rosso (ge-mi-to-ve) centro Blu(Roma-Fi-Ca-Nz) SuD (Ba-Na-Pa). Forse chiedo troppo se non fattibile chiedo scusa.Grazie.

p.s(purtroppo con gli script sono un pippone....) Grazie.

 

[i legend]

Ciao , codice binario.
Non faccio script che vanno a toccare gli archivi, perché sono molto delicati e si rischia di rovinare i software se poi non si riesce a ripristinarlo.


Tom aveva bisogno di invertire mese e anno e la soluzione era alla mia portata.
Mi sono limitato a questo.
L archivio l ha costruito tom per sé e gli altri utenti del forum , io non ho quel programma, e non lo conosco.
A mio avviso è meglio chiedere a chi ha fatto il software che provare a gestire il codice.
A me non piace neanche modificare script altrui, figuriamoci il lavoro di chi sa programmare per davvero.

Mi spiace non poterti aiutare , ma ho sempre detto questa cosa.
Al massimo rischio sul mio pc è con ciò che io utilizzo.

Ciao

 

[Codicebinario]

Ciao I legend , scusami.Pensavo che sulla base dello script di Lottotom75 non fosse cosi' difficile da ottenere quello che cerco.Io non devo toccare nessun archivio,l'output dello script va gia' bene cosi,dovevo solo copiare l'outpout come voluto e incollarlo , ma non in un archivio...dovevo solo darlo in pasto a I.A Markov chain.Grazie lo stesso.Cercherò ancora...

 

[lotto_tom75]

Ciao i Legend,ciao Lottotom 75 ,scusate per l'intromissione nel 3d....visto che si parlava di modifica di uno script,ho pensato che su questa base si potrebbe ricavare questoche cerco:

situazione attuale dello script di Lotto tom 75(ho cercato di modificarlo...)ma non ci riesco,non ne sono capace....

Estrazione del [10320] [140] 19.10.2023
ruota Bari-67;84;56;65;31
19/10/2023 BA 67 84 56 65 31
ruota Cagliari-05;36;53;06;01
19/10/2023 CA 05 36 53 06 01
ruota Firenze-38;48;71;77;81
19/10/2023 FI 38 48 71 77 81
ruota Genova-79;63;09;32;55
19/10/2023 GE 79 63 09 32 55
ruota Milano-30;21;41;12;69
19/10/2023 MI 30 21 41 12 69
ruota Napoli-54;18;22;48;87
19/10/2023 NA 54 18 22 48 87
ruota Palermo-30;28;18;70;55
19/10/2023 PA 30 28 18 70 55
ruota Roma-71;23;01;66;34
19/10/2023 RO 71 23 01 66 34
ruota Torino-87;16;10;02;04
19/10/2023 TO 87 16 10 02 04
ruota Venezia-40;57;82;01;10
19/10/2023 VE 40 57 82 01 10
Estrazione del [10321] [141] 20.10.2023
ruota Bari-16;85;90;62;06
20/10/2023 BA 16 85 90 62 06
ruota Cagliari-50;58;28;75;78
20/10/2023 CA 50 58 28 75 78
ruota Firenze-86;76;01;44;18
20/10/2023 FI 86 76 01 44 18
ruota Genova-30;70;68;57;78
20/10/2023 GE 30 70 68 57 78
ruota Milano-87;47;32;64;06
20/10/2023 MI 87 47 32 64 06
ruota Napoli-65;58;89;70;41
20/10/2023 NA 65 58 89 70 41
ruota Palermo-09;04;19;29;08
20/10/2023 PA 09 04 19 29 08
ruota Roma-90;86;22;14;64
20/10/2023 RO 90 86 22 14 64
ruota Torino-31;42;45;48;51
20/10/2023 TO 31 42 45 48 51
ruota Venezia-17;75;19;61;18
20/10/2023 VE 17 75 19 61 18


Esempio di archivio da ottenere:

Estrazione del [10320] [140] 19.10.2023-------------Questo è ok va' bene dove è posizionato

67;84;56;65;31 Bari

05;36;53;06;01 Cagliari

38;48;71;77;81 Firenze

79;63;09;32;55 Genova

30;21;41;12;69 Milano

54;18;22;48;87 Napoli

30;28;18;70;55 Palermo

71;23;01;66;34 Roma

87;16;10;02;04 Torino

40;57;82;01;10 Venezia

05;27;62;21;69 Nazionale

Questo perchè usando un programma di I.A per le catene di Markov ,la massa numerica deve essere cosi' definita,con ";",e fin qui ci siamo,siccome sono cecato volevo eliminare le date a inizio stringa e anche il fatto di avere i numeri doppi.L'indicazione della ruota dovrebbe stare a dx ben spaziato in modo da non fare confusione quando copio/incollo i "numerelli".la "finezza" sarebbe: colorare i nomi delle ruote secondo le VENUS...Nord rosso (ge-mi-to-ve) centro Blu(Roma-Fi-Ca-Nz) SuD (Ba-Na-Pa). Forse chiedo troppo se non fattibile chiedo scusa.Grazie.

p.s(purtroppo con gli script sono un pippone....) Grazie.

Ciao codicebinario,
guarda se questa versione del mio scriptino può andarti bene per l'archivio del tuo prg. Ovviamente salvati l'archivio originale prima di testare questo che comunque dovrai rinominare visto i nomi di entrata (input) e di uscita (output) comunque diversi.

Option Explicit
Sub Main
   Dim es
   Dim ruota
   Dim Inizio
   Dim Av
   Dim s
   '[10320] [140] 19.10.2023
   '67;84;56;65;31 Bari  es.  formato data x codicebinario
   Inizio = EstrazioneIni
   For es = EstrazioneIni To EstrazioneFin
   Scrivi GetInfoEstrazione(es)
      For ruota = 1 To 10
         If ruota = 11 Then
            ruota = 12
         End If
         Av = Split(DataEstrazione(es),".")
         s = Av(2) & "/" & Av(1) & "/" & Av(0)
         'Scrivi s
         Scrivi StringaEstratti(es,ruota,";") & " "  & NomeRuota(ruota) 
         If ScriptInterrotto Then Exit For
      Next 'x ruota
      If ScriptInterrotto Then Exit For
   Next ' x es
End Sub

 

[Codicebinario]

GRAZIE !Lotto tom 75,cosi' può andare...chiedo,e' possibile spostare la data di estrazione spaziata oppure colorarla di rosso ,questo perche' faccio fatica a vedere e dopo un po' ....( praticamente sò cecato) (piu' a dx della colonna degli estratti) aggiungere la ruota Nazionale in fondo? Grazie sin d'ora per il tempo che mi hai dedicato.(brutta cosa vederci malamente sai......) grazie.

[10321] [141] 20.10.2023
16;85;90;62;06 Bari
50;58;28;75;78 Cagliari
86;76;01;44;18 Firenze
30;70;68;57;78 Genova
87;47;32;64;06 Milano
65;58;89;70;41 Napoli
09;04;19;29;08 Palermo
90;86;22;14;64 Roma
31;42;45;48;51 Torino
17;75;19;61;18 Venezia

 

[lotto_tom75]

GRAZIE !Lotto tom 75,cosi' può andare...chiedo,e' possibile spostare la data di estrazione spaziata oppure colorarla di rosso ,questo perche' faccio fatica a vedere e dopo un po' ....( praticamente sò cecato) (piu' a dx della colonna degli estratti) aggiungere la ruota Nazionale in fondo? Grazie sin d'ora per il tempo che mi hai dedicato.(brutta cosa vederci malamente sai......) grazie.

[10321] [141] 20.10.2023
16;85;90;62;06 Bari
50;58;28;75;78 Cagliari
86;76;01;44;18 Firenze
30;70;68;57;78 Genova
87;47;32;64;06 Milano
65;58;89;70;41 Napoli
09;04;19;29;08 Palermo
90;86;22;14;64 Roma
31;42;45;48;51 Torino
17;75;19;61;18 Venezia

Guarda se così va un poco meglio...

Option Explicit
Sub Main
   Dim es
   Dim ruota
   Dim Inizio
   Dim Av
   Dim s
   '[10320] [140] 19.10.2023
   '67;84;56;65;31 Bari  es.  formato data x codicebinario
   Inizio = EstrazioneIni
   For es = EstrazioneIni To EstrazioneFin
   Scrivi
   Scrivi GetInfoEstrazione(es),True,,,vbRed,5
   Scrivi
      For ruota = 1 To 12
         If ruota = 11 Then
            ruota = 12
         End If
         Av = Split(DataEstrazione(es),".")
         s = Av(2) & "/" & Av(1) & "/" & Av(0)
         'Scrivi s
         Scrivi StringaEstratti(es,ruota,";") & " "  & NomeRuota(ruota),,,,,4 
         If ScriptInterrotto Then Exit For
      Next 'x ruota
      If ScriptInterrotto Then Exit For
   Next ' x es
End Sub

 

[Codicebinario]

Buongiorno lotto tom 75,cosi' è pressochè perfetto,GRAZIE se passi in Brianza troveremo il modo di farci due chiacchiere , e perchè no,magari un bel piatto di cassoula.Grazie ancora !

 

[i legend]

Bisognerebbe assaggiare tutte le pietanze regionali , almeno una volta

 

[Reacher]

Buongiorno
Se volessi aggiungere il nome del giorno della settimana? Abbreviata... Lun mar

 

[Lottopython]

certo che si puo'

10 12 51 38 50      Bari        05.01.2026 Lun
30 52 60 89 35      Cagliari    05.01.2026 Lun
20 71 41 25 49      Firenze     05.01.2026 Lun
52 53 62 01 35      Genova      05.01.2026 Lun
74 22 54 37 82      Milano      05.01.2026 Lun
29 14 61 56 81      Napoli      05.01.2026 Lun
56 59 69 25 51      Palermo     05.01.2026 Lun
71 04 34 06 37      Roma        05.01.2026 Lun
59 71 42 82 23      Torino      05.01.2026 Lun
55 71 27 36 77      Venezia     05.01.2026 Lun
82 02 51 46 77      Nazionale   05.01.2026 Lun

[10783] [ 4 ] 07.01.2026

28 16 31 73 84      Bari        07.01.2026 Mer
27 67 46 28 88      Cagliari    07.01.2026 Mer
41 44 08 17 55      Firenze     07.01.2026 Mer
05 87 54 19 23      Genova      07.01.2026 Mer
14 27 17 61 59      Milano      07.01.2026 Mer
74 04 15 75 42      Napoli      07.01.2026 Mer
74 88 43 42 63      Palermo     07.01.2026 Mer
66 02 60 41 64      Roma        07.01.2026 Mer
66 67 17 30 27      Torino      07.01.2026 Mer
78 35 02 53 47      Venezia     07.01.2026 Mer
29 62 30 74 84      Nazionale   07.01.2026 Mer

[10784] [ 5 ] 08.01.2026

05 37 01 56 68      Bari        08.01.2026 Gio
69 22 46 89 80      Cagliari    08.01.2026 Gio
66 68 04 65 17      Firenze     08.01.2026 Gio
06 81 22 50 72      Genova      08.01.2026 Gio
75 47 66 80 17      Milano      08.01.2026 Gio
14 82 20 69 90      Napoli      08.01.2026 Gio
51 20 29 72 44      Palermo     08.01.2026 Gio
60 12 69 79 15      Roma        08.01.2026 Gio
52 77 67 84 83      Torino      08.01.2026 Gio
70 37 55 89 53      Venezia     08.01.2026 Gio
47 83 55 79 59      Nazionale   08.01.2026 Gio

 

[Reacher]

Ho scritto male.... Volevo sapere la dicitura nello script...