aiuto per script o foglio txt

[arcor]

buongiorno a tutti vi dico quello che mi servirebbe.vorrei mettere su un foglio txt gli ultimi almeno 300 concorsi di ogni singola ruota in verticale partendo dall'alto in basso dove in basso avremo modo di inserire man mano le estrazioni successive.per ogni foglio solo una ruota.ecco come dovrebbe essere.non so se si possa ottenere questo con uno script
bari
45
56
5
21
33
11
78
66
51
80
e via di questo passo inserendo le ultime 300 estrazioni.tramite il file in txt poi lo inserisco in un programmino per la rula che legge l'archivio in txt.
grazie
saluti (mauro)

 

[Membro cancellato 16574]

Buongiorno,
Provi questo listato .

Option Explicit
Sub Main
    Dim r
    r = ScegliRuota
    Dim Ini,fin,es
    Ini = EstrazioneFin - 300
    fin = EstrazioneFin
    Call Scrivi(SiglaRuota(r),01,True)
    For es = Ini To fin
        Dim e1,e2,e3,e4,e5
        e1 = Estratto(es,r,01)
        e2 = Estratto(es,r,02)
        e3 = Estratto(es,r,03)
        e4 = Estratto(es,r,04)
        e5 = Estratto(es,r,05)
        Call Scrivi(Format2(e1),01,True)
        Call Scrivi(Format2(e2),01,True)
        Call Scrivi(Format2(e3),01,True)
        Call Scrivi(Format2(e4),01,True)
        Call Scrivi(Format2(e5),01,True)
    Next
End Sub

Controllare Sempre.
Salvo Errori ed Omissis .

 

[arcor]

grazie mille magia funziona perfettamente era quello che volevo.ciao