Novità

come sostituire l' archivio superenalotto di spaziometria

genios

Advanced Member >PLATINUM PLUS<
E' possibile sostituire l' archivio superenalotto di spaziometria con un' altro archivio con gli estratti in ordine di estrazione naturalmente convertendolo nel formato di spaziometria ?
 
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
Grazie per il tuo spunto ma io ho un archivio informato testo con gli estratti registrati per posizione di estrazione e volevo convertirlo in formato spaziometria per sostituirlo . Farlo manualmente per ciascuna estrazione è un lavoro immane .

019;12/02/2022;22;27;14;68;47;77;44;45
020;15/02/2022;01;60;44;49;74;09;70;38
021;17/02/2022;77;48;67;87;85;36;38;74
022;19/02/2022;13;81;74;09;15;65;66;24
023;22/02/2022;64;15;74;09;59;29;22;16
024;24/02/2022;16;52;73;69;38;28;17;47
025;26/02/2022;87;24;38;06;84;52;04;81
026;01/03/2022;81;83;44;79;60;15;64;64
027;03/03/2022;80;31;43;40;47;33;02;21
028;05/03/2022;66;03;58;80;09;68;35;77
029;08/03/2022;16;31;15;21;80;03;24;70
030;10/03/2022;34;39;18;66;47;52;22;69
031;12/03/2022;24;32;56;41;80;76;10;11
032;15/03/2022;86;75;22;53;65;08;55;44
033;17/03/2022;14;86;55;54;52;53;34;29
034;19/03/2022;67;41;73;61;20;83;04;83
035;22/03/2022;68;88;27;74;49;30;64;11
036;24/03/2022;48;62;15;37;77;35;28;50
037;26/03/2022;74;81;89;22;38;84;72;45
038;29/03/2022;48;32;72;09;55;68;36;68
039;31/03/2022;75;59;43;64;15;51;11;39
040;02/04/2022;65;45;24;54;35;68;07;09
041;05/04/2022;21;86;83;63;05;48;30;70

L archivio è cosi strutturato e volevo se si potesse fare uno script ( vedi sotto) sulle posizioni con conversione della posizione con il numero corrispondente .

Sub Main
'Ricerca di Eugenio :Superenalotto - raggruppamento ( di qualsiasi lunghezza)terzine simmetriche assenti per ambate nelle ultime 10 estrazioni (Cinzia)
Dim n(),n1(1),n2(1),n3(1),nn(3)
' r = 1
'ru(1)=r
' Ini = EstrazioniArchivioSE - 500
'fin = EstrazioniArchivioSE
For es = EstrazioniArchivioSE - 1000 To EstrazioniArchivioSE Step 5
Scrivi DataEstrazioneSE(es) & " " & es
Scrivi

co = 0
For i = 1 To 90 Step 3
nn(1) = i
nn(2) = i + 1
nn(3) = i + 2
If SerieFreqSE(es - 9,es,nn,1) = 0 Then
n1(1) = i
If SerieFreqSE(es - 9,es,n1,1) = 0 Then
co = co + 1
ReDim Preserve n(co)
n(co) = n1(1)
n2(1) = i + 1
If SerieFreqSE(es - 9,es,n2,1) = 0 Then
co = co + 1
ReDim Preserve n(co)
n(co) = n2(1)
n3(1) = i + 2
If SerieFreqSE(es - 9,es,n3,1) = 0 Then
co = co + 1
ReDim Preserve n(co)
n(co) = n3(1)
End If
End If
End If
End If
Next
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n,,True)
If SerieFreqSE(es - 9,es,n,1) = 0 Then
fr5 = SerieFreqSE(es + 1,es + 5,n,1)

fr = SerieFreqSE(es + 1,es + 5,n,2)
fr1 = SerieFreqSE(es + 1,es + 5,n,3)
fr2 = SerieFreqSE(es + 1,es + 5,n,4)
fr3 = SerieFreqSE(es + 1,es + 5,n,5)
fr4 = SerieFreqSE(es + 1,es + 5,n,6)
If fr > 0 Then Scrivi "ambi " & fr
If fr1 > 0 Then Scrivi "terni " & fr1
If fr2 > 0 Then Scrivi "quaterne " & fr2
If fr3 > 0 Then Scrivi "cinquine " & fr3
If fr4 > 0 Then Scrivi "sestine " & fr4
If fr5 > 0 Then Scrivi "ambata " & fr5

Scrivi String(80,"*")
End If
Next
End Sub
 
Ultima modifica:
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
Fatto girare il tuo script
risultato :
"C:\Users\HP\AppData\Roaming\spaziometria\Archivio SuperEnalotto Ordine d' estrazione (4).txt"

sostituito nel tuo script nulla di fatto stesso errore
 
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
Gcarlo come hai scritto nel post #4 potresti fare uno script per convertire il file archivio testo in file .dat ?
 
Se il sistema operativo ti memorizza l'archivio aggiungendo (1) / (2) / (3) / (4) / (5) ... tutte le volte che fai una prova,

sul disco avrai diversi file (1/2/3....) ma

Archivio.dat ... aggiornato (con il nome giusto) ... non ci sarà mai.

Prova a cancellare tutte le copie che hai già prima di provare a scrivere quella nuova ed aggiornata.

O meglio ancora rinominale TUTTE come Old_nome_archivio(1-2-3-4 ... N).dat (così non va perso nulla).

Se poi hai risolto puoi cancellare le vecchie copie.

:)
 
Non so proprio.

Il file.dat ha sicuramente una serie di caratteristiche che devono essere tutte RIGOROSAMENTE rispettate.

Dunque chi si appresta a creare un file archivio deve sapere prima e bene cosa sta facendo.

Io so solo che purtroppo esiste anche questo gioco del quale è ancor più difficile - anche e solo - averne l'archivio.

:)
 
Sicuramente LuigiB, ha già risolto "il caso" ed anche scritto e descritto cosa fare.

Ma ... non è stato ascoltato, compreso. ricordato ... da chi ne avrebbe dovuto avere interesse.

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto