Newsgroup: it.comp.lang.visual-basic
Titolo: istruzioni che continuano nela rega sucessiva

VB& pro quante "continuazioni"  supporta  esempio
dim coefficient as variant
coefficienti = array(3.14,0.0345,0.00341,0.0821, _
                             44,012,81,012,55.031,0.000342, _
........................................................................
............................................................................
...
                              123.0,0.12,)
devo rienpire matrici con circa 1000 valori
leonello

Ehmh.... io ti direi, perche' non metti i tuoi dati su un bel file di testo
o meglio ancora un files di excel e poi li carichi da VisualBasic?
Allora provo a rispondere al tuo messaggio precedente, di sicuro ci sono
metodi piu' puliti e meno empiri per fare certe cose pero'....
In VB ti crei il tuo bel oggetto Excel, poi con quello ti apri il file
dopodiche' ti sposti sulle celle che ti interessano per legggerti i valori.
Per imparare a leggere i valori delle singole celle io ho sempre provato a
registrarmi delle macro VBA direttamente da Excel, andavo a vedere i
sorgenti per capirne il funzionamento e poi, arricchieto di queste
conoscenze, mi cimentavo a scrivere il codice del mio applicativo VB...
Andrea


Concordo con Andrea. Crea un file di testo con i dati dentro,
poi lo leggi linea per linea e assegni ogni valore alla variabile.
Una traccia potrebbe essere questa:
'***************************
     Dim FileLibero As Integer
     Dim Linea As String
     Dim MioArray() As Long ' vedi tu come lo devi definire
     Dim N As Long ' contatore degli elementi
     FileLibero = FreeFile
     Open App.Path & "\FileDati.txt" For Input As FileLibero
     Do While Not EOF(FileLibero)
          Input #FileLibero, Linea ' prendiamo una linea di testo
          Linea = Trim(Linea) ' eliminiamo eventuali spazi inutili
          If Linea <> "" Then ' se non č vuota
               If Left$(Linea, 1) <> "#" Then ' e se non inizia per cancelletto
               ' cosě, se nel file ci devi mettere dei commenti, basta
               ' far iniziare la riga con un cancelletto
                    MioArray(N) = Val(Linea) ' converte la stringa in numero
                    ' e assegna il valore all'elemento dell'array
                    ' in questo punto, attento alla differenza tra virgole e punti,
                    ' nel file.
                    N = N + 1 ' incrementa il puntatore all'elemento
               End If
          End If
     Loop
     Close FileLibero
'***************************
Bye, G.

 del mio applicativo VB...
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

porca puttena maronna incazzeta....
che strani scherzi gioca la stanchezza...

 che strani scherzi gioca la stanchezza...
cerca di riposarti
leonello

 o meglio ancora un files di excel e poi li carichi da VisualBasic?
la via del fie di imput la conosco bene ed e' la piu facile,semplice senza
ricorrere ad excel,ma ha un grosso guaio,,,,allegando un file al progetto,il
file stesso e' soggetto ad eventuali cambiamenti da parte degli utenti con
la consrguenze che ti lascio immaginare...la via allora rimane quella del
files di risorse,ma in sostanza nessuno ha risposto alla mia domanda in
oggetto......
faro delle prove per vedere quanti a capo si possono fare
leonello

 oggetto......
La tua soluzione è orripilante :)
VB ha un limite piuttosto basso di righe "spezzate", basta che tu legga i
"principi di base di VB" in MSDN per rendertene conto.
Inoltre non capisco perchè usare Array() che restituisce un variant
contenente un array di variant.
Perchè allora semplicemente non fai
a(0) = 123
a(1) = 345
...
a(1000) = 987
Se il tuo problema è la sicurezza cripta il file, oppure lo scrivi in
binario e lo tiri su tutto d'un colpo con una Get #file,,mioArray.
Di soluzioni più pulite e mantenibili ce ne sono sicuramente :)
Ciao


grazie,ma il problema E' che il file dei miei coefficienti deve essere
allegato al progetto con il pericolo
che gli utenti possono manipolare il filee stesso con conseguenze
imprevedibile (esperienza gia sperimentata) anche se si rende invisibile o
in binario
leonello

 in binario
Guarda che se vogliono ti modificano anche l'exe: anche quello è in binario.
Davvero, non capisco il tuo problema.
Mettigli delle ristrizioni sui permessi.
Ciao


il Zanna si distingue per l' accuratezza delle risposte......sempre
appropriate......
penso che l'istruzione arrayi serva per pochi dati.
per non digitare 1000 istruzioni con i 1000 coefficienti penso di scrivere
un "preprogramma"
che legga ul file dei coefficienti e crei una  funzione in VB che poi allego
al progetto del tipo
...............
print #2, " Dim coef(1 to 1000)"
...............
for K = 1 to 1000
.............
read #,1,coef
print #2,   "coef(" ;k;")  = " ;coef
..................
next k
close
........
 che ne pensi
leonello

vei mio post  precedentedelle 11:35
leo

  che ne pensi
vedi mio post precedente delle 11:29.
Ciao