Dividere StringaNumeri

[genios]

E' possibile dividere la stringa o la lunghetta della variabile L in decine e cadenze .

Option Explicit
Sub Main
   'Classi di Presenza 78. Per Eugenio V.2.0. Script By Joe.
   Dim Ini,Fin,Q
   Dim CdP,P,R,K,N,Es,E,X
   R = MI_ 'Ruota
   CdP = 5 'Presenze
   Fin = EstrazioneFin 'Ultima Estrazione Considerata
   Q = 78 'Quantità Estrazioni
   Ini = Fin + 1 - Q 'Calcolo Inizio Periodo
   'Formazione della CdP


      For N = 1 To 90
         If EstrattoFrequenzaTurbo(R,N,Ini,Fin) = CdP Then
            K = K + 1
            ReDim Preserve L(K) 'Lunghetta
            L(K) = N
         End If
      Next
      'Rendiconto Risultati
      Scrivi
      Scrivi "ultima estrazione di rilevamento " & " " & Fin & " " & "del" & " " & DataEstrazione(Fin)
      Scrivi
      Scrivi "per valori di presenze uguali a" & " " & CdP & " " & " su 78 estrazioni "
      ColoreTesto 2
      Scrivi
      Scrivi NomeRuota(R) & " ",True,False
      Scrivi StringaNumeri(L,,True),True
      Scrivi
      ColoreTesto 0


End Sub

esempio :
Variabile L Milano 06.08.09.14.22.29.35.37.41.43.63.65.73.75.81.82.87
Decina 0 = 06 08 09
Decina 1 = 14
Decina 2 = 22 29
Decina 3 = 35 37
Decina 4 = 41 43
Decina 5 =
Decina 6 = 63 65
Decina 7 = 73 75
Decina 8 =81 82 87

Cadenza 0 =
Cadenza 1 = 41 81
Cadenza 2 = 22 82
Cadenza 3 = 43 63 73
Cadenza 4 = 14
Cadenza 5 = 35 75
Cadenza 6 = 06
Cadenza 7 = 37 87
Cadenza 8 = 08
Cadenza 9 = 09 29

 

[i legend]

Ciao Eugenio
a primo vista bisogna fare due cicli
fai un ciclo per la decina esterno ed uno interno per l array che contiene i frequenti.
se il frequente appartiene alla decina costruisci la stringa.
Fai una prova . Ciao

 

[joe]

BuonGiorno e Buon Anno a tutte/i.

E' giusto quello che scrive Ilegend,

anche se, secondo me, forse era meglio

impostare lo script esattamente al contrario.

Cioè prima avere, i numeri organizzati in Decine e Cadenze

e poi ... il riepilogo in lunghetta.

Comunque sia ... basta aggiungere le due coppie di cicli:

  For D = 0 To 8
    Scrivi "Decina " & D & " = ",0,0
    For K = 1 To UBound(L)
      If Decina(L(K)) = D Then Scrivi Format2(L(K)) & Space(1),0,0
    Next
    Scrivi
  Next
  Scrivi
   For C = 0 To 9
    Scrivi "Cadenza " & C & " = ",0,0
    For K = 1 To UBound(L)
      If Cadenza(L(K)) = C Then Scrivi Format2(L(K)) & Space(1),0,0
    Next
    Scrivi
  Next

In fondo allo script, subito prima di "End Sub"

Essendo presente Option Explicit, nelle prime linee di comando,

è anche necessario dimensionare le variabili C e D:

Dim C,D

per poterle utilizzare, come riferimento per le cadenze e le decine.

Così modificato, lo script, presenterà 2 tabelle identiche a quelle proposte da Eugenio.

 

[genios]

Grazie Joe . Grazie Ilegend.