CIAO MIKE O SLVO50

[adispo2000]

POSSO DISTURBARVI PER UNO SCRIPT?

 

[Mike58]

Ciao Adispo,io di tempo ne ho ho poco,e purtroppo vedo che anche chi si occupa di mettere a disposizione script , sono assenti.

Metti pure la tua ricerca chissà che possa stimolare qualcuno.

Chiaro tutto dipende sempre dagli stimoli che si hanno e dal tempo che ognuno di noi ha a disposizione per questa passione comune.

Ciao

 

[salvo50]

Ciao Adispo,io di tempo ne ho ho poco,e purtroppo vedo che anche chi si occupa di mettere a disposizione script , sono assenti.

Metti pure la tua ricerca chissà che possa stimolare qualcuno.

Chiaro tutto dipende sempre dagli stimoli che si hanno e dal tempo che ognuno di noi ha a disposizione per questa passione comune.

Ciao

Idem

 

[adispo2000]

SCUSATE RAGAZZI, SICURAMENTE SARA' UNO SCRIPT FACILE....VEDIAMO SE MI SO' SPIEGARE;
PRIMA DI TUTTO MI VADO A CREARE UN FILE DI TESTO DOVE INSERISCO LE COLONNE 10ELOTTO IN ORDINE DI USCITA, E TRAMITE UNO SCRIPT..CHE SICURAMENTE SARETE CAPACI DI CREARE RICERCARE I NUMERI CHE ANCORA NON SONO USCITI NELLA PRIMA COLONNA (O POSIZIONE), NELLA SECONDA (O POSIZIONE) ECC......SEMPRE IN BASE AL FILE CHE VADO A CARICARE E POI RIPILOGARE PER POSIZIONE I NUMERI CHE RITARDANO O CHE NON SONO USCITI.
COME VEDETE DALFILE LA PRIMA COLONNA E 21-79-17--37 ECC, SECONDA 41-17-77-45 ECC E COSI VIA
INVIO UN FILE:

 

[adispo2000]

SCUSATE RAGAZZI, SICURAMENTE SARA' UNO SCRIPT FACILE....VEDIAMO SE MI SO' SPIEGARE;
PRIMA DI TUTTO MI VADO A CREARE UN FILE DI TESTO DOVE INSERISCO LE COLONNE 10ELOTTO IN ORDINE DI USCITA, E TRAMITE UNO SCRIPT..CHE SICURAMENTE SARETE CAPACI DI CREARE RICERCARE I NUMERI CHE ANCORA NON SONO USCITI NELLA PRIMA COLONNA (O POSIZIONE), NELLA SECONDA (O POSIZIONE) ECC......SEMPRE IN BASE AL FILE CHE VADO A CARICARE E POI RIPILOGARE PER POSIZIONE I NUMERI CHE RITARDANO O CHE NON SONO USCITI.
COME VEDETE DALFILE LA PRIMA COLONNA E 21-79-17--37 ECC, SECONDA 41-17-77-45 ECC E COSI VIA
INVIO UN FILE:

1 Photo
Last edited by adispo2000; 30-01-2018, 16:08.

 

[salvo50]

Non è alla mia portata, mi hai sopravvalutato.

Ciao

 

[adispo2000]

 

[Mike58]

Ciao Adispo, per ora non saprei come impostare il tutto, sicuramente da quello che capisco è fattibile, però dovresti fare un file di testo contenente i seguenti dati necessari per la lettura dei vari codici FT (File Testo)

tipo
1 = estrazione progressiva
2 = data separata da barra
3 = le colonne separate da un carattere "," "." "-"

esempio 1,10/01/2018,1,2,3,4,5,6,7,8,9,10 etc.
2,17/01/2018,21,34,55,66,77, etch

con questa situazione vedo cosa è possibile fare.

Ciao

 

[cos]

buonasera a chi mi legge stocercando un programma chiamato ciclometria 2.0.1 di antonio fiacco ormai non più in rete ce qualcuno che mi puo dare qualche informazione in meritp grazie a chi mi riosponde

 

[adispo2000]

scusa l'ho vuoi in exel oppure in testo?

 

[Mike58]

Seve come file di testo e con le caratteristiche che ho detto sopra, anche con poche righe (almeno un campione valido di 20 estraz per fare verifiche).

Anche se per ora non saprei l'impostazione da dargli ma solo facendo alcune prove possiamo vedere se raggiungiamo lo scopo.

Ciao

 

[adispo2000]

Ciao Mike..invio file che e' un po diverso da quello che tu mi hai richiesto...vedi se va' bene

23/2018.(01:55).31.gen.53.67.22.23.32.52.73.55.05.48.84.82.85.79.14.59.30.03.21.65
22/2018.(01:50).31.gen.15.64.36.38.90.02.32.04.18.03.57.34.30.09.82.01.37.06.61.68
21/2018.(01:45).31.gen.32.01.36.23.35.51.12.44.30.78.65.70.33.61.54.60.69.08.57.09
20/2018.(01:40).31.gen.01.76.34.86.74.48.42.82.35.71.66.70.90.38.89.72.45.10.44.46
19/2018.(01:35).31.gen.13.30.46.81.64.51.10.79.65.08.23.86.09.26.25.87.39.04.67.45
18/2018.(01:30).31.gen.64.03.84.87.59.37.20.18.08.09.01.06.45.50.53.33.46.02.38.14
17/2018.(01:25).31.gen.28.31.18.25.59.87.10.84.46.35.48.17.76.16.79.37.03.71.49.64
16/2018.(01:20).31.gen.74.43.08.41.77.71.09.22.19.65.16.46.44.32.23.29.82.40.84.21
15/2018.(01:15).31.gen.44.86.20.78.77.69.60.04.50.76.48.79.07.17.90.81.57.09.39.28
14/2018.(01:10).31.gen.29.06.55.03.54.05.67.27.13.33.64.07.78.08.68.46.85.21.58.25
13/2018.(01:05).31.gen.14.89.31.73.43.05.76.25.87.18.50.11.22.06.71.36.12.26.70.04
12/2018.(01:00).31.gen.08.71.37.80.32.49.58.60.31.59.74.23.77.72.03.35.54.64.12.43
11/2018.(00:55).31.gen.68.76.82.16.33.39.62.15.69.63.24.55.17.07.90.11.14.46.29.25
10/2018.(00:50).31.gen.65.53.47.48.56.01.14.37.42.63.35.41.28.81.76.74.60.13.15.84
09/2018.(00:45).31.gen.89.27.46.58.21.12.37.72.48.42.87.25.11.02.32.18.61.55.70.52
08/2018.(00:40).31.gen.40.65.08.37.19.01.25.36.31.34.46.89.42.21.74.52.54.81.41.30
07/2018.(00:35).31.gen.03.88.09.57.83.20.10.47.43.07.54.69.64.41.78.70.60.31.45.01
06/2018.(00:30).31.gen.77.88.41.01.89.70.10.68.46.35.04.38.06.32.42.25.40.87.73.19
05/2018.(00:25).31.gen.09.70.42.73.14.74.88.59.52.25.75.71.19.86.58.34.48.51.38.80
04/2018.(00:20).31.gen.72.24.31.20.06.11.16.67.79.75.33.09.32.53.29.52.69.81.10.25
03/2018.(00:15).31.gen.64.08.87.04.83.45.21.75.60.46.53.47.26.65.49.50.38.71.23.55
02/2018.(00:10).31.gen.52.79.25.57.69.86.71.54.51.10.43.45.38.16.34.76.05.22.77.29
01/2018.(00:05).31.gen.16.29.83.27.06.30.75.78.50.39.15.04.79.48.53.73.65.63.21.64

 

[Mike58]

Ciao Adispo, chiaro che così non andava bene, l'ho modificato ad oc con il formato necessario per la lettura dei codici FT.

ti allego il file di testo modificato

Poi invece dei numeri non usciti per posizione ti metto i numeri usciti cosi da valutare la scrittura script, poi se proprio ti interessano vediamo di immetterli ma la visione in tabella risulterebbe troppo lunga.

Intanto vediamo se siamo sulla strada giusta per continuare.

Sub Main
 Dim sFile
 Ini = 1'EstrazioniArchivio - 72
 fin = EstrazioniArchivioFT - 1
 fine = EstrazioniArchivioFT
 sFile = ScegliFile("C:\Mike58\Desktop\.txt")

 Call ApriBaseDatiFT(sFile,20,".",90)
 SetColorSezione(6)
 Scrivi "F R E Q U E N T I in Posizione 5Min",1,,,1,4,,1
 EndColorSezione
 'Scrivi "S U P E R . . . .  F R E Q U E N T I ",1,,,1,4,,1
 t = Array(t,"Ruota","Numeri","Q.tà","Verifica","Esito")
 Call InitTabella(t)
 'For r = 1 To 12
  'If r = 11 Then r = 12
  'ru(1) = r
  For p = 1 To 20
  For n = 1 To 90
   'For p = 1 To 5
   'a = Estratto(es,r,p)

   ReDim pos(p)
   pos(p) = True
   b = EstrattoFrequenzaFT(n,Ini,fin,pos)
   c = EstrattoRitardoFT(n,Ini,fin,pos)
   d = EstrattoStoricoFT(n,Ini,fin,pos)
   If b > 0 Then
    k = k + 1
    ReDim Preserve aNum(k)
    aNum(k) = n
    ReDim Preserve fre(k)
    fre(k) = b
    'ReDim Preserve rit(k)
    'rit(k) = c
    riga = riga & Format2(c) & " "
    rigast = rigast & Format2(d) & " "
   End If
   Next
  'Next
  Call VerificaEsitoFT(aNum,EstrazioniArchivioFT,1,1,esito,,es1)
  v = Array(v,"Pos "& p,StringaNumeri(aNum,,1),k,es1,esito)
  vv = Array(vv,"Freq",StringaNumeri(fre,,1),"-","--","--")

  vvv = Array(vvv,"Rit",riga,"-","--","--")
  vvs = Array(vvs,"Sto",rigast,"-","--","--")
  vuoto = Array(vuoto,"","","","","","")
  Call AddRigaTabella(v)
  Call AddRigaTabella(vv,,,,1)
  Call AddRigaTabella(vvv,,,,2)
  Call AddRigaTabella(vvs,,,,7)
  Call AddRigaTabella(vuoto,3,,1)
  'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(aNum,,1) & vbTab & k
  k = 0
  riga = ""
  rigast = ""
      Next
 CreaTabella
End Sub