Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto please

Questa e la mia dichiarazione del record
        Type TipoStorico
            CodInstallazione As Integer
            DataDa As String * 8
            DataA As String * 8
        End Type
        Global fStorico As TipoStorico
Qui mi stampa bene ciò che cerco ..
        Private Sub Command4_Click()
            Dim ii As Integer
            ii = 9
            Open App.Path + "\config\storico.ss2" For Random As #2 Len =
Len(fStorico)
            Get #2, ii, fStorico
            MsgBox fStorico.CodInstallazione
            Close #2
        End Sub
Qui sorgono i problemi (in un'altra routine)
        dim splitstr2
        Open App.Path + "\config\storico.ss2" For Random As #2 Len =
Len(fStorico)
            ' Dopo vari calcoli diventa:
            splitStr2=split("2;3;4;5",";")
           for t= 0 to ubound(splitstr2)
          ii = Int(splitStr2(q))
         Get #2, ii, fStorico
        msgbox fStorico.CodInstallazione .. -> Qui è sbagliato .. il valore
che ho registrato nel file
            next t
        close #2
Qualcuno saprebbe dirmi il perchè ??? :)
ormai sono due giorni che provo senza risultati !!! PLEASE :°(
--
[t]Eo
Una suora va dal ginecologo e gli spiega preoccupata che tutte le volte che
fa il bidè trova dei francobolli nella passera.
Il dottore la visita, guarda e dice:
"Ma che francobolli! Questi sono bollini Ciquita!"

         close #2
Ciao
Alessandro
--
Morfeus®
Free Joint
:PII

            ii = Int(splitStr2(q)) ' la q non dovrebbe essere t?
Hai ragione .. ho solo sbagliato a postare .. t è Q .. sorry


SCUSATE QUESTA E LA PROCEDURA NORMALE .. prima avevo sbagliato a postare ..
avevo messo una t al posto della q ..
grazie in anticipo a chi mi aiuterà ...
Questa e la mia dichiarazione del record
        Type TipoStorico
            CodInstallazione As Integer
            DataDa As String * 8
            DataA As String * 8
        End Type
        Global fStorico As TipoStorico
Qui mi stampa bene ciò che cerco ..
        Private Sub Command4_Click()
            Dim ii As Integer
            ii = 9
            Open App.Path + "\config\storico.ss2" For Random As #2 Len =
Len(fStorico)
            Get #2, ii, fStorico
            MsgBox fStorico.CodInstallazione
            Close #2
        End Sub
Qui sorgono i problemi (in un'altra routine)
        dim splitstr2
        Open App.Path + "\config\storico.ss2" For Random As #2 Len =
Len(fStorico)
            ' Dopo vari calcoli diventa:
            splitStr2=split("2;3;4;5",";")
           for q= 0 to ubound(splitstr2)
          ii = Int(splitStr2(q))
         Get #2, ii, fStorico
        msgbox fStorico.CodInstallazione .. -> Qui è sbagliato .. il valore
che ho registrato nel file
            next q


         close #2
Il codice appare giusto, ii vale (per ogni q) 2,3,4,5
Non resta che una sola ipotesi: Quanto contenuto in tali record non è quello
che ti aspetti e quindi ti appare sbagliato. Guarda la parte che scrive nei
records.

 Rodney Dangerfield

           ii = Int(splitStr2(q))
Allora ci riprovo
ii=CInt(SplitStr2(q))


 Qualcuno saprebbe dirmi il perchè ??? :)
 Ma cosa significa " qui è sbagliato..."? Cosa ti da e cosa invece ti dovrebe
dare?
 E poi perchè usi l' Array generato dalla split per indicare il numero di
record che vuoi leggere ? ( Che tra l'altro sono in sequenza... )
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 .. visto che ormai avevo provato tutto .. :)
Ah benedetto freefile


 un file che avevo aperto .. anche se gli davo il comando close ...
Sei sicuro? 8-(
Io dubito ... fortemente. Puoi farci vedere qualche riga?

 provato tutto .. :)
  Ma per favore...





 questo post con altre critiche !!!!)
  Boh...
Cmq l'importate è che hai risolto!





 Sorry se te ne sei risentito .. :D
  Assolutamente, era solo per chiarire.
Ciao


 di file .. e tutto si è risolto ..
Cerca *Freefile* su msdn per chiarimenti
Ciao
Alessandro


 questo post con altre critiche !!!!)
Io, almeno stavolta, sono stato piů che tollerante: Ho espresso un dubbio
sul fatto che quello da te segnalato fosse un bug di VB.