Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Mentre cerco la soluzione...

lotto_tom75

Advanced Premium Member
Codice:
If FileEsistente(matricenumericacreata) Then
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(matricenumericacreata,aRighe)
 
End If
    
Call Scrivi ("arighe: " & StringaNumeri(aRighe))

Questo mi legge correttamente tutto il file txt formato da N righe dinamiche di N classe dinamica ma mi legge tutti i dati uno accanto all'altro separati dal carattere separatore deciso (es "."). Io dovrei leggerli in base alla classe di ciascuna riga es. 9ine, 10ine ecc... e metterli ognuno in un rispettivo vettore dinamico...

Es.

matricedinamicacreata.txt contiene

1.2.3.4.5.6.7.8.9.10
11.12.13.14.15.16.17.18
19.20.21.22.23.24.25.26.27

...

io dovrei poterlo leggere
e creare nel contempo i relativi tre vettori dinamici

raccoltanumeri(1) = array(0,1,2,3,4,5,6,7,8,9,10)
raccoltanumeri(2) = array(0,11,12,13,14,15,16,17,18)
raccoltanumeri(3) = array(0,19,20,21,22,23,24,25,26,27)

....


:unsure:

👋🙂
 

lotto_tom75

Advanced Premium Member
Codice:
If FileEsistente(matricenumericacreata) Then
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(matricenumericacreata,aRighe)

End If
   
Call Scrivi ("arighe: " & StringaNumeri(aRighe))

Questo mi legge correttamente tutto il file txt formato da N righe dinamiche di N classe dinamica ma mi legge tutti i dati uno accanto all'altro separati dal carattere separatore deciso (es "."). Io dovrei leggerli in base alla classe di ciascuna riga es. 9ine, 10ine ecc... e metterli ognuno in un rispettivo vettore dinamico...

Es.

matricedinamicacreata.txt contiene

1.2.3.4.5.6.7.8.9.10
11.12.13.14.15.16.17.18
19.20.21.22.23.24.25.26.27

...

io dovrei poterlo leggere
e creare nel contempo i relativi tre vettori dinamici

raccoltanumeri(1) = array(0,1,2,3,4,5,6,7,8,9,10)
raccoltanumeri(2) = array(0,11,12,13,14,15,16,17,18)
raccoltanumeri(3) = array(0,19,20,21,22,23,24,25,26,27)

....


:unsure:

👋🙂

Forse la soluzione is:

Codice:
For w = 0 To UBound(aRighe)
Scrivi "r:" & aRighe(w)
Next

In quanto la funzione leggirighefileditesto legge appunto già ogni singola riga presente in un txt separata da carattere a capo...

Adesso non mi resta che splittare ogni riga in vettori dinamici relativi...

:unsure:
 

lotto_tom75

Advanced Premium Member
Forse la soluzione is:

Codice:
For w = 0 To UBound(aRighe)
Scrivi "r:" & aRighe(w)
Next

In quanto la funzione leggirighefileditesto legge appunto già ogni singola riga presente in un txt separata da carattere a capo...

Adesso non mi resta che splittare ogni riga in vettori dinamici relativi...

:unsure:

Così ;)

Codice:
ReDim raccoltanumeri(UBound(aRighe))

For w = 0 To UBound(aRighe)
Scrivi "r:" & aRighe(w)

Call SplitByChar(aRighe(w),".",raccoltanumeri(w))

Next

Done! ✅ 💪👌👍🤙👋:LOL:
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto