adispo2000
Super Member >PLATINUM<
Ciao a tutti posso chiedervi un aiuto per creare uno script..solo per analisi?
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.
Ciao ragazzi forse non sono stato chiaro
volevo sapere se si puo' fare uno script dove poter analizzare un archivio ( super, lotto ecc), dove analizzare all'uscita di un estrazione in quali colonne si sono realizzati x punti , quindi per esempio in un archivio suoerenalotto in quale posizione si trovano le colonne che hanno realizzato x punti (partendo da 0 oppure un punto ecc) , oppure controllare l'archivio con un range che so' le ultime 10 estrazioni e il script andra' a ritroso ad analizzare l'archivio in che posizione si trovavano le colonne che avrebbero realizzato x punti...e fare una statistica delle posizioni delle colonne che hanno soddisfatto i nostri requistiti....non so
Grazie e scusa Claudio per il ritardo ma questo Covid..mi sta' sconvolgendo la vita, comunque un esempio puo'essere questo:Fai un esempio ampio e chiaro di quanto ricerchi.
Solo così, chi vorra aiutarti lo potrà fare.
Saluti
Scusa Gcarlo, scusami per il ritardo a risponderti...comunque quello che volevo analizzare e con quale frequenza e quali colonne in modo lessicografico escono con un determinato punteggio, per esempio se io vado ad analizzare l'archivio con l'ultima colonna uscita del superenalotto cercando le colonne che hanno realizzato zero punti, lo script dovra indicare tutte le righe interessate con zero punti...tipo inserisco l'ultima colonna es:1-2-3-4-5-6 chiedo tutte le righe con zero punti..e ci ristituisce riga 12..36..128..250..ecc....prova questo , e' per il super
Codice:Option Explicit Sub Main() Dim sFile : sFile = ScegliFile(GetDirectoryAppData,".txt") Dim fine,Tot : fine = EstrazioniArchivioSE : Tot = EstrazioniArchivioSE Call Scrivi("Ultima estrazione in archivio SuperEnalotto " & _ GetInfoEstrazioneSE(fine) & " : " & StringaEstrattiSE(fine),01) Call Scrivi() : Call Messaggio("Lettura file di testo") Dim aTitoli : aTitoli = Array(aTitoli,"N°","COLONNA","PUNTI") Call InitTabella(aTitoli,01,,03,05) ReDim aRighe(000) : Call LeggiRigheFileDiTesto(sFile,aRighe) : Dim k For k = 001 To UBound(aRighe) If aRighe(k) <> "" Then ReDim aNum(20) : Call SplitByChar("." & aRighe(k),".",aNum) Dim Sorte,SF : Sorte = AMBATA_ : SF = SerieFreqSE(fine,fine,aNum,Sorte) Dim aValori : aValori = Array(aValori,FormattaStringa(k,"000"),aRighe(k),SF) End If Call AvanzamentoElab(000,UBound(aRighe),k) Call Messaggio("Lettura Colonna : " & FormattaStringa(k,"000")) Call AddRigaTabella(aValori,,,03) Next Call Messaggio("Creazione Tabella") : Call SetTableWidth("100%") Call CreaTabellaOrdinabile() End Sub
Allora colonne se tu vedi l'immagine postata vedi che facendo lo spoglio e ricercando lo zero..abbiamo la colonna 1, la colonna 2, colonna 3 non perche ha realizzato 1 punto, colonna 4 si realizato 0 punti come la 1 e la 2, ecc......buonasera .
cosa intendi per riga o linea , intendi l' estrazione
puoi fare un esempio pratico ,