lotto_tom75
Advanced Premium Member
Codice:
Step2 = ".\step2.txt"
fileStep3 = ".\step3.txt"
If FileEsistente(Step2) Then
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(Step2,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
Dim vettorenumeristep2pulitodaipunti
Call SplitByChar(aRighe(k),".",vettorenumeristep2pulitodaipunti)
Scrivi
Scrivi "<font color=red size=3> verifica vettore base analizzato x fq max x T su NZ |" & StringaNumeri(vettorenumeristep2pulitodaipunti) & "|</font>"
Scrivi
e...
Codice:
Call ScegliNumeri(vettorenumeristep2pulitodaipunti)
Perchè gli stessi identici elementi (verificati) di vettorenumeristep2pulitodaipunti se presi da file txt mi danno un risultato... mentre se li immetto da tabella numeri me ne danno un altro...? Cercando di automatizzarne l'immissione nel flusso dello script appunto senza doverli immettere manualmente da tabella, sto diventando matto..., più di quanto non lo sia già...
ps: i numeri dell'esempio prelevati da file step2.txt o immessi da tabella sono 49 e sono questi:
5.6.7.10.11.19.21.22.23.25.28.31.32.33.35.36.37.38.39.42.43.45.47.49.50.51.52.53.54.56.57.58.60.62.64.69.72.73.74.75.77.78.80.81.85.86.87.89.90
nel primo caso come 48ina con fq max x T su NZ partendo dai 49 presi da file txt mi esce questa formazione errata:
06.07.10.11.19.21.22.23.25.28.31.32.33.35.36.37.38.39.42.43.45.47.49.50.51.52.53.54.56.57.58.60.62.64.69.72.73.74.75.77.78.80.81.85.86.87.89.90 FQ 3909 < VALORE ERRATO
nel secondo caso come 48ina con fq max x T su NZ partendo dai soli 49 immessi da tabella mi esce quest'altra formazione corretta:
5.6.7.10.11.19.21.22.23.25.28.31.32.33.35.36.37.38.39.42.43.45.47.49.50.51.52.53.54.56.57.58.60.62.64.69.72.73.74.75.77.78.80.81.85.86.89.90 - FQ 4002 - RA 1 - RS 9 - 8 - INCMAX 0 - contatore 1 < VALORE CORRETTO
ho notato che le due righe si differenziano per due soli elementi ovvero per i valori 5 e 87
Grazie