Prima e spero unica richiesta di script

[senzapensare]

Salve a tutti, come dice il titolo del post, avrei una richiesta da fare.

Con gli script semplici me la cavo ma non sono così bravo con gli script come i giganti di questo forum.

Ahimè, lo script che vorrei per me non è facile e ve lo spiego sperando di farvi capire il tutto.

Vorrei scrivere in un file di testo i sommativi applicati ad un estratto qualsiasi che hanno dato l'esito come ambata.

Se il file non esiste ne crea uno nuovo, se esiste lo aggiorna con gli esiti ultimi

Esempio.:

Nella prima colonna del file mette i sommativi da 1 a 90 e nella seconda colonna mette uno se ha dato esito vincente , 0 in caso contrario


01 . 00
02 . 00
03 . 01
04 . 00
05 . 00
06 . 01
07 . 00
.. . ..

e così via

.. . ..

88 . 00
89 . 01
90 . 01

Se richiamo lo stesso file con un nuovo estratto "sperimentale" dovremo così avere

01 . 00
02 . 01
03 . 02
04 . 00
05 . 00
06 . 02
07 . 01
.. . ..

e così via

.. . ..

88 . 00
89 . 02
90 . 01

Ovviamente si capisce che incrementa i valori in caso positivo, li lascia intatti in caso contrario!

Chi sà e può aiutarmi?

Grazie infinitamente sia che mi aiutiate, sia che leggete soltanto.

 

[senzapensare]

Grazie per la risposta, stasera ti posterò un esempio

 

[senzapensare]

Allora, facciamo un esempio reale, scegliendo il primo estratto della ruota nazionale dell'estrazione del 11 Febbraio 2016, il numero 42.
I 5 fissi che sommati al numero 42 ci permettono di ricavare i 5 estratti futuri sono 81 . 47 . 64 . 57 . 70.
Procediamo nel ricavo dei fissi per tot estrazioni successive che scegliamo noi. Fatto ciò scegliamo il nome di un file (preferibilmente in formato txt), se non esiste lo crea scrivendo tutti e 90 fissi possibili con il loro esito (1 se positivo e 0 se negativo). Nel nostro esempio quei cinque sommativi hanno dato esito positivo ed il loro "valore esito" sarà 1. Se il file è stato creato precedentemente non si deve fare altro che incrementare i valori dei sommativi vincenti e lasciare inalterati quelli che non hanno funzionato.
Praticamente il mio problema è la gestione dei file, la loro creazione - modifica - chiusura.
Spero di essermi spiegato meglio.
Ciao e grazie

 

[fillotto]

Vedi un po se ti soddisfa , questo piccolo script ti permette di ricavare degli archivi virtuali la scelta della ruota il primo, secondo... ecc dall'estraz che vuoi tu alla fine che vuoi tu ,però sinceramente non ho capito la seconda parte della tua spiegazione

 Sub Main()
Es = EstrazioniArchivio
Scrivi "Viruale" & " " & DataEstrazione(Es),1
Scrivi
ru = CInt(InputBox("Quale RUOTA? (Da 1 a 10 ,12 per la NZ) ",,1))

sez = CInt(InputBox("Quale sezione vuoi aggiornare? (Da 1 a 5) ",,1))
For es = 9119 To 9125 ' QUI METTERAI  i numeri delle estrazioni DAL  ... AL che vuoi sviluppare
Nu1 = Fuori90(Estratto(es,ru,1) - Estratto(es - 1,ru,sez))'
Nu2 = Fuori90(Estratto(es,ru,2) - Estratto(es - 1,rus,ez))
Nu3 = Fuori90(Estratto(es,ru,3) - Estratto(es - 1,ru,sez))
Nu4 = Fuori90(Estratto(es,ru,4) - Estratto(es - 1,ru,sez))
Nu5 = Fuori90(Estratto(es,ru,5) - Estratto(es - 1,ru,sez))
Scrivi Format2(es) & ",",0,0
Scrivi DataEstrazione(Es) & ",",0,0

Scrivi Format2(Nu1) & "," & Format2(Nu2) & "," & Format2(Nu3) & "," & Format2(Nu4) & "," & Format2(Nu5)

Next
End Sub

l'output (scegliendo la NZ e il primo num ) è il seguente:

 [FONT=Courier New][SIZE=10px][COLOR=#000000][B]Viruale 23.02.2016[/B][/COLOR][/SIZE][/FONT]  
[FONT=Courier New][SIZE=10px][COLOR=#000000]9119,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.02.2016,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]80,05,89,32,33[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]9120,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]11.02.2016,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]35,55,32,07,27[/COLOR][/SIZE][/FONT]
[COLOR=#FF0000][FONT=Courier New][SIZE=10px]9121,[/SIZE][/FONT][FONT=Courier New][SIZE=10px]13.02.2016,[/SIZE][/FONT][FONT=Courier New][SIZE=10px]81,89,64,57,70[/SIZE][/FONT][/COLOR]
[FONT=Courier New][SIZE=10px][COLOR=#000000]9122,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]16.02.2016,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]16,55,89,61,13[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]9123,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]18.02.2016,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]18,72,24,89,40[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]9124,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]20.02.2016,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]83,84,70,90,64[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]9125,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]23.02.2016,[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]49,67,18,63,86[/COLOR][/SIZE][/FONT]

 

[senzapensare]

Innanzitutto grazie per la risposta e per lo script.

Ora ho più tempo e vi faccio un esempio completo

Scelgo come estrazione quella del 11 Febbraio 2016

Scelgo come ruota la ruota Nazionale

Scelgo come estratto per i calcoli il primo della Nazionale che è il numero 42

Le estrazioni successive sulla ruota Nazionale sono :

33 89 16 09 22

49 55 32 04 46

67 72 73 48 89

60 84 47 67 41

19 67 78 33 56

Calcoliamo i fissi sommativi da applicare al numero 42 per ricavare questi sopra scritti

I fissi sommativi da applicare al 42 sono (calcoli semplici che sicuramente sappiamo fari tutti)

81 47 64 57 70

07 13 80 52 04

25 30 31 06 47

18 42 05 25 89

67 25 36 81 14

Creiamo una tabella con tutti i fissi da 1 fino a 90 nella prima colonna, nella seconda scriviamo uno se il fisso sommativo ha dato

esito positivo nelle estrazioni successive, 0 altrimenti

01 00
02 00
03 00
04 00
05 01
06 01
07 01
08 00
09 00
10 00
11 00
12 00
13 01
14 01
15 00
16 00
17 00
18 00
19 00
20 00
21 00
22 00
23 00
24 00
25 01
26 00
27 00
28 00
29 00
30 00

e così via fino al 90.

Fin qui non dovrebbe esserci niente di complicato.

I cavoli amari per me cominciano ora!

Lo script mi dovrebbe chiedere il nome del file dove conservare queste informazioni, se non esiste ne crea uno nuovo e memorizza

la tabella, se invece esiste deve aggiornare la tabella memorizzata aggiungendo i valori di quella nuova appena calcolata.

Spero che questa volta mi sia spiegato bene, non sono bravo con le parole

 

[Membro cancellato 16574]

Buongiorno,
Salutando tutti gli intervenuti ,
Postiamo il listato che permette di salvare su file di testo un output .
Noi abbiamo inserito un codice di esempio, ma lei , inserisce quello che crede .
Controllare sempre .

Option Explicit
Sub Main
    Dim Ini,fin,es
    Dim r,e,p
    Dim fr
    Dim sNumeri
    Dim sFile
    sFile = GetDirectoryAppData & "Test.txt" ' costruisce un percorso valido usando la dir dell'applicazione
    'sFile = GetDirectoryTemp & "Test.txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
    Call EliminaFile(sFile) ' cancella eventualmente il file se gia esiste
    r = ScegliRuota
    p = scegliposizione
    For e = 1 To 90
        Messaggio(e)
        AvanzamentoElab 01,90,e
        fr = EstrattoFrequenzaTurbo(r,e,Ini,fin)
        sNumeri = Format2(e) & " " & FormatSpace(fr,03,True)
        Scrivi sNumeri ' scrivo sul videao il file preposto
        Call ScriviFile(sFile,sNumeri,False,True) ' scrivo sul file preposto
        Call CloseFileHandle(sFile) ' chiudo l'handle al file
    Next
    Call LanciaFile(sFile) ' lancio il file si aprira notepad
End Sub
Function scegliposizione
    Dim aVoci(05)
    aVoci(01) = "P_1"
    aVoci(02) = "p_2"
    aVoci(03) = "P_3"
    aVoci(04) = "P_4"
    aVoci(05) = "P_5"
    scegliposizione = ScegliOpzioneMenu(aVoci,01,"Seleziona Posizione")
End Function

 

[senzapensare]

Grazie Magia per il prezioso esempio, appena torno a casa con lo script di filotto ed il tuo preparo il primo script di bozza e lo pubblico