-
J-Gio91
| .
|
|
|
|
CITAZIONE (Franco Sedonati @ 24/7/2020, 22:13) BUONASERA A TUTTI/E....
Grazie mille Joe per le dritte, l'ultimo script mi da una serie di errori che nei script precedenti ero riuscito a risolvere, ma in quest'ultimo no....credo sia un problema di compatibilità....
BUON WEEKEND !
Ciao,
ho riscritto le 2 "Sub" perché avevo dimenticato che lo script dovesse girare con le vecchie versioni di L8.
Non le ho provate perché (al momento) non ho un PC con cui farlo.
L'output è diverso da quello che si può ottenere con versioni più nuove di L8/LD e Spaziometria.
Naturalmente devi cancellare le 2 Sub in fondo allo script (che non funzionano sul tuo PC),
ed al loro posto incollare queste.
CODICE Sub UltimeCadute(Nu)
Dim Ini,Fin,Es,G,R,P,E,X
Dim T,Out 'Output compabile per vecchie versioni L8+
Ini = EstrazioneFin - 17 : Fin = EstrazioneFin
Scrivi
Titoli
For Es = Ini To Fin
Out = DataEstrazione(Es) & " | "
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5 : T = False
E = Estratto(Es,R,P)
For X = 1 To 3
If Nu(X) = E Then Out = Out & Format2(E) & " " : T = True
Next
If T = False Then Out = Out & ".. "
Next
Out = Out & "| "
Next
Scrivi Out
Next
Titoli
End Sub
Sub Titoli
Dim R,Sp1,Sp2,LNR
Dim Out 'Output compabile per vecchie versioni L8+
Out = Space(3) & "DATA" & Space(4) & "|"
For R = 1 To 12 : If R = 11 Then R = 12
LNR = Len(NomeRuota(R)) : Sp1 = Int((16 - LNR)/2) : Sp2 =(16 - LNR - Sp1)
Out = Out & Space(Sp1) & NomeRuota(R) & Space(Sp2) & "|"
Next
Scrivi Out
End Sub
|
|
|
| .
|
34 replies since 10/6/2020, 09:40 1256 views
.
.
Offline