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ì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto