Novità

Per tutti gli scripters

fillotto

fillotto

Advanced Member >PLATINUM<
Da uno script di Joe 91 modificato per una lotteria estera (Pensilvenia 30 numeri) ho fatto questo piccolo script che vorrei modificare nell'output ,quindi mi rivolgo in primis a Joe e ovviamente a chi volesse intervenire .
Questo lo script:
Codice: 
Sub Main
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)

Ini = EstrazioniArchivioFT - 33 : Fin = EstrazioniArchivioFT - 3
For Es = Ini To Fin
NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,1),30): Rit = Rit + 1
Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
Scrivi "PE" & Space(2),True,False
Scrivi StringaEstrattiFT(Es,","),False,False
Scrivi FormatSpace(NV,4,True) & Space(2),True,False
Scrivi "Rit" & FormatSpace(Rit - 1,4,True)&" "& " ... 1° est + il 1° precedente"
If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
Next
End Sub
a fronte del quale ho questo output CHE VORREI SI CONCRETIZZASSE CON LA VISIONE DELLA SUA ULTIMA RIGA
[CODE
[3106] 07.11.2015 PE 02,11,18,24,25 5 Rit 0 ... 1° est + il 1° precedente [3107] 08.11.2015 PE 01,04,09,19,22 3 Rit 1 ... 1° est + il 1° precedente [3108] 09.11.2015 PE 07,11,14,15,17 8 Rit 2 ... 1° est + il 1° precedente [3109] 10.11.2015 PE 08,13,23,26,27 15 Rit 0 ... 1° est + il 1° precedente [3110] 11.11.2015 PE 03,04,12,22,24 11 Rit 1 ... 1° est + il 1° precedente [3111] 12.11.2015 PE 04,05,06,07,18 7 Rit 2 ... 1° est + il 1° precedente [3112] 13.11.2015 PE 01,03,09,25,29 5 Rit 3 ... 1° est + il 1° precedente [3113] 14.11.2015 PE 10,11,12,27,30 11 Rit 4 ... 1° est + il 1° precedente [3114] 15.11.2015 PE 09,12,19,22,29 19 Rit 5 ... 1° est + il 1° precedente [3115] 16.11.2015 PE 02,05,14,15,18 11 Rit 6 ... 1° est + il 1° precedente [3116] 17.11.2015 PE 07,11,16,25,28 9 Rit 0 ... 1° est + il 1° precedente [3117] 18.11.2015 PE 06,13,20,23,27 13 Rit 1 ... 1° est + il 1° precedente [3118] 19.11.2015 PE 02,08,09,27,29 8 Rit 2 ... 1° est + il 1° precedente [3119] 20.11.2015 PE 01,07,17,28,30 3 Rit 3 ... 1° est + il 1° precedente [3120] 21.11.2015 PE 04,14,20,25,29 5 Rit 4 ... 1° est + il 1° precedente [3121] 22.11.2015 PE 12,17,18,22,23 16 Rit 5 ... 1° est + il 1° precedente [3122] 23.11.2015 PE 01,17,21,24,29 13 Rit 6 ... 1° est + il 1° precedente [3123] 24.11.2015 PE 11,17,24,25,26 12 Rit 7 ... 1° est + il 1° precedente [3124] 25.11.2015 PE 02,09,10,14,21 13 Rit 8 ... 1° est + il 1° precedente [3125] 26.11.2015 PE 10,17,25,26,28 12 Rit 9 ... 1° est + il 1° precedente [3126] 27.11.2015 PE 19,21,23,28,29 29 Rit 10 ... 1° est + il 1° precedente [3127] 28.11.2015 PE 01,10,14,15,28 20 Rit 11 ... 1° est + il 1° precedente [3128] 29.11.2015 PE 09,14,15,17,26 10 Rit 12 ... 1° est + il 1° precedente [3129] 30.11.2015 PE 08,11,13,17,21 17 Rit 13 ... 1° est + il 1° precedente [3130] 01.12.2015 PE 02,10,11,18,21 10 Rit 14 ... 1° est + il 1° precedente [3131] 02.12.2015 PE 15,21,28,29,30 17 Rit 15 ... 1° est + il 1° precedente [3132] 03.12.2015 PE 06,07,16,24,28 21 Rit 16 ... 1° est + il 1° precedente [3133] 04.12.2015 PE 03,05,07,24,27 9 Rit 17 ... 1° est + il 1° precedente [3134] 05.12.2015 PE 03,06,10,13,28 6 Rit 18 ... 1° est + il 1° precedente [3135] 06.12.2015 PE 14,17,22,25,30 17 Rit 19 ... 1° est + il 1° precedente [3136] 07.12.2015 PE 01,03,12,18,27 15 Rit 20 ... 1° est + il 1° precedente ][/CODE]
cioè solo questa riga"
[3136] 07.12.2015 PE 01,03,12,18,27 15 Rit 20 ... 1° est + il 1° precedente" Chiedo, si può fare?
 
magia;n1943458 ha scritto:
Buonanotte,
Salutandola , provi a controllare il listato modificato.
Se vuole controllare l' effettiva veridicita' dei dati , tolga gli apici.
Controllare prego!

Codice: 
Sub Main()
'Dim freq1(8990,02),anum(08)
Dim sFileArchivio
sFileArchivio = GetDirectoryAppData & "ArchivioPensy\PENSY0.txt"
Call ApriBaseDatiFT(sFileArchivio,05,",",30)
Ini = EstrazioniArchivioFT - 33 : Fin = EstrazioniArchivioFT - 03
For Es = Ini To Fin
NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,01),30): Rit = Rit + 01
'Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
'Scrivi "PE" & Space(2),True,False
'Scrivi StringaEstrattiFT(Es,","),False,False
'Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
'Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 1° precedente"
If PosizioneFT(Es + 01,NV) > 0 Then Rit = 00
Next
'Scrivi String(88,"-")
Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
Scrivi "PE" & Space(2),True,False
Scrivi StringaEstrattiFT(fin,","),False,False
Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 1° precedente"
End Sub
Clicca per espandere...

OTTIMO !!!! proprio quello che volevo ;);) grazie Magia !!
Adesso è tardi mi riprometto di spiegare ....
 
Magia, o chi mi legge, mi devo parzialmente ricredere,su quanto detto in precedenza.
Il mio scopo è quello di ricavare più numeri virtuali con questo sistema, ebbene lo script funziona a pieno solo se qui nello script metto "Fin = EstrazioniArchivioFT " e non "Fin = EstrazioniArchivioFT - 03" in quanto se metto - 03 mi da errore
nell'indicazione dei ritardi (Rit) qualora nell'estrazione successiva per intendeci EstrazioniArchivioFT - 02 ,ovvero quella che lo sript non dovrebbe sapere , si realizzasse la previsione suggerita in questo caso il Rit mi viene segnalato sempre con " -1" .
Questa cosa mi pregiudica di fare delle prove nelle situazioni (estrazioni ) precedenti, questo è l' output tipo per ricavare 10 num virtuali:
[3138] 09.12.2015 PE 07,17,23,26,28 16 Rit 22 ... 1° est + il 1° precedente [3138] 09.12.2015 PE 07,17,23,26,28 17 Rit 4 ... 1° est + il 2° precedente [3138] 09.12.2015 PE 07,17,23,26,28 19 Rit -1 ... 1° est + il 3° precedente [3138] 09.12.2015 PE 07,17,23,26,28 21 Rit -1 ... 1° est + il 4° precedente [3138] 09.12.2015 PE 07,17,23,26,28 01 Rit 2 ... 1° est + il 5° precedente [3138] 09.12.2015 PE 07,17,23,26,28 28 Rit -1 ... 1° est - il 1° precedente [3138] 09.12.2015 PE 07,17,23,26,28 27 Rit 1 ... 1° est - il 2° precedente [3138] 09.12.2015 PE 07,17,23,26,28 25 Rit 1 ... 1° est - il 3° precedente [3138] 09.12.2015 PE 07,17,23,26,28 23 Rit 2 ... 1° est - il 4° precedente [3138] 09.12.2015 PE 07,17,23,26,28 13 Rit 6 ... 1° est - il 5° precedente come si può notare il 1° est + il 3° precedente mi segnala un Rit di -1 (?) ho scoperto il perchè si verifica :perchè nell'estraz. 3139 (che ripeto lo script non dovrebbe sapere)si verifica la sortita del n° 19 (num suggerito solo per l'estraz. 3139) Questo è lo script da cui viene fuori l'output di cui sopra:
Codice: 
[/COLOR][/SIZE][/FONT]Sub Main Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)  Ini = EstrazioniArchivioFT - 135 : Fin = EstrazioniArchivioFT - 4  For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,01),30): Rit = Rit + 01 If PosizioneFT(Es + 01,NV) > 0 Then Rit = 00 Next  Scrivi "[" & Fin & "] " & DataEstrazioneFT(Fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 1° precedente"   For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,02),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 2° precedente"   For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,03),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 3° precedente"   For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,04),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 4° precedente"  For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,05),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 5° precedente" 'çççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççç For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,01),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 1° precedente"    For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,02),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 2° precedente"   For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,03),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 3° precedente"   For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,04),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 4° precedente"  For Es = Ini To Fin NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,05),30): Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0 Next  Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 5° precedente" End Sub  [FONT=Courier New][SIZE=2][COLOR=#000000]
 
X Filotto:
L'inserimento del codice si fa così:
entra in editor avanzato " A" che vedi a destra
clicca su cancelletto "#" e verdai l'insermento di : "
Codice:
"
il tuo cursore sarà tra i 2 "CODE"
dai due colpi alla sulla barra spaziatrice ed otterrai uno spazio mafgiore in cui incollare il listato.
In "Anteprima" potrai vedere cosa stai e come lo stai inviando. Ricordati sempre di copiare il listato con la indentatura, e se possibile evita di utilizzare i ":" che includono + operazioni sulla stessa riga, in modo da facilitare la lettura del listato a chi vorrebbe aiutarti, ho sempre evitato questo modo di scrivere perchè poco leggibile dagli aspiranti scripter.
Un saluto
Se riesci, allega il file testo in modo che si possa operare e controllare sullo stesso archivio.
 
Ultima modifica:
E' QUESTO IL TUO LISTATO? (Sembrerebbe ripetuto 2 volte e carente di cicli for x ottimizzarlo )
Codice: 
Sub Main
    Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
    Ini = EstrazioniArchivioFT - 135
    Fin = EstrazioniArchivioFT - 4
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,01),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 01,NV) > 0 Then Rit = 00
    Next
    Scrivi "[" & Fin & "] " & DataEstrazioneFT(Fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,02),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,03),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,04),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,05),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,01),30)
        Rit = Rit + 01 If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,02),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,03),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,04),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,05),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 5° precedente"
End Sub

Spero di aver fatto cosa gradita.
 
Ciao Claudio ho visto il tuo intervento , ho fatto girare il tutto ma lacosa è rimasta tale a prima ovvero il Rit in alcuni casi mi restituisce " -1 " perchè così come scritto nello script mi controlla anche il Fin = EstrazioniArchivioFT - 4 che diventa -3 (in questo caso) il che vanifica delle prove insomma il "-1" non me lo dovrebbe dare me lo da solo nel caso nell'estrazione del -3 si sia verificata la sortita del num suggerito ma ripeto lo script dovrebbe sapere solo la situazione con i relativi ritardi all'estraz. relativa a "Fin = EstrazioniArchivioFT - 4"
Ps. prima, per inviare, ho fatto esattamente come hai detto e anche ora . GRAZIE per l'interessamento!!!
Codice: 
 Sub Main
    Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
    Ini = EstrazioniArchivioFT - 135
    Fin = EstrazioniArchivioFT - 4
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,01),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 01,NV) > 0 Then Rit = 00
    Next
    Scrivi "[" & Fin & "] " & DataEstrazioneFT(Fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,02),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,03),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,04),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) + EstrattoFT(es - 01,05),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est + il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,01),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,02),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,03),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,04),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,05),30)
        Rit = Rit + 01
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "[" & fin & "] " & DataEstrazioneFT(fin) & Space(2),False,False
    Scrivi "PE" & Space(2),True,False
    Scrivi StringaEstrattiFT(Fin,","),False,False
    Scrivi FormatSpace((Format2(NV)),4,True) & Space(2),True,False
    Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & " ... 1° est - il 5° precedente"
End Sub
[TABLE="border: 1, cellpadding: 1, width: 500"]
[TR]
[TD]
[3138] 09.12.2015 PE 07,17,23,26,28 16 Rit 22 ... 1° est + il 1° precedente [3138] 09.12.2015 PE 07,17,23,26,28 17 Rit 4 ... 1° est + il 2° precedente [3138] 09.12.2015 PE 07,17,23,26,28 19 Rit -1 ... 1° est + il 3° precedente [3138] 09.12.2015 PE 07,17,23,26,28 21 Rit -1 ... 1° est + il 4° precedente [3138] 09.12.2015 PE 07,17,23,26,28 01 Rit 2 ... 1° est + il 5° precedente [3138] 09.12.2015 PE 07,17,23,26,28 28 Rit -1 ... 1° est - il 1° precedente [3138] 09.12.2015 PE 07,17,23,26,28 27 Rit 1 ... 1° est - il 2° precedente [3138] 09.12.2015 PE 07,17,23,26,28 25 Rit 1 ... 1° est - il 3° precedente [3138] 09.12.2015 PE 07,17,23,26,28 23 Rit 2 ... 1° est - il 4° precedente [3138] 09.12.2015 PE 07,17,23,26,28 13 Rit 6 ... 1° est - il 5° precedente [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
 
Filotto, tu utilizzi un file di dati/testo " PENSY0.txt ", che io no ho e quindi non riesco a meno di "sforzi virtuali" a capire dove vuoi arrivare precisamente.
Se alleghi questo archivio, posso vedere di aiutarti nelle modifiche dello script.
Ps: per allegare file, si usa l'icona ( carica allegati) presente a sx di "A"
 
Ultima modifica:
x Filotto: Prelevato e messo in Spaziometria.
Partendo dal 1° script, al post n°1, quale è il tuo obbiettivo specifico, cosa deve fare lo script?
Il fatto che gira, non significa che adempie ai suoi obbiettivi.
ciao.
 
Caro Claudio prova a far girare questo script, fa esattamente quello che voglio solo che le 10 stringhe che mi interessano si trovano alla fine (di 30 stringhe)di ogni ciclo for ,per cui mi devo sorbire 300 stringhe che in effetti non mi servono, facendo girare invece lo script di cui al punto 9 ottengo la contrazione si a 10 stringhe ma alcune di esse errate
questo lo script che fa bene ma...diciamo abbondante.
Codice: 
Sub Main
    Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
    Ini = EstrazioniArchivioFT - 35 : Fin = EstrazioniArchivioFT - 4
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,1),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)'&" "& "1° est + il 1° precedente"
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "1° est + il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,2),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto + il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,3),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto + il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,4),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto + il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,5),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto + il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,1),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto - il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,2),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto - il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,3),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto - il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,4),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto - il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,5),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "Primo estratto - il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,1),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)'&" "& "1° est + il 1° precedente"
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est + il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,2),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est + il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,3),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est + il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,4),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est + il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,5),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est + il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,1),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)'&" "& "1° est + il 1° precedente"
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est - il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,2),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est - il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,3),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est - il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,4),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est - il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,5),30): Rit = Rit + 1
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    Next
    Scrivi "2° est - il 5° precedente"
End Sub
 
ciao a tutti ;)
Filotto Claudio ha Ragione:)
Non so di chi sia opera lo script sicuramente uno scripter bravissimo ma se dici cosa vorresti ottenere si potrebbe provare ha raggiungere l obbiettivo seguendo un altra strada.
Per fare uno script la domanda principale e' che voglio ottenere?
Ciao a tutti;)
 
Filotto, sinceramente non ho capito a cosa serve lo script, ma ... mi adeguo.
Eccoti lo stesso con modifica....... ho dovuto ripetere l'operazione molte volte, ma sarebbe stato sufficente una sola se avessi tu, utilizzato altri cicli for, nidificati.

Codice: 
Sub Main
    Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
    Ini = EstrazioniArchivioFT - 35 : Fin = EstrazioniArchivioFT - 4
    ' Scrivi "1° est + il 1° precedente"
 For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,1),30): Rit = Rit + 1
      '[329] 25.11.2015  PE  02,09,10,14,21  19  Rit  40
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)'&" "& "1° est + il 1° precedente"
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "1° est + il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,2),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
   End If
Next
    Scrivi "Primo estratto + il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,3),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "Primo estratto + il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,4),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "Primo estratto + il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) + EstrattoFT(es - 1,5),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "Primo estratto + il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,1),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "Primo estratto - il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,2),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
   End If
Next
    Scrivi "Primo estratto - il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,3),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
  End If
 Next
    Scrivi "Primo estratto - il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,4),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
  End If  
Next
    Scrivi "Primo estratto - il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,5),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
   End If
 Next
    Scrivi "Primo estratto - il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,1),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)'&" "& "1° est + il 1° precedente"
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
   End If
 Next
    Scrivi "2° est + il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,2),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
  End If
 Next
    Scrivi "2° est + il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,3),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    End If
Next
    Scrivi "2° est + il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,4),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
   End If
Next
    Scrivi "2° est + il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) + EstrattoFT(es - 1,5),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    End If
Next
    Scrivi "2° est + il 5° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,1),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)'&" "& "1° est + il 1° precedente"
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    End If
Next
    Scrivi "2° est - il 1° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,2),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
    End If
Next
    Scrivi "2° est - il 2° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,3),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
  End If  
Next
    Scrivi "2° est - il 3° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,4),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "2° est - il 4° precedente"
    For Es = Ini To Fin
        NV = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,5),30): Rit = Rit + 1
If Es = Fin Then
        Scrivi "[" & Es & "] " & DataEstrazioneFT(Es) & Space(2),False,False
        Scrivi "PE" & Space(2),True,False
        Scrivi StringaEstrattiFT(Es,","),False,False
        Scrivi FormatSpace(NV,4,True) & Space(2),True,False
        Scrivi "Rit" & FormatSpace(Rit - 1,4,True)
        If PosizioneFT(Es + 1,NV) > 0 Then Rit = 0
End If
    Next
    Scrivi "2° est - il 5° precedente"
End Sub

Spero di aver fatto quanto in tuo intento.
Ciao
 
Ultima modifica:
I legend, aspettiamo Filotto intanto appunto una previsione
GE ambate e ambo 5 .21 abbin. ad ambo 07.32.33.49.65.66 abb. a terno 06.31.32.48.64.65 .... buona notte
 
Ultima modifica:
i legend;n1944305 ha scritto:
Ciao scusate solo per curiosita ma devi calcolare il ritardi dell ambata sommativa a colpo?
solo per imparare
notte
Clicca per espandere...

si, si tratta appunto di calcolare il ritardi dell ambata sommativa a colpo ,utilizzando lo script di cui al n° 12 con l'archivio di cui al numero 10 si riesce acalcolare bene i ritardi di una qualunque ambata sommativa a colpo ,qui ne ricavo 10 ma potrei ricavanene molte di più, l'utilità? essendo una lotteria di 30 num ci si dovrebbe limitare ai 30 ritardi ,invece con questo sistema si riesce ad avereuna visione moooltooo più ampia e scegliere le ambate che risultano piùinteressanti
che so "1° est + il 1° precedente" risulta avere un rit di 25 e simultaneamente il 3°+ il 4 °precedente lo stesso ritardo di 25
sarebbeinteressante mettere in gioco i due numeri virtuali a colpo per sperare in una sortita di almeno uno , se non escono nessuno dei due la volta successiva con un ritardo di entrambi a 26 dovrebbero essere più appetibili.
E' una lotteria di 30 numeri si gioca un estr al giorno(i ritardi massimi nelle 3000 e passa estraz verificati sono nell'ordine di 30/40 estraz , io non gioco ma anche se dovessi giocare non ci potrei stare dietro, un giorno che trovi chiuso e sei fregato !! . Per Claudio Evidentemente non ci siamo capiti i ritardi sono errati spero che in questo post mi sia spiegato!
 
Ciao filotto appena ho tempo provo a fartene uno ex novo.se non si sa cosa fare è difficile mettere mano sullo script di un altro se poi è stato anche modificato diventa impossibile.

Ciao claudio Buona giornata:)
 
Ciao filotto lo script sommativo a colpo l ho fatto.
Ma prima di postarlo vorrei essere sicuro dei risultati per non dare numeri a caso.
Io l ho impostato .
Dato che non archivi stranieri ho utilizzato quello che c'è in spazio script di uk49
Adesso avrei bisogno di sapere se restituisce valori errati ma come faccio?
Chiedo a luigi e a magia che vedo molto interessato alle lotterie internazionali di dargli un occhiata :)

Credo che magia lo possa velocizzare con la libreria esterna.
Apro un post apposito.
A dopo fammi sapere;)
 
i legend;n1944410 ha scritto:
Ciao filotto lo script sommativo a colpo l ho fatto.
Ma prima di postarlo vorrei essere sicuro dei risultati per non dare numeri a caso.
Io l ho impostato .
Dato che non archivi stranieri ho utilizzato quello che c'è in spazio script di uk49
Adesso avrei bisogno di sapere se restituisce valori errati ma come faccio?
Chiedo a luigi e a magia che vedo molto interessato alle lotterie internazionali di dargli un occhiata :)

Credo che magia lo possa velocizzare con la libreria esterna.
Apro un post apposito.
A dopo fammi sapere;)
Clicca per espandere...

Tranquillo legend come archivio puoi usare benissimo Vedi l'allegato XClaudio.txt che è quello inviato a claudio al punto 10 di questa discussione e l'archivio vero di questa lotteria solo che x ragioni di spazio è più piccolo ma funge alla bisogna...vai!!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto