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