lotto_tom75
Advanced Premium Member
Script n. 8 ordina in modo crescente da sx a dx qualsiasi formazione numerica presente in un file txt by me
nb: gli elementi delle formazioni che si desidera ordinare da sx a dx in ordine crescente devono essere necessariamente separati dal carattere punto (.)
Aggiungo che chiunque volesse contribuire ad allargare questa sezione (thread) con il suo know how riguardo script suoi o di terzi rispettando i punti a inizio thread può farlo a patto che segua possibilmente questa struttura ordinata di condivisione sotto riportata:
Script n. progressivo rispetto al precedente postato... (in grassetto) x (lotto, superenalotto, milion day o altro... es. utility for all) by scripter che lo ha realizzato (se lo si conosce ovviamente).
Poi il codice script relativo necessariamente incluso tra i rispettivi TAG code e /code rispettivamente tra parentesi quadre.
In alternativa al riportare il code tra i rispettivi tag, si può anche linkare il relativo post dove lo script che si intende condividere è presente.
Infine una breve spiegazione su cosa faccia.. e magari come lo si possa personalizzare per le proprie eventuali esigenze.
Codice:
Option Explicit
Sub Main
'tom's bakery script n.8 x ordinare qualsiasi gruppo di formazioni numeriche in ordine crescente da sx a dx nb:gli elementi delle formazioni devono essere necessariamente separati dal carattere punto (.)
ReDim aRighebase(0)
ReDim aNumbase(0)
Dim b
Dim filedaleggere
Dim fileconelementidirigaordinati
fileconelementidirigaordinati = ".\fileconelementidirigaordinati.txt"
If FileEsistente(fileconelementidirigaordinati) Then
Call EliminaFile(fileconelementidirigaordinati)
End If
filedaleggere = ScegliFile(".\",".txt","filedaleggere")
Call LeggiRigheFileDiTesto(filedaleggere,aRighebase)
For b = 0 To UBound(aRighebase)
If aRighebase(b) <> "" Then
Dim Stringa5
If InStr(aRighebase(b)," ") Then
Stringa5 = Replace(aRighebase(b)," ","")
End If
If InStr(aRighebase(b)," ") Then
Stringa5 = Replace(aRighebase(b)," ","")
End If
Call LTrim(aRighebase(b))
Dim tmp
tmp = Trim(aRighebase(b))
Dim matrimfunzionaono
matrimfunzionaono = " prova rimozione spazi iniziali e finali "
Call Trim(matrimfunzionaono)
Call SplitByChar(aRighebase(b) & ".|"," ",aNumbase)
Dim vettoreinteri,QNS
Dim aNumbasestringa
aNumbasestringa = StringaNumeri(aNumbase)
Dim lenght2
Dim captured_string
Dim captured_string2
captured_string = aNumbasestringa
lenght2 = Len(captured_string)
Dim Stringa3,Stringa4
If InStr(captured_string,".|") Then
Stringa3 = Replace(captured_string,".|","")
End If
If InStr(captured_string,"..|") Then
Stringa3 = Replace(captured_string,"..|","")
End If
Dim vettorenumeripulitodaipunti
Call SplitByChar(Stringa3,".",vettorenumeripulitodaipunti)
aNumbasestringa = StringaNumeri(vettorenumeripulitodaipunti)
Call Get_aNum(aNumbasestringa,vettoreinteri,QNS)
Call Messaggio(StringaNumeri(vettoreinteri))
Call OrdinaMatriceTurbo(vettoreinteri,1)
Scrivi StringaNumeri(vettoreinteri)
ScriviFile fileconelementidirigaordinati,StringaNumeri(vettoreinteri)
Call CloseFileHandle(fileconelementidirigaordinati)
End If
Call AvanzamentoElab(1,UBound(aRighebase),b)
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Fatto in Tt " & TempoTrascorso
Scrivi
End Sub
Function Get_aNum(anumbasestringa,vettoreinteri,QNS)
Dim i
Dim aTemp:aTemp = Split("." & anumbasestringa,".")
QNS = UBound(aTemp)
ReDim vettoreinteri(QNS)
For i = 0 To QNS
vettoreinteri(i) =(aTemp(i))
Next
Call OrdinaMatriceTurbo(vettoreinteri,1)
End Functionnb: gli elementi delle formazioni che si desidera ordinare da sx a dx in ordine crescente devono essere necessariamente separati dal carattere punto (.)
Aggiungo che chiunque volesse contribuire ad allargare questa sezione (thread) con il suo know how riguardo script suoi o di terzi rispettando i punti a inizio thread può farlo a patto che segua possibilmente questa struttura ordinata di condivisione sotto riportata:
Script n. progressivo rispetto al precedente postato... (in grassetto) x (lotto, superenalotto, milion day o altro... es. utility for all) by scripter che lo ha realizzato (se lo si conosce ovviamente).
Poi il codice script relativo necessariamente incluso tra i rispettivi TAG code e /code rispettivamente tra parentesi quadre.
In alternativa al riportare il code tra i rispettivi tag, si può anche linkare il relativo post dove lo script che si intende condividere è presente.
Infine una breve spiegazione su cosa faccia.. e magari come lo si possa personalizzare per le proprie eventuali esigenze.
Ultima modifica:
In base al pubblico è possibile volendo anche tradurla in run time in quasi tutte le lingue 
Ad ogni modo indipendentemente dal nome iniziale "pippo, pluto e paperino..." puoi caricare qualsiasi file txt tu ritenga + adatto per le tue analisi superena 
