Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
26/02/2015
BA 58 75 78 29 17
CA 22 27 34 32 23
FI 23 05 28 90 24
GE 04 36 10 02 71
MI 80 11 68 36 34
NA 31 17 64 05 45
PA 79 28 16 64 06
RO 05 31 32 62 73
TO 18 68 51 08 55
VE 78 66 56 61 41
NZ 64 17 82 44 87
Grazie Arcor.
La maschera che hai inserito è identica a quella di L8.
Quindi penso che al "format" corrisponda altrettanta "sostanza".
Si tratta dunque di verificare se, il seguente "testo" è in grado di aggiornare l'archivio.
Codice:26/02/2015 BA 58 75 78 29 17 CA 22 27 34 32 23 FI 23 05 28 90 24 GE 04 36 10 02 71 MI 80 11 68 36 34 NA 31 17 64 05 45 PA 79 28 16 64 06 RO 05 31 32 62 73 TO 18 68 51 08 55 VE 78 66 56 61 41 NZ 64 17 82 44 87
Per fare questa prova ...
si deve caricare questa estrazione in memoria (selezionandola e copiandola) con CONTROL+"C" .
Poi ... dopo aver avviato L8D premere CONTROL+"E".
Se si apre la maschera di ggiornamento con i dati e senza errori, sarà possibile ... aggiornare.
Ciao Matteo.
Come sai, recentemente, alcuni siti ... sono diventati "inutilizzabili" per l'aggiornamento degli archivi.
S'è rinnovato ed attualizzato, l'annoso problema.
Ho redatto pertanto, anche, un piccolo script DA UTILIZZARE CON SPAZIOMETRIA adatto all'aggiornamento dell' Archivio di L8.
L'output è ben organizzato per essere compatibile ... è copiabile e poi incollabile nel NotePad di L8.
Da quest' ultimo "col mouse" ...
* Selezionando "Ogni Estrazione" (dalla prima necessaria all'ultima ... una alla volta)
* Premendo Control+X ... essa viene trasferita dal NotePad alla memoria del PC, da dove ...
* Premendo Control+E ... essa viene inserita in L8 ... quando per essa viene ... premuto il tasto di
* Conferma.
Poi, è sufficiente, se necessario, ripetere le precedenti operazioni ...
per ogni estrazione utile a completare l'archivio.
Sub Main()
Dim Fin,Ini,Es,DE,DT,R
Fin = EstrazioniArchivio : Ini = Fin - 10
Scrivi "Per Aggiornamento Achivio ORDINARIO L8 By Joe",1 : Scrivi
For Es = Ini To Fin : Messaggio Es
DE = DataEstrazione(Es) : DT = Replace(DE,".","/")
Scrivi DT,1
For R = 1 To 12
If R <> 11 Then
Scrivi SiglaRuota(R)& " ",1,0
Scrivi StringaEstratti(Es,R)
End If
Next
Scrivi
Next
End Sub