-
.Si grazie hi fatto i passaggi che mi dici...però c'è un problema... Mi da errore nello script... Comunque nel pomeriggio ti mando una foto se riesco.... Grazie
Si ma ...
... NON ho dato nessuno script a nessuno.
Dunque è impossibile avere "errore nello script" che non c'è.
La foto sarà comunque molto utile per capire di quale problema si tratti.
Buona Domenica a tutte/i.. -
.
Ciao... La foto non riesco a mandartela...non molto bravo...
Però mi da ....errore 1024:prevista istruzione(riga2). -
.
Inserisci lo script (anche solo come testo)
nel messaggio di risposta.
. -
.
Volevo chiedere ma e possibile un programma che lo fa direttamente??? Me lo puoi mandare????grazie
E arabo x me non so cosa devo fare
Lo fatto ma nulla
Se ti mando un e-mail ...forse e meglio????. -
.
No.
Per quello che ho fatto ... fino ad ora:
A) ci vuole la tabella.
B) lo script che la legge.
Lo script che ho funziona solo con Spaziometria.
Non l'ho ancora convertito a L8 (ci stavo lavorando su).
E ... non sono ancora riuscito a trovare il modo di mettere la tabella on-line
Dunque se hai interesse ad una soluzione per ora e provvisoriamente
l'unico percorso è quello che ho indicato.
L'altro ... è avere Spaziometria che semplifica le cose.
Copi lo script che stai usando e lo incolli nel messaggio ...
così riesco a capire e vedere di quale errore hai scritto.
. -
.
01.31 01 16 58
01.41 68
01.51 30 75 81
01.61 13 40 45
01.71 06 44 62 90
01.81 08 09 68 87
02.12 42
02.22 19 41 75
02.32 02 31
02.42 09 77 79
02.52 01 09
02.62 01 39
02.72 01 73
02.82 04 14 15 35 44 73
03.13 01 32 70
03.23 13
03.33 04 22 76
E questo e riportato nello script del mio programma... Come faccio avvio mi da quel problema
Mi devi scusare non Voglio farti perdere tempo....poi oggi e domenica non Viglio disturbare ...se riesco bene sennò pace.grazie. -
.
Ok.
Quella è la tabella, non è lo script.
Lo script per provare se hai eseguito bene le istruzioni che avevo dato è questo:CODICEOption Explicit
Sub Main
Dim fso 'filesystemobject
Dim sFile ' percorso del file
Dim myFile ' è lo strream per leggere il file
Dim sLinea ' è la linea letta corrente
sFile = "CA_Tab_Joe.txt"
' istanzia il filesystemobject
Set fso = CreateObject("Scripting.FileSystemObject")
' usa il metodo OpenTextFile per aprire lo stream
Set myFile = fso.OpenTextFile(sFile)
' fa un ciclo leggendo una lnea alla volta finche lo stream non raggiunge la fine
Do While Not myFile.AtEndOfStream
sLinea = myFile.ReadLine()
Call Scrivi(sLinea)
Loop
' chiude lo stream
myFile.Close
End Sub
Se hai fatto bene ti restituisce la tabella degli ambi e delle loro spie.
. -
.
Scusami un filmato con i passaggi r possibile....io ni riesco perdonami non sono bravo come te!!! . -
.
Scusami. ho sbagliato ad inserire il link alla tabella.
Nello script deve essere
sfile = "C:/Programmi/L8+/CA_Tab_Joe.txt" e
DEVE essere esattamente uguale quello che hai sul tuo computer.
CIOE' l'indirizzo di dove hai messo la tabella.
Non mi è possibile fare il video dovrei installare tutti i programmi ... ecc. ecc.
periamo che qualcun'altro possa aiutarti.
. -
.
OK grazie . -
.
JOE fatto grazie quel programma che tu usi e possibile averlo x leggere il tabulato che mi da subito l'ambo da giocare grazie . -
.
Devo scriverlo per L8 e verificare che funzioni.
Perché se ti do lo script per spaziometria,
sicuramente non potrai usarlo.
. -
.
ok grazie e scusa x il disturbo.....faro con la tabelle ciao . -
.CODICEOption Explicit
Sub Main
'https://illottodisean69.forumfree.it/?t=77680541&st=15#newpost
'Beta x L8 By Joe 8/6/2020
'ATTENZIONE: NON USARE QUESTO SCRIPT CON SPAZIOMETRIA.
Dim fso 'filesystemobject
Dim sFile ' percorso del file
Dim myFile ' è lo strream per leggere il file
Dim sLinea ' è la linea letta corrente
Dim L,Nu(2),PT,M,P,Es
Es = EstrazioneFin
sFile = "C:\Program Files\L8******.txt" '<<<< INSERIRE IL PERCORSO CORRETTO
' istanzia il filesystemobject
Set fso = CreateObject("Scripting.FileSystemObject")
' usa il metodo OpenTextFile per aprire lo stream
Set myFile = fso.OpenTextFile(sFile)
' fa un ciclo leggendo una lnea alla volta finche lo stream non raggiunge la fine
Do While Not myFile.AtEndOfStream
sLinea = myFile.ReadLine()
'Scrivi slinea
L = Split(sLinea," ")
'Scrivi L(0) & Space(1),True,False
Nu(1) = CInt(Left(L(0),2)) : Nu(2) = CInt(Right(L(0),2))
PT = 0
Redim Mu(UBound(L))
For M = 0 To UBound(L)
For P = 1 To 5
If CInt(L(M)) = Estratto(Es,CA_,P) Then
PT = PT + 1
Mu(PT) = CInt(L(M))
End If
Next
'If Posizione(EstrazioneFin,CA_,L(M)) > 0 Then ColoreTesto 2 : GR = True
'Scrivi Format2(L(M)) & Space(1),GR,0
'ColoreTesto 0 : GR = False
Next
If PT >= 2 Then
ColoreTesto 1
Scrivi StringaNumeri(Nu) & Space(1),True,False :
ColoreTesto 0'
Scrivi "Spie ",False,False
ColoreTesto 2
Scrivi StringaNumeri(Mu),True,False
ColoreTesto 0
Scrivi'StringaNumeri(Mu,,True)
End If
Loop
' chiude lo stream
myFile.Close
End Sub. -
.
ciao cosa e??? .