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ì 18 novembre 2025
    Bari
    07
    35
    82
    62
    16
    Cagliari
    60
    42
    25
    31
    51
    Firenze
    48
    36
    03
    35
    25
    Genova
    17
    57
    09
    66
    85
    Milano
    69
    78
    37
    85
    16
    Napoli
    08
    27
    17
    26
    68
    Palermo
    24
    77
    19
    79
    45
    Roma
    45
    14
    27
    21
    07
    Torino
    27
    51
    35
    76
    63
    Venezia
    52
    05
    46
    10
    53
    Nazionale
    23
    69
    01
    02
    38
    Estrazione Simbolotto
    Torino
    24
    44
    23
    21
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto