Sempre a chiede..scusate (xMike e tutti i scripter)

[adispo2000]

Ciao come al solito sto' sempre a chiedere....scusatemi sempre del disturbo....sempre se' e possibile e fattibile creare uno script per filtrare dei file colonnali .txt , per vedere il rendimento di riduzione potendo utilizzare queste opzioni:
1- poter filtrare il file considerando la somma dei primi numeretti che formano una lunghezza tipo sestina 04-12-25-32-82-83 somma 0+1+2+3+8+8=somma 22 oppure;
2- poter filtrare il file considerando la somma dei secondi numeretti che formano una lunghezza tipo sestina 04-12-25-32-82-83 somma 4+2+5+2+2+3=somma 18 oppure;
3 - poter filtrare il file considerando la somma dei primi numeretti + secondi numeretti quindi 22+18=40.
quindi potendo scegliere tra le tre opzioni inserire il comnado min e max somma, non so' se sono stato chiaro...e grazie di tutto

 

[Mike58]

Ciao Adispo, penso sia possibile fare uno script in quel senso (appena posso).
Solo c'è da capire che tipo di file (txt) utilizzi , se solo colonne (tipo 11.22.33.44.55) o archivio, e se le condizioni che hai citato sono di tipo OR o AND.

Ciao dopo chiarimento appena posso vedrò il da farsi.

Mike

 

[adispo2000]

archivio tipo
01 02 03 04 05
01 02 06 07 08
01 02 09 10 11
01 02 12 13 14
01 02 15 16 17
cond and

 

[Mike58]

Ciao adispo,prova cosi, con uno script rigido con Lunghetta pari a 5.

P.s. devo scappare ci leggiamo domani.

Sub Main
   Dim Nu,dec,cad,sm
   Dim File
   '--------- Valori Min & Max----------------
   sommaDecMin = 10
   SommaDecMax = 40
   SommaCadMin = 15
   SommaCadMax = 50
   SommaTotMin = 25
   SommaTotMax = 90
   Scrivi "SommaDecine.... Min-Max : " & SommaDecMin & "-" & SommaDecMax
   Scrivi "SommaCadenza... Min-Max : " & sommaCadMin & "-" & SommaCadMax
   Scrivi "SommaTotali.... Min-Max : " & sommaTotMin & "-" & SommaTotMax
   Scrivi
   '------------------------------------------
   '.......................................................
   File = "C:\Users\Mike58\Desktop\adispo.txt" 'Immettere proprio percorso File
   '.......................................................
   Scrivi "   Colonne" & Space(9) & "SD" & Space(3) & "SC" & Space(6) & "ST",1
   Scrivi String(40,"=")
   ReDim Lunghetta(0)
   Call LeggiRigheFileDiTesto(File,Lunghetta)
   For k = 0 To UBound(Lunghetta)
      If Lunghetta(k) <> "" Then
         Nu = Split(Lunghetta(k),".")
         dec = Decina(Nu(0)) + Decina(Nu(1)) + Decina(Nu(2)) + Decina(Nu(3)) + Decina(Nu(4))
         cad = Cadenza(Nu(0)) + Cadenza(Nu(1)) + Cadenza(Nu(3)) + Cadenza(Nu(4))
         sm = dec + cad
         'Scrivi "A(" & K + 1 & ") = """ & Trim(StringaNumeri(Nu,,True)) & """"
         If dec >= sommaDecMin And dec <= SommaDecMax And cad >= SommaCadMin And cad <= SommaCadMax And sm >= SommaTotMin And sm <= SommaTotMax Then
            kk = kk + 1
            Scrivi StringaNumeri(Nu) & vbTab & " - "  &(dec) & vbTab & cad & vbTab & sm
         End If
      End If
   Next
   Scrivi String(40,"=")
   Scrivi
   Scrivi "Analizzate N. Lunghette..... " & k
   Scrivi "Trovate    N. Lunghette..... " & kk,1
End Sub