Comando per impartire lo start del fulmine via code...

[lotto_tom75]

Option Explicit
Sub Main
 
  Dim sRiga , x , aNumeri
 
  sRiga = "0.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.28.29.30"
 
  Call SplitByChar(sRiga ,"." , aNumeri )
 
  x = UBound (aNumeri)
  Do
     Call Scrivi (StringaNumeri( aNumeri ))
     aNumeri (x) = 0
     x = x -1
  Loop While x >= 5
 
End Sub

Grandissimo come sempre Maestro Shifu
Ad ogni modo io non ci sarei arrivato nemmeno domani...


Option Explicit
Sub Main

...

aNumeri (x) = 0

...

End Sub

Ancora adesso non so cosa significhi... quell'unica riga che mi mancava...

Ok claudio8... grazie del pensiero.,.. quando si tratta di sono sempre disponibile...

 

[LuigiB]

Vai Luigi,
il ramoscello di ciliegio lo teni a portata di mano? nel caso lo avessi lasciato a casa ti passo il mio .
Stavolta si merita un 4 - - ed un lavoro meno cervellotico che lo ripaghi dell'impegno allo studio.
Ciao Tom

mi dispiace per lotto tom ci vuole il martello di thor ...