Per Joe mike o altri

[trivellatomariotretre33]

Ciao innanzi tutto Auguri di buone feste a Tutti voi mi servirebbe uno script che crei estrazioni in seguenza come in documento allegatovi vi ringrazio di cuore con anticipo e un'augurio a tutto il forum grazie. nel caso non si legge allegato cosi e la seguenza. 30DIC201035264852062144639081506715860402169044721 40209334887854001659018548656412605342252044249286 281275251198502127103GEN20115812268581753702876343 02195264462114851881781463867681072771584338477408 2650811967128062034557375966451334278704GEN2011833 08443268251735955905605191790032012604934203272530 96183010768605511465001066759196384401462840687415 465855707GEN20118543075879907326520417223980416382 48592081352979491471733769827018748584146102886971 8437071866516755572147810908GEN2011881028115144473 90463842137174243728813631518238103663431723757303 67226143088364969201860495703107918861241111811GEN 20113242565540388508028915333820903562083675853033 89422337151607293785877953598243640670321289256411 5947028123491313GEN2011800341674650370728625709023 12256501771781280610667224529793623014485832981530 62206583317908589176537652669022115GEN201101396885 88097987688671243227235346337771136243750729705621 68875616582512466934435774526708186953654586380981 3618GEN2011725438016320408154136443551973874355111 50654177522276847648254416836394582301186616476653 78348051746375309512120GEN201177085733311780182937 35851907062123570664169041374476048545256555788336 584306295012839006720164178955022436885222GEN20112 81304621020834845898448665364343914166304196076746 66504848845107742783864140309257076024278894425557 56024051325GEN201141485737346069537912324827112941 61143824316684255040372039133702752125848936391087 521489736870101546256227782427GEN20111512170582388 31005641443152825361528331327740706517572831617254 9286147238437011815241719085865123742393456805029G EN201187465790178537865567100658011403481506171928 82317801255179142870244206213388836143746044418641 096729530865177901FEB20114817152952580519298790186 08675743631045322843138748204052464407937177254308 9436956414814345133583409493761025003FEB2011460509 38501261857555780520287535443241814650782741786955 27704378665112456243708117055683574960265290323742 810805FEB20117588446831671381633102124682738190478 03887668508683266421074145202334123642249738518092 4538304804876051087365008FEB2011904584690806493934 52066465331410753001422370140757316955107564727157 84818052085075726853013748545016621946598310FEB201 11181096021588166829081694476452343718418786929236 40155493188150814418677131124636141895446756710202 9107429397212FEB2011903303162301324236057774692425 29083020271888332786905121810619905786395337464240 34026433637179860660022919643915FEB201137861921608 25266717576092857816656652770465158603740716451034 15672032679820146496933139065423640371785425863321 7FEB2011696684014683580721628018301344450436774974 28758621540368066270475636382257772690625034852450 04586061407211891719FEB201168358819636103423988343 03716785848504936102474692176673211563941908538226 305528757302523471256676857271888867122FEB20114732 39585183906279434927595082072104393730233843576227 55198339534685791364594204374539643081338869096933 89177024FEB201188273302440422070152302467760247780 46212568536829083576151726850095745371824145462484 4568260747155335836627729 devono essere tutti uniti senza spazi ancora grazie.

 

[claudio8]

Ciao Trivellato, potresti specificare meglio la richiesta in modo che chi vorrà applicarsi lo possa fare avendo ben chiara la tua esigenza..

Hai bisogno di un file con estensione specifica (es:txt ) o ti è sufficente averlo come output
Devi inserirlo in una directory da scegliere, o altro?
Devi gestire l'inizio e fine estrazioni?
Le righe devono essere tutte da 50 caratteri? (quelle che vedo nel post sono tutte da 50 caratteri escluso l'utima).

Un saluto

 

[trivellatomariotretre33]

ciao claudio8 mi basta solo anche tx

24FEB201188273302440422070152302467760247780462125 68536829083576151726850095745371824145462484456826 0747155335836627729


scusa claudio8 devono essere da bari iniziale e nazionale finale tutti uniti con davanti a ogni estraz la data cosi 24FEB2011

mi basta anche che parti da questa data 24FEB2011

mi è sufficente averlo anche come output grazie,

 

[joe]

Option Explicit
    Sub Main
    Dim Ini , Fin, Es, De, Dt, R, P
    Ini = 7440 : Fin = EstrazioneFin  
    For Es = Ini To Fin
    De = Split (DataEstrazione (Es,1)," ")
    Dt =  Format2(De(2)) & UCase(De(1))& De(3)
    Scrivi Dt ,True,False
    For R = 1 To 12 : If R = 11 Then R = 12
    For P = 1 To 5
    Scrivi Format2(Estratto(Es,R,P)),False,False
    Next
    Next
    Next
    Scrivi
    End Sub

 

[trivellatomariotretre33]

grazie joe ottimo va bene solo che mi va molto lento se inizio dal 2011
con l'estrazione e ok ti ringrazio di cuore tanti auguri e felice anno ciao ringrazio tutti e Auguri a tutti .

 

[trivellatomariotretre33]

joe SCUSA O RIPROVATO VA IN BLOCCO .
PERO E IMPOSTATO BENE COME VOLEVO .
SE SI PUO FARE QUALCOSA X NON FARLO ANDARE NON IN BLOCCO GRAZIE ANCORA

 

[joe]

Non so se è vero che si blocchi o se è solo lento.

Come vedi non c'è nulla oltre il necessario che si può tagliare.

Una soluzione potrebbe essere quella di dividere l'archivio in parti più piccole e poi riunirle...

oppure ... trovare un altro modo.

Cioè provare a scrivere su disco

verificando se risparmiando nell'uso della memoria del pc, la velocita aumenta.

 

[trivellatomariotretre33]

Ciao joe grazie di cuore per il tuo aiuto ti faccio tanti auguri x le Sante Feste e ancora grazie per la tua disponibilita.

 

[joe]

Rettifico ... in parte quanto ho scritto.

Prova questa variante:

Option Explicit
Sub Main
'Archivio_x_Trivellato
Dim Ini,Fin,Es
Dim De,Dt
Dim R,P
Dim sEstrazioni
Ini = 7440 : Fin = EstrazioneFin
For Es = Ini To Fin
If ScriptInterrotto Then Exit For
AvanzamentoElab Ini,Fin,Es
De = Split(DataEstrazione(Es,1)," ")
Dt = Format2(De(2)) & UCase(De(1)) & De(3)
sEstrazioni = sEstrazioni & Dt
For R = 1 To 12
If R = 11 Then R = 12
For P = 1 To 5
sEstrazioni = sEstrazioni & Format2(Estratto(Es,R,P))
Next
Next
Next
Call Scrivi(sEstrazioni)
End Sub

Fammi sapere se va meglio ... si può migliorare ancora,

 

[joe]

Ciao i legend.

... mi è noto che l'istruzione "scrivi" sia "la parte pesante",

Quindi sul mio pc il TERZO/NUOVO script (con ulteriore ottimizazione) è gia centinaia (e/o forse migliaia) di volte più veloce.

Ad ora, con questa nuova versione, scende a pochi secondi nel tempo di elaborazione ...

... e questo mi sembra un "buon risultato".

Ciò non giustificherebbe ulteriori approfondimenti e/o sbattimenti, (essendo tempo ragionevole)

se non per quello che è l' ampliamento della cultura personale ...

che rende sempre meritevole più di ogni script / algoritmo / soluzione l'impegno profuso.

 

[i legend]

Ciao Joe
a mio avviso il primo script è veloce semplice ed efficace
il secondo non ho modo di testarlo L momento
sul mio PC ho provato un alternativa che sembra più veloce di una manciata di secondi ma ho dovuto farlo partire dalla prima estrazione per vedere la differenza.
uso la funzione stringa estratti
nel ciclo r metto la condizione se il primo estratto e> 0 s=s&STRINGA ESTRATTI ALTRIMENTI s=s&"0000000000"
fuori dal ciclo for scrivo s
magari la tua ultima è ancora più veloce.
c è sempre da imparare.

ciao dimmi che ne pensi
ecco il pezzo di cui sopra

' questo è solo una parte del codice , è inutilizzabile se non si sa fare
For R = 1 To 12
            If R = 11 Then R = 12
' questo filtro è importante se nella parte d archivio considerato ci sono buchi 
            If Estratto(IdE,R,1) > 0 Then  s = s & StringaEstratti(IdE,R,""):Else s = s & "0000000000"
        Next
        Scrivi s
        s=""

 

[i legend]

scusa joe ho riportato sotto il tuo messaggio quello che avevo scritto.
provalo solo per curiosita magari
joe ad una lettura scrivi è fuori dal ciclo e la stinga non è azzerata è fattp volutamente?

 

[joe]

Ciao i Legend ...

... si ho visto ed ho provato solo mentalmente quanto hai scritto.

E' concettualmente corretto. Ma il problema secondo me stava ad altro livello.

Penso infatti che Trivellato abbia un programma molto vecchio e molto rigido,

che non riesce ad aggiornare. Ovvero gli serve avere un archivio.

Se avesse scritto che era per excel o qualcos'altro non avrebbe trovato risposta.

Quindi penso che il suo programma, non sia in grado di gestire la parte vecchia dell'archivio.

In ogni caso, con i tempi rilevati e la memoria occupata dalla prima soluzione-script ...

probabilmente dopo qualche giorno di elaborazione il sistema sarebbe andato in crash,

prima di aver composto l'archivio completo.

Infatti, Trivellato ha già riferito "del collasso" con le poche estrazioni dall'istituzione della Nazionale.

Cioè con "un-quinto" delle estrazioni necessarie.

Con il primo script, inoltre, si deve considerare che i tempi di elaborazione

aumentano "esponenzialmente" con l'aumentare delle estrazioni.

Non mi dilungo, ritendolo, semplicemente "inutilizzabile" allo scopo,

pur essendo una soluzione teoricamente giusta ed anche migliorata con la tua correzione.

Buona Giornata a tutte/i.

PS: I ) Si. Avevo già accennato al perchè ho tolto, dalle reiterazioni, l'istruzione "Scrivi",

velocizzando così lo script.

PS: II ) Personalmente preferisco SommaEstratti (Es,R) > 0 come discriminante che,

sino ad oggi, identifica (embedded come mia/o) lo script o la base di sviluppo in esso contenuta.

PS: III ) Attualmente TUTTO L'ARCHIVIO si genera ... in circa 32 secondi.

 

[trivellatomariotretre33]

joe lo sapevo sei un fenomeno sei grande va bene e funge come io volevo grazie ancora e auguroni