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
    martedì 17 febbraio 2026
    Bari
    40
    72
    47
    39
    63
    Cagliari
    03
    66
    47
    27
    35
    Firenze
    14
    62
    53
    08
    51
    Genova
    55
    12
    81
    52
    04
    Milano
    41
    31
    55
    23
    59
    Napoli
    30
    09
    38
    14
    50
    Palermo
    19
    86
    40
    32
    07
    Roma
    65
    88
    51
    42
    41
    Torino
    10
    06
    34
    84
    81
    Venezia
    06
    25
    82
    24
    52
    Nazionale
    10
    74
    04
    29
    88
    Estrazione Simbolotto
    Cagliari
    01
    41
    21
    44
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto