Sto diventando matto per due piccolissime ottimizzazioni a questo mio piccolo script

[lotto_tom75]

Option Explicit
		Sub Main
		
		
		Dim k,y
		Dim Classe
		Dim aCol
		ReDim aNum(90)
		Dim i
		Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
		Dim ColTot
		
		
		
		'By Lotto_tom75 - Rilevatore sulle ruote separate volute di parametri voluti per qualsiasi sorte per qualsiasi classe presente nel txt importato
		
		
		
		'ReDim aNum(0)
		'QuantitaNumeriScelti = ScegliNumeri(aNum)
		
		Dim sfile
		
		
		sfile = ScegliFile("c:\lunghette",".txt","lunghette.txt")
		
		
			ReDim aRuoteSel(12)
			RuoteSelezionate = ScegliRuote(aRuoteSel)
			
			Call Scrivi(" ---------------------------------------------------------------- ")
			Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
			Call Scrivi(" ---------------------------------------------------------------- ")
		
		
			For k = 1 To RuoteSelezionate
				Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
				
			Next
		
		
		Scrivi
		
		Scrivi
		
		
		
		Dim contatore
		
		Call Messaggio("Lettura file di testo")
		ReDim aRighe(0)
		Call LeggiRigheFileDiTesto(sfile,aRighe)
		
		For y = 0 To UBound(aRighe)
		If aRighe(y) <> "" Then
		ReDim aNum(0)
		
		
		Call SplitByChar("." & aRighe(y),".",aNum)
		contatore = contatore + 1
		
		
		
		
		nSorte = 1
		
		
		
		
		ReDim aRuoteTmp(1)
		
		
		For k = 1 To RuoteSelezionate
				
			aRuoteTmp(1) = aRuoteSel(k)
			
		Call StatisticaFormazioneTurbo(aNum,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
				
		Dim Diff
		
		Diff = RetRitMax - RetRit1
			
		If(RetRit1 >= 0) Then' And RetIncrRitMax = 0) Then
			
		Call Scrivi(StringaNumeri(aNum) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff)
			
		End If
		
		
		
		Dim x
		
		'If x Mod 100 = 0 Then
		'Call Messaggio("Colonna : " & x)
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(0,UBound(aRighe),1)
		'End If
		
		
		
		Next
		
		End If
		Next
		
		'Loop
		'End If
		End Sub

Lo script a livello pratico non da errori e funziona regolarmente... solo che non riesco a collegare... la barra dell'avanzamento elaborazione e non riesco a togliere il carattere punto, che appare davanti ad ogni lunghetta importata e analizzata, nel report in output finale

 

[lotto_tom75]

Dunque il problema della barra l'ho risolto!

Call Scrivi (StringaNumeri(aNum) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff)
			
		End If
		
		Call AvanzamentoElab(0,UBound(aRighe),contatore)
		
		Dim x
		
		'If x Mod 100 = 0 Then
		
		'Call Messaggio("Colonna : " & x)
		
		If ScriptInterrotto Then Exit For
		
		'Call AvanzamentoElab(0,UBound(aRighe),1)
		
		'End If

Resta di rimuovere il punto all'inzio di ogni formazione nel report finale

 

[LuigiB]

Caio Tom , il tuo problema non 'ho ancora visto però intervengo per dirti che l'indentatura del codice dimostra la chiarezza delle idee del programmatore, infatti molti pensano che l'indentatura sia un fattore di bellezza che si ottiene premendo quel bel pulsantino apposito
invece mano mano che si scrive il codice le righe vanno indentate a mano ... il pulsantino è solo un aiuto che viene alla fine.