PROGRAMMA SPAZIOMETRIA

[Duplex]

Intervengo senza nulla togliere agli scripter che sono bravi e disponibili quando possono. Ma io, non sapendo nulla di programmazione (manco in Qbasic del Commodore 128 e successivamente VB anche comprando un libro che insegnava il VB6) mi sono rivolto alla I.A. Un esempio: Avevo chiesto agli scripter un listato che trovasse un ambo uguale, anche non isotopo in cui uno dei 2 elementi avesse un'altra sortita su un'altra ruota. Una tecnica della Signora in Rosso, ovvero Elisabetta Masi che gli scripter hanno sorvolato. Ho tirato in ballo COPILOT AI con i parametri che volevo e a furia di fischi e pernacchi, ho avuto il listato per SPMT. E non solo questo, ne ho fatto modificare anche altri e altri da correggere. A volte non bisogna sovraccaricare gli scripter di lavoro, anche loro hanno una vita con annessi e connessi e si può prendere uno script e tentare di modificarlo a piacimento o correggerlo per una istruzione non valida. Non sempre riesce,ma tentar non nuoce...... e senza offesa per nessuno!

 

[maumau]

Geronimo,

prova con quest' altro script:

'https://forum.lottoced.com/threads/aggiornamento-archivio-lotto-e-superenalotto-per-spaziometria-da-spazio-web-silop.2201398/post-2526199


Option Explicit
Sub Main
   'Agg_Silop V.3.3 del 6/05/2023
   'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Script By Joe"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Ia = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 1 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               If b Then
                  If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
                  If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then
                     Ia = Ia + 1
                     nNumEstr =(Ia)
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> Left(sDataEstr,5) Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = Left(sDataEstr,5)
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
      Call Scrivi("")
      Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
   Call Scrivi("Tempo Trascorso " & TempoTrascorso)

End Sub

Grazie Joe, ho aggiornato 3 anni di archivio