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ì 04 agosto 2026
    Bari
    40
    77
    49
    65
    43
    Cagliari
    75
    06
    03
    62
    15
    Firenze
    42
    04
    69
    27
    43
    Genova
    05
    47
    57
    50
    89
    Milano
    37
    88
    01
    85
    42
    Napoli
    33
    28
    45
    18
    23
    Palermo
    04
    70
    38
    58
    85
    Roma
    62
    18
    28
    59
    43
    Torino
    86
    24
    40
    34
    61
    Venezia
    25
    12
    78
    53
    39
    Nazionale
    49
    07
    65
    62
    70
    Estrazione Simbolotto
    Nazionale
    35
    24
    36
    05
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto