02/01/20 9:55
ArturoC
Ciao,
Sono passto da poco tempo a VB.NET.
Ho un problema nel leggere un file scritto in VB6.
Utilizzando quesoa codice
Libero = FreeFile()
FileOpen(Libero, NomeFileArchivio, OpenMode.Binary)
FileGet(Libero, RitardiEstrattiPrecedentiTutte)
FileGet(Libero, RitardiEstrattiPrecedentiSingola)
FileGet(Libero, RitardiEstrattiTutte)
FileGet(Libero, RitardiEstrattiSingola)
FileGet(Libero, RitardoEstrattiStoricoTutte)
. .. . . . . . .
il caricamente si blocca ad un certo punto e restituisce il messaggio:
System.IO.EndOfStreamException: 'Impossibile leggere oltre la fine del flusso.'
"RitardiEstrattiPrecedentiTutte" ecc. sono tutti Array e/o Type:
Es.:
*) Public RitardiEstrattiPrecedentiTutte(0 To 90) As Integer
*) Public QuadroGemelli As TQuadroGemelli
*) Public Structure TQuadroGemelli
Dim RitardoStoricoAmbo(,) As Integer '1 To 10, 0 To 5
Dim RitardoAttualeAmbo(,) As Integer '1 To 10, 0 To 5
Dim FrequenzaAmbo(,) As Integer '1 To 10, 0 To 5
End Structure
Grazie dell'aiuto...
Arturo.
Sono passto da poco tempo a VB.NET.
Ho un problema nel leggere un file scritto in VB6.
Utilizzando quesoa codice
Libero = FreeFile()
FileOpen(Libero, NomeFileArchivio, OpenMode.Binary)
FileGet(Libero, RitardiEstrattiPrecedentiTutte)
FileGet(Libero, RitardiEstrattiPrecedentiSingola)
FileGet(Libero, RitardiEstrattiTutte)
FileGet(Libero, RitardiEstrattiSingola)
FileGet(Libero, RitardoEstrattiStoricoTutte)
. .. . . . . . .
il caricamente si blocca ad un certo punto e restituisce il messaggio:
System.IO.EndOfStreamException: 'Impossibile leggere oltre la fine del flusso.'
"RitardiEstrattiPrecedentiTutte" ecc. sono tutti Array e/o Type:
Es.:
*) Public RitardiEstrattiPrecedentiTutte(0 To 90) As Integer
*) Public QuadroGemelli As TQuadroGemelli
*) Public Structure TQuadroGemelli
Dim RitardoStoricoAmbo(,) As Integer '1 To 10, 0 To 5
Dim RitardoAttualeAmbo(,) As Integer '1 To 10, 0 To 5
Dim FrequenzaAmbo(,) As Integer '1 To 10, 0 To 5
End Structure
Grazie dell'aiuto...
Arturo.
aaa