sul file ho tolto il nr.estraz.e la data estraz.
tra i 5 numeri di una ruota e l'altra successiva ci sono 2 spazi
tra i 5 numeri ci sono naturalmente 4 punti
c'è la nazionale
l'ultima estraz.più recente è la prima in alto, la più vecchia è in fondo al file
c'è la cancellazione del file prima di iniziare a crearne uno nuovo
------------------------------
l'output a video prodotto dallo script, invece
c'è bisogno del nr.estraz. oltre ai numeri perché serve come caricamento della arrays per ordinare le estrazioni dalla più recente a quelle
più vecchie.
questo output, se da fastidio, si può remmare la riga di stampa a video Scrivi estrazione(dal,1) & " " & records, basta mettere un
apice prima della parola scrivi
prova a controllare
[codice]
Option Explicit
Sub Main
''''''''''crea da spaziometria archivio lotto su file txt, e stampa a video
''''''''''che a sua volta può essere copia "EdesimoneArchivioLotto"
Dim dal,al,filename,records,riga,r,n,dataEstr,y
Dim estrazione(99999,2)
dal = InputBox("Dall'estrazione n.",,3949)
al = InputBox("All'estrazione n.",,EstrazioneFin)
filename = "C:\temp\ArchivioLotto.txt"
Call EliminaFile(filename)
records = riga
''''''''''''''''''''''''''''''''''''''''''''''
For dal = dal + 1 To al
records = "" : riga = ""
Messaggio("Elaboro estraz.n. " & dal)
ReDim MatriceEstrRitorno(55)
Call GetEstrazioneCompleta(dal,MatriceEstrRitorno)
For r = 1 To 11
For n = 1 To 5
riga = riga & Format2(MatriceEstrRitorno(r,n))
If n <= 4 Then riga = riga & "."
Next
If r < 11 Then riga = riga & " "
Next
records = riga
estrazione(dal,1) = dal
estrazione(dal,2) = records
Scrivi estrazione(dal,1) & " " & records
Next
'''''''scrivi file ordinamento l'ultima estrazione sarà la prima in alto, la più vecchia è in fondo
Call OrdinaMatrice(estrazione,- 1,1)
For y = 1 To al
records = ""
If estrazione(y,1) > 0 Then
records = records & estrazione(y,2)
Call ScriviFile(filename,records)
End If
Next
End Sub
[/codice]