Per Joe Grazie

[trivellatomariotretre33]

ciao Joe se puoi modificarmi questo Listato che ti Posto in Modo di scrivermelo come in allegato

Sub Main()
'script By Black
ini = 1855'4666 '8 Marzo 1997
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
r11 = 11
r12 = 12
gg = giorno(es)
ms = Mese(es)
an = Anno(es)
Scrivi Format2(gg) & Left(MeseNome(ms),3) & an & StringaEstratti(es,r1,"") & StringaEstratti(es,r2,"") & StringaEstratti(es,r3,"") & StringaEstratti(es,r4,"") & StringaEstratti(es,r5,"") & StringaEstratti(es,r6,"") & StringaEstratti(es,r7,"") & StringaEstratti(es,r8,"") & StringaEstratti(es,r9,"") & StringaEstratti(es,r10,""),0,0
If ScriptInterrotto Then Exit For
Next
End Sub

 

[joe]

Ciao,
dovrebbe essere così :

Option Explicit
Sub Main
   Dim Es,D,R,P
   For Es = 9693 To EstrazioneFin
      D = Split(DataEstrazione(Es,1)," ")
      Scrivi Format2(giorno(Es)) & UCase(D(1)) & Anno(Es),0,0
      For R = 1 To 12 : If R = 11 Then R = 12
         For P = 1 To 5
            Scrivi Format2(Estratto(Es,R,P)),0,0
         Next
      Next
   Next
   Scrivi 
End Sub

Però dovresti esercitarti con il "fai da te"

 

[trivellatomariotretre33]

ciao Joe scusami lo visto solo adesso lo script parte con ritardo e non raggiunge il risultato del tx che o allegato
questo che mi ai postato mi da una lunga e sola linea
mentre nel tx a piena pagina scritta se puoi ricontrollare , forse mi sfugge qualcosa, ti ringrazio,e rimango in attesa di una tua risposta.

 

[joe]

ciao Joe scusami lo visto solo adesso lo script parte con ritardo e non raggiunge il risultato del tx che o allegato
questo che mi ai postato mi da una lunga e sola linea
mentre nel tx a piena pagina scritta se puoi ricontrollare , forse mi sfugge qualcosa, ti ringrazio,e rimango in attesa di una tua risposta.

Si, ma anche il file di testo che che hai inserito è solo una linea intera.

Così pure da come leggo dallo script che hai messo ad esempio NON divide le estrazioni, gli estratti e/o le date,

generando anch'esso UN elenco tutto unito in un solo record.

 

[trivellatomariotretre33]

Scusami joe deve essere continuo come foto

 

[trivellatomariotretre33]

ti allego anche tx di nuovo

 

[joe]

Ciao, non posso far altro che ribadire ciò che ho gia scritto:

Non può essere "più unito" che essere tutto in una sola linea.

Lo script di per sè è abbastanza veloce ma la preparazione del codice html e soprattutto per

la quantità di output corrispondente ad un archivio intero richiede un pò di tempo.

Tempo ancora maggiore nei PC meno performanti e con poca memoria.

Dunque dai tempo al Pc di elaborare tutto e poi di esporlo nel suo output.

Se non da errori ... funziona.

A questo punto apri il "Blocco Note" di Spaziometria e che ha come icona un taccuino.



Non dovrebbe apparire, come una sola linea, me se lo è ...

è perchè nei settaggi è disattivata l'opzione "a capo automatico" (al margine destro della finestra).

Questo settaggio comunque non influenza il contenuto del file archivio.

E' solo un modo diverso di impaginarlo.

Per rendere disponibile l'archivio, DEVI SALVARLO come "File.txt" direttamente da questo "Blocco Bote"

e solo dopo averlo archiviato, lo puoi riaprire e verificare se è giusto o no.

 

[trivellatomariotretre33]

CIAO JOE SCUSAMI O FATTO COME DICI MI DA QUESTO ERRORE

 

[trivellatomariotretre33]

JOE QUESTO E IL FILE ORIGINALE
TOGLI ESTENZIONE PDF

 

[joe]

Prova diversamente.

* Esegui lo script.

* Aspetta che sia concluso. ed anche un pò di tempo in più affinchè ci sia a video tutto l'archivio.

* Poi apri la DirectoryDati di Spaziometria

* In questa directory c'è la cartella Temp

* Dento la cartella Temp c'è il file Otput.txt

* Fai doppio-click su questo file e dovrebbe aprirsi l'editor con dentro l'archivio.

* A questo punto puoi salvare il file dove vuoi.

 

[trivellatomariotretre33]

JOE MI PUOI RIMETTERE LISTATO CORRETTO
PERCHE LO RIMASTO PER 2 ORE AD ELABORARE
E SI BLOCCA
IL MIO PC E UN I7
SCUSAMI ANCORA .

 

[joe]

Lo script che ho usato è sempre lo stesso, non ne ho scritto un altro.

Come puoi vedere nelle immagini al messagio #7 funziona.

Se non funziona sul tuo Pc probabilmente è perchè non c'è memoria sufficiente.

Quando ho scritto, un pò di tempo, intendevo qualche minuto, non oltre 5 o 10.

PEr ora l'unica cosa che potrei provare di suggerirti è che mi sembra di ricordare

che spaziometria può indirizzare l'output anche ad un browser diverso.

Generando meno output forse potrebbe funzionare. Ma si tratta di prove da provare.

 

[trivellatomariotretre33]

joe non e un problema di memoria

 

[joe]

Se si esclude un problema di memoria o del PC diventa più difficile trovare una soluzione.

Dunque ti consiglierei di provare a creare un archivio molto piccolo.

Per ipotesi delle ultime 10-20 estrazioni.

Così potrai provare in tempi brevi e con poco output se lo script funziona.

Del resto avevi scritto che genera una linea di risultato.

Pertanto hai scritto che ha prodotto il suo tisultato a seguito dell'aver funzionato.

 

[trivellatomariotretre33]

GRAZIE LO STESSO JOE
MA NON MI FUNZIONA
IL FILE ORIGINALE E QUELLO IN ESTENZIONE PDF SOPRA ,SI LEGGE IN ESTEN TX
CI VORREBBE UNO SCRIPT CHE MI FACCIA QUELLO GRAZIE JOE
BUONA DOMENICA .

 

[joe]

Non capisco perchè, insisti sui dettagli quando manca la ciccia.

Lo script prima cosa deve funzionare.

Poi il file in formato testo lo produce e come ti scritto è: "Otput.txt" nella cartella "Temp" della "DirectoryDati" di "Spaziometria".

Ti ho anche mostrato l'immagine di cosa fa lo script.

Secondo me, il problema è che non funziona sul tuo PC.

Comunque sia ... ho modificato quello script affinchè non produca il pesante output html

e vada a scrivere direttamente sul disco il file di testo che esso stesso crea.

Sono 100 Estrazioni e vengono elaborate in una frazione di secondo.

Dunque così non ci dovrebbe essere nessun problema di spazio/tempo/formato.

Option Explicit
Sub Main
   Dim Ini,Fin,Es
   Dim D,R,P
   Dim sFile,Riga
   Ini = EstrazioneFin - 99 : Fin = EstrazioneFin
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      D = Split(DataEstrazione(Es,1)," ")
      Riga = Riga & Format2(giorno(Es)) & UCase(D(1)) & Anno(Es)
      For R = 1 To 12 : If R = 11 Then R = 12
         For P = 1 To 5
            Riga = Riga & Format2(Estratto(Es,R,P))
         Next
      Next
   Next
   sFile = GetDirectoryTemp & "Archivio.txt"
   Call EliminaFile(sFile)
   Call ScriviFile(sFile,Riga,False,True)
   Call CloseFileHandle(sFile)
   LanciaFile sFile
End Sub

Fammi sapere

 

[trivellatomariotretre33]

Grazie di Cuore Joe perfetto
ti invio una stretta di mano chilometrica.