Novità

Come calcolare la lunghezza di un array dinamico in spaziometria?

lotto_tom75

lotto_tom75

Advanced Premium Member
Ho ad esempio

redim PIPPO(0)

che mi carica tot valori

se lo voglio usare in un for del tipo:

dim i

for i to LUNGHEZZA DI PIPPO

come posso "tradurre LUNGHEZZA DI PIPPO"

affinche il for funzioni ?


:)

Grazie a tutti/e

Ps: Ho cercato, cercato ma non trovato :( nemmeno nella guida interna... :rolleyes:
 
Ultima modifica:
anche per questa domanda hai 3 minuti di tempo per trovare la risposta .... upper bound ti dice qualcosa ?
 
LuigiB ha scritto:
anche per questa domanda hai 3 minuti di tempo per trovare la risposta .... upper bound ti dice qualcosa ?
Clicca per espandere...


In mathematics, especially in order theory, an upper bound of a subset S of some partially ordered set (K, ≤) is an element of K which is greater than or equal to every element of S.[1] The term lower bound is defined dually as an element of K which is less than or equal to every element of S. A set with an upper bound is said to be bounded from above by that bound, a set with a lower bound is said to be bounded from below by that bound. The terms bounded above (bounded below) are also used in the mathematical literature for sets that have upper (respectively lower) bounds.

Ma purtroppo non so che farci... :( :rolleyes: Tanto avevo sforato anche i 3 min... :p
 
Ultima modifica:
invece di scomodare wikipedia apri uno script a caso ..e troverai la soluzione ...a limite invece di wikipedia c'era tanto bella la guida di vb script ..non quella di spazioscript .. intendo vbscript microsoft ..
 
Ultima modifica di un moderatore:
LuigiB ha scritto:
invece di scomodare wikipedia apri uno script a caso ..e troverai la soluzione ...a limite invece di wikipedia c'era tanto bella la guida di vb script ..non quella di spazioscript .. intendo vbscript microsoft ..
Clicca per espandere...

Master ce l'ho quasi fatta!!! Mi manca solo questa "ciliegina Upper Bound o come diavolo si chiama!" :D

Guarda... (per adesso in sostanza devo mettere manualmente i limiti dei files presenti nella directory d'interesse...) ma lo script carica e analizza in automatico tutto quanto... :)

Codice: 
Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq

'sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")
'Inizio = 1
'Fine = 8647

Dim sdir

sdir = ScegliDirectory()

ReDim aRetFiles(0)


'***************
'c'è un 'istruzione negli script , si chiama ElencoFileInDirectory (o qualcosa di simile)
'la lanci ti torna un array con i file trovati , i file trovati li gestisci con un ciclo.
'ciao
'***************

Dim sExt

sExt = ".txt"

Call ElencoFileInDirectory(sdir,aRetFiles,sExt)

Dim z

For z = 1 To 2 '<- per adesso questo lo devo cambiare manualmente... in base a quanti sono i files che mi interessa analizzare...



'Scrivi "file" & z & " " & aRetFiles(z)


Dim fileintero

fileintero = aRetFiles(z)&".txt"

sFile=fileintero

Call Scrivi (                                              )
Call Scrivi (                                              )


Call Scrivi ("ANALISI FILE: " & sFile)

Call Scrivi (                                              )
Call Scrivi (                                              )

'Next


ReDim aRuote(10)
aRuote(1) = BA_
aRuote(2) = CA_
aRuote(3) = FI_
aRuote(4) = GE_
aRuote(5) = MI_
aRuote(6) = NA_
aRuote(7) = PA_
aRuote(8) = RO_
aRuote(9) = TO_
aRuote(10) = VE_
'aRuote(1) = NZ_



nSorte = 1
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)
Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
'Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine)

RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)

Dim Diff
Diff = RetRitMax - RetRit

'If(RetRit >= 0) Then

'If(RetIncrRitMax > 0) Then

'If(Diff < 2 And RetIncrRitMax > 0) Then
If(Diff < 90 And RetIncrRitMax >= 0) Then

Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff)
End If
End If
If k Mod 100 = 0 Then
Call Messaggio("Colonna : " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(0,UBound(aRighe),k)
End If
Next
Next
End Sub

Però la ciliegina... è indispensabile... ora provo a cercare... sto Upper Bound... :p ma un Size (array) o qualcosa del genere non è praticabile? Penso proprio di no visto che non mi s'ingrassetta... nulla a scrivere per tentativi in tal senso... ;)
 
lotto_tom75 ha scritto:
Master ce l'ho quasi fatta!!! Mi manca solo questa "ciliegina Upper Bound o come diavolo si chiama!" :D

Guarda... (per adesso in sostanza devo mettere manualmente i limiti dei files presenti nella directory d'interesse...) ma lo script carica e analizza in automatico tutto quanto... :)

Codice: 
Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq

'sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")
'Inizio = 1
'Fine = 8647

Dim sdir

sdir = ScegliDirectory()

ReDim aRetFiles(0)


'***************
'c'è un 'istruzione negli script , si chiama ElencoFileInDirectory (o qualcosa di simile)
'la lanci ti torna un array con i file trovati , i file trovati li gestisci con un ciclo.
'ciao
'***************

Dim sExt

sExt = ".txt"

Call ElencoFileInDirectory(sdir,aRetFiles,sExt)

Dim z

For z = 1 To 2 '<- per adesso questo lo devo cambiare manualmente... in base a quanti sono i files che mi interessa analizzare...



'Scrivi "file" & z & " " & aRetFiles(z)


Dim fileintero

fileintero = aRetFiles(z)&".txt"

sFile=fileintero

Call Scrivi (                                              )
Call Scrivi (                                              )


Call Scrivi ("ANALISI FILE: " & sFile)

Call Scrivi (                                              )
Call Scrivi (                                              )

'Next


ReDim aRuote(10)
aRuote(1) = BA_
aRuote(2) = CA_
aRuote(3) = FI_
aRuote(4) = GE_
aRuote(5) = MI_
aRuote(6) = NA_
aRuote(7) = PA_
aRuote(8) = RO_
aRuote(9) = TO_
aRuote(10) = VE_
'aRuote(1) = NZ_



nSorte = 1
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)
Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
'Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine)

RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)

Dim Diff
Diff = RetRitMax - RetRit

'If(RetRit >= 0) Then

'If(RetIncrRitMax > 0) Then

'If(Diff < 2 And RetIncrRitMax > 0) Then
If(Diff < 90 And RetIncrRitMax >= 0) Then

Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff)
End If
End If
If k Mod 100 = 0 Then
Call Messaggio("Colonna : " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(0,UBound(aRighe),k)
End If
Next
Next
End Sub

Però la ciliegina... è indispensabile... ora provo a cercare... sto Upper Bound... :p ma un Size (array) o qualcosa del genere non è praticabile? Penso proprio di no visto che non mi s'ingrassetta... nulla a scrivere per tentativi in tal senso... ;)
Clicca per espandere...

Ce l'ho fatta!!! Grazie a questo testo trovato on google! :D


------------------------------------------------------------------


<%

days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
response.write(LBound(days) & "<br />")
response.write(UBound(days) & "<br />")

%>

The output of the code above will be:

0
6

---------------------------------------------------------------

In sostanza ho provato a mettere in spaziometria...

Codice: 
For z = 1 To UBound(aRetFiles)

E mi s'è ingrassettato!!!! E sopratutto... Funzia!!!

GRAZIE 1000 MASTER PER GLI AIUTI TELEPATICI E SIBILLINI CHE MI HAI DATO!!!! :D

Yoda... Tom Felicissimo E' :D
 
Ultima modifica:
eheh .. vedi che upper bound ci entrava qualcosa ?

p.s.

usa la forza tommmmmmm :-) anzi ... la forza usa tu ....tommm
 
Ultima modifica di un moderatore:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto