come sostituire l' archivio superenalotto di spaziometria

[genios]

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 ?

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[genios]

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

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[genios]

gcarlo tutto esatto ma non so farlo . Grazie.

 

[genios]

Quindi dovrei al tuo script sostituire il percorso dove si trova il file testo ?

 

[genios]

Ho provato mi da errore il file di testo non esiste

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[genios]

VARI TENTATIVI MA NON LO TROVA

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[genios]

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

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[genios]

Gcarlo come hai scritto nel post #4 potresti fare uno script per convertire il file archivio testo in file .dat ?

 

[joe]

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.

 

[genios]

Si ma come convertire il file testo in file .dat?

 

[joe]

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.

 

[genios]

Chissà se LuigiB potrebbe risolvere il caso.

 

[joe]

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.