Novità

Evidenziare estratti Come fare

cosa sbaglio ?

con o senza parentesi mi da errore

'''''''''''''' MostraFormOutput (Optional bVisibile = True) [Mostra il form output]Option Explicit
MostraFormOutput True,frmOutputScript Option Explicit
 

Allegati

  • 1.jpg
    1.jpg
    12,8 KB · Visite: 16
ciao Luigi
non no lo ancora provato, sto facendo qualche prova,
forse perchè non ho messo nessuna riga messaggio
 

Allegati

  • 2.jpg
    2.jpg
    11 KB · Visite: 19
non ho ben capito come devo compilare le righe

ho messo

ListView1 = " prova messaggio dati da compilare "
MostraFormOutput True,frmOutputScript Option Explicit

ma nella listView1 la devo preparare prima e gli viene passata in automatico
o una volta aperto il form piccolo
devo continuare a caricare il messaggio?

per finire devo fare qualcosa o rimane aperto sovrapposto ?
 
Ciao a Tutti
xLuigi
Grazie per le modifiche :)
ora è molto piu comodo non aver fissa la finestra degli script
devo ancora testare la formTabella in output
grazie :)

x Xerox
Ciao :)
il costrutto è simile allo script che evidenzia la distanza
ti serve la formula per il diametrale in decina
2 vie
1° metti i valori in un array cosi sai che aDDec(1)= 6 aDDEc(2)=7 ecc
aDDec=array(0,6,7,8,9,90,1,2,3,4,15,16,17,18,ecc)
questa è una stringa separata da "," che puoi comporre utilizzando spaziometria( quanto sono pigro ( :( )
2° scrivi la formula
anche questa è una soluzione semplice
prova a scriverla

lo script funziona con entrambe .
ciao :)
 
Ciao A Tutti,
Grazie Joe ed I_Legend appena posso vedo, mannaggia ho avuto dei problemi con il PC, lo condivido in questo periodo con le mie cucciole e qualcosa è andato storto, metto a posto perchè domani hanno lezioni e poi vedo anche Io.

Grazie Ancora
 
non capisco se sia il formato ma le immagini si vedono poco nitidamente
:(

Prova a farle in dimensione 800x600 in formato jpg o se le fai da cellulare a scaricare un app di compressione formato e poi caricare quella compressa. Così non dovrebbe perderti di definizione. Ciao e Good Sunday ;)
 
riguardo il problema tecnico dato che lo script come sai lavora sulla griglia visibile
la priam cosa da fare è memorizzare l'idestrazione delle prima riga con la funzione

idEstrPrimaRiga = GetIdEstrPrimaRiga

successivamente per conoscere le estrazioni delel righe successive devi sommare a quel valore il numero della riga (sottatto di 1)
ottenuto questo id lo puoi passare alle funzioni

che ti danno le informazioni sull'estrazione

il problema del left sara un errore tuo .. left è un istruzione del vbscript non dipende da me ..

non so se tu hai fatto cosi per ottenere le informazioni che ti servivano sulle estrazioni .. se hai fatto cosi e non funge fammelo sapere...

ciao...
 
ciao luigi pensavo anche io fosse cosi quindi
ho passato la funzione in spazio script ed è andata
proprio non saprei , infatti mid funzia alla grande.
ok .ottimo la funzione prima riga non l avevo testata , avevo passato il valore dell ultim estrazione in archivio , ma ovviamente era un trik ;)
grazie per il suggerimento :)
 
Luigi ho chiuso il programma , ho ripreso gli script.
Gli altri li ho postati quest ultumi no :(
Ma devo creare una cartella a parte?
Nella combo restano solo i tuoi evidenzia decina e test .
Va beh rifarli non è un problema.
Ciao :)
 
"ciao fare lo script è certamente possibile , ora io non è che ognuno che fa la richiesta di uno script lo assecondo anche perche oltre a me ci sono altri bravi scripter
che possono aiutare , tuttavia ogni tanto intervengo. Lo faccio o quando il metodo proposto mi solletica la fantasia o quando vedo che l'utente che lo ha chiesto è disposto ad imparare come si fa.
Ora di te vedo che ti interessi anche se minimamente di programmazione , è quanto basta per approcciare agli script il resto dell'esperienza naturalmente verrà esercitandosi .
Lo script che proponi non è difficile ma nemmeno semplicissimo piu che altro richiede il calcolo di diversi parametri .
Comunque leggero il tutto con piu attenzione e se ancora nessuno lo ha fatto cercherò di aiutarti sperando di seminare bene.."
Te lo ricordi?
Questo un tuo post ad una mia richiesta d aiuto .
Dai alla lunga qualche frutto è stato dato.
Non è stato facile trovarlo :)
Sembra ieri e invece sono passati già sette anni :)
Grazie per tutto quello che mi hai insegnato :)
 
Ciao ho fatto un aggiornamento , ora questo script funziona

Codice:
Option explicit
Sub Main

    dim idPrimaRiga  , id  , r

    
      MostraFormOutput
    idPrimaRiga = GetIdEstrPrimaRiga()
   
    for r = 1 to Righe
        id = idPrimaRiga  + (r -1)
        AddRigaOutput(GetDataEstr(id))
    next
End sub


gli script vengono salvati nella cartella del programma , prova a vedere a mano se sono li .. li puoi scrivere anche con notepad sono normali file di testo con estensione txt

io ti consiglio di usare i ltemplate vb6 cosi hai tutto molto meglio che l'editor di spaziometria e non devi usare l oscarno editor del programma.


importante per chi usa il template vb6 per fare gli script faccia attenzione a sostituire la cartella perche ho fatto delle modifiche ..


 
Per il templare, purtroppo non ho scaricato il vb6. Tra un po metto windows 10 professional e quindi non potrei utilizzarlo comunque.
Mi fa piacere aiutare con il test degli script, non è proprio la collaborazione che speravamo ,ma almeno un piccolo contributo.
Più tardi scarico il nuovo lotto open e testo le altre funzioni:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto