C# / VB.NET - problema a convertire una type vb6 in una struttura vb.net

Forum - C# / VB.NET - problema a convertire una type vb6 in una struttura vb.net

marcosta (Normal User)
Newbie

Messaggi: 2
Iscritto: 24/04/2015

Postato alle 17:29
Giovedì, 25/05/2023

Buon giorno a tutti.
Sto cercando di convertire un vecchio programma VB6 in VB.NET, sto usando VB2019 ma credo non abbia molta importanza.
nel programma VB6 avevo creato una Type per leggere e scrivere un file random purtroppo non riesco a convertirla in vb.net di conseguenza non riesco a leggere i dati salvati con la versione VB6, ho provato a fare la conversione con vb2005.net, converte tutto il resto abbastanza bene ma quando tento di leggere i file niente da fare, chiedo aiuto.
Allego le die versioni.

VB6:

Codice sorgente - presumibilmente VB.NET

Type SalvaLas
    FileName As String * 80 
    SigLas As String * 6 
    CoordLasX(1 To 50) As Integer 
    CoordLasY(1 To 50) As Integer 
    RuotaLas As Integer 
    LungLas As Integer 
    LargLas As Integer 
    NVert As Integer 
    NLas  As Integer 
    Tral(1 To 5, 1 To 2) As Integer
    NTral As Integer 
    Fer1(1 To 5, 1 To 3) As Integer
    Fer2(1 To 5, 1 To 3) As Integer
    Fer3(1 To 5, 1 To 3) As Integer
    PolisX(1 To 80, 1 To 4) As Integer
    PolisY(1 To 80, 1 To 4) As Integer
    PolMaxX(1 To 80) As Integer
    PolMaxY(1 To 80) As Integer
    PolisH(80) As Integer
    NPol As Integer
    ForiX(1 To 80, 1 To 4) As Integer
    ForiY(1 To 80, 1 To 4) As Integer
    ForMaxX(1 To 80) As Integer 
    ForMaxY(1 To 80) As Integer
    NFor As Integer
    RisX(1 To 80, 1 To 4) As Integer
    RisY(1 To 80, 1 To 4) As Integer
    RisMaxX(1 To 80) As Integer
    RisMaxY(1 To 80) As Integer
    RisH(1 To 80) As Integer
    NRis As Integer
    PosFileOr As Integer
    Offsetx As Integer
    Offsety As Integer
    Separatore As Integer
    LargSep As Integer
    LungSep As Integer
    PosLas As Integer
    LatoLas As Integer
    NPic As Integer
    Testo As String * 20
End Type
 
Public Sal As SalvaLas

VB.NET Tradotto da VB2005.net

Testo quotato

'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
        <VBFixedString(80), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=80)> Public FileName As Char
        'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
        <VBFixedString(6), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=6)> Public SigLas As Char
        <VBFixedArray(49)> Dim CoordLasX() As Short
        <VBFixedArray(49)> Dim CoordLasY() As Short
        Dim RuotaLas As Short
        Dim LungLas As Short
        Dim LargLas As Short
        Dim NVert As Short
        Dim NLas As Short
        <VBFixedArray(4, 1)> Dim Tral(,) As Short
        Dim NTral As Short 'Numero tralicci nella Lastra
        <VBFixedArray(4, 2)> Dim Fer1(,) As Short
        <VBFixedArray(4, 2)> Dim Fer2(,) As Short
        <VBFixedArray(4, 2)> Dim Fer3(,) As Short
        <VBFixedArray(79, 3)> Dim PolisX(,) As Short
        <VBFixedArray(79, 3)> Dim PolisY(,) As Short
        <VBFixedArray(79)> Dim PolMaxX() As Short
        <VBFixedArray(79)> Dim PolMaxY() As Short
        <VBFixedArray(79)> Dim PolisH() As Short
        Dim NPol As Short
        <VBFixedArray(79, 3)> Dim ForiX(,) As Short
        <VBFixedArray(79, 3)> Dim ForiY(,) As Short
        <VBFixedArray(79)> Dim ForMaxX() As Short
        <VBFixedArray(79)> Dim ForMaxY() As Short
        Dim NFor As Short
        <VBFixedArray(79, 3)> Dim RisX(,) As Short
        <VBFixedArray(79, 3)> Dim RisY(,) As Short
        <VBFixedArray(79)> Dim RisMaxX() As Short
        <VBFixedArray(79)> Dim RisMaxY() As Short
        <VBFixedArray(79)> Dim RisH() As Short
        Dim NRis As Short
        Dim PosFileOr As Short
        Dim Offsetx As Short
        Dim Offsety As Short
        Dim Separatore As Short
        Dim LargSep As Short
        Dim LungSep As Short
        Dim PosLas As Short
        Dim LatoLas As Short
        Dim NPic As Short
        'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
        <VBFixedString(20), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=20)> Public Testo As Char

        'UPGRADE_TODO: "Initialize" deve essere chiamato per inizializzare istanze di questa struttura. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
        Public Sub Initialize()
            'UPGRADE_WARNING: Il limite inferiore della matrice CoordLasX è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim CoordLasX(49)
            'UPGRADE_WARNING: Il limite inferiore della matrice CoordLasY è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim CoordLasY(49)
            'UPGRADE_WARNING: Il limite inferiore della matrice Tral è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim Tral(4, 1)
            'UPGRADE_WARNING: Il limite inferiore della matrice Fer1 è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim Fer1(4, 2)
            'UPGRADE_WARNING: Il limite inferiore della matrice Fer2 è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim Fer2(4, 2)
            'UPGRADE_WARNING: Il limite inferiore della matrice Fer3 è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim Fer3(4, 2)
            'UPGRADE_WARNING: Il limite inferiore della matrice PolisX è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim PolisX(79, 3)
            'UPGRADE_WARNING: Il limite inferiore della matrice PolisY è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim PolisY(79, 3)
            'UPGRADE_WARNING: Il limite inferiore della matrice PolMaxX è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim PolMaxX(79)
            'UPGRADE_WARNING: Il limite inferiore della matrice PolMaxY è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim PolMaxY(79)
            ReDim PolisH(79)
            'UPGRADE_WARNING: Il limite inferiore della matrice ForiX è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim ForiX(79, 3)
            'UPGRADE_WARNING: Il limite inferiore della matrice ForiY è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim ForiY(79, 3)
            'UPGRADE_WARNING: Il limite inferiore della matrice ForMaxX è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim ForMaxX(79)
            'UPGRADE_WARNING: Il limite inferiore della matrice ForMaxY è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim ForMaxY(79)
            'UPGRADE_WARNING: Il limite inferiore della matrice RisX è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim RisX(79, 3)
            'UPGRADE_WARNING: Il limite inferiore della matrice RisY è stato cambiato da 1,1 a 0,0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim RisY(79, 3)
            'UPGRADE_WARNING: Il limite inferiore della matrice RisMaxX è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim RisMaxX(79)
            'UPGRADE_WARNING: Il limite inferiore della matrice RisMaxY è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim RisMaxY(79)
            'UPGRADE_WARNING: Il limite inferiore della matrice RisH è stato cambiato da 1 a 0. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword= ..."'
            ReDim RisH(79)
        End Sub
    End Structure

    Public Sal As SalvaLas

Ho fatto diversi Tentativi come sostituire short con integer o char con String ma senza soluzione.
Ho notato che la lunghezza di Sal misurata con una Len(Sal) è diversa tra le due versioni e probabilmente è il motivo della mancata lettura del file.

il file lo apro con:

Codice sorgente - presumibilmente Plain Text

ffCP = FreeFile()
FileOpen(ffCP, NomeFile(1) + ".dat", OpenMode.Random,,, Len(Sal))
FileGet(ffCP, Sal,)

Naturalmente ho cercato su internet ma non ho trovato nulla di significativo.
Grazie

Ultima modifica effettuata da Thejuster il 25/05/2023 alle 19:42

Thejuster (Admin)
Guru^2

Messaggi: 2339
Iscritto: 04/05/2008

Postato alle 19:51
Giovedì, 25/05/2023

Ciao marcosta.
Ricorda di usare i tag [ code ] e [ quote ] altrimenti è veramente impossibile capire...

Non ci capisco granché di vb.net sicuramente @Carlo potrà aiutarti.
Ma personalmente è la prima volta che vedo <VBFixedArray(49)>

Sicuro che non sia quello il problema?

da quel che leggo, solitamente è un'attributo che va inserito in una struttura.
Ma altrettanto strano. Perché solitamente la dimensiona di un array va dichiarata direttamente senza
usare quell'attributo

esempio

Codice sorgente - presumibilmente C# / VB.NET

Dim array_fisso(10)  As Integer

che sarebbe un array di 10 elementi.
C'è poco da fidarsi dei convertitori.
Poi come detto, Carlo ne sà più di me sul vb.net spero sappia aiutarti.

https://mire.forumfree.it/ - Mire Engine
C# UI Designer

()
Newbie

Messaggi:
Iscritto:

Postato alle 21:14
Giovedì, 25/05/2023

Prova a modificare così la struttura

Codice sorgente - presumibilmente VB.NET

<VBFixedString(80)> Dim Filename As String
<VBFixedString(6)> Dim SigLas As String
<VBFixedArray(49)> Dim CoordLasX() As Short
<VBFixedArray(49)> Dim CoordLasY() As Short
Dim RuotaLas As Short
Dim LungLas As Short
Dim LargLas As Short
Dim NVert As Short
Dim NLas As Short
<VBFixedArray(4, 1)> Dim Tral(,) As Short
Dim NTral As Short 'Numero tralicci nella Lastra
<VBFixedArray(4, 2)> Dim Fer1(,) As Short
<VBFixedArray(4, 2)> Dim Fer2(,) As Short
<VBFixedArray(4, 2)> Dim Fer3(,) As Short
<VBFixedArray(79, 3)> Dim PolisX(,) As Short
<VBFixedArray(79, 3)> Dim PolisY(,) As Short
<VBFixedArray(79)> Dim PolMaxX() As Short
<VBFixedArray(79)> Dim PolMaxY() As Short
<VBFixedArray(79)> Dim PolisH() As Short
Dim NPol As Short
<VBFixedArray(79, 3)> Dim ForiX(,) As Short
<VBFixedArray(79, 3)> Dim ForiY(,) As Short
<VBFixedArray(79)> Dim ForMaxX() As Short
<VBFixedArray(79)> Dim ForMaxY() As Short
Dim NFor As Short
<VBFixedArray(79, 3)> Dim RisX(,) As Short
<VBFixedArray(79, 3)> Dim RisY(,) As Short
<VBFixedArray(79)> Dim RisMaxX() As Short
<VBFixedArray(79)> Dim RisMaxY() As Short
<VBFixedArray(79)> Dim RisH() As Short
Dim NRis As Short
Dim PosFileOr As Short
Dim Offsetx As Short
Dim Offsety As Short
Dim Separatore As Short
Dim LargSep As Short
Dim LungSep As Short
Dim PosLas As Short
Dim LatoLas As Short
Dim NPic As Short
<VBFixedString(20)> Dim Testo As String

Ultima modifica effettuata da il 25/05/2023 alle 21:16

marcosta (Normal User)
Newbie

Messaggi: 2
Iscritto: 24/04/2015

Postato alle 2:12
Venerdì, 26/05/2023

Grazie a tutti per l'interessamento
Ho trovato la soluzione, errore mio, scusate per il tempo perduto
nella riga <VBFixedArray(79)> Dim PolisH() As Short
ho scritto erroneamente (79) perché gli indici in vb.net partono sempre da 0 mentre in vb6 li avevo fatti partire da 1 definendoli (1 To 80).
Questa modifica della dimensione era corretta per gli altri dimensionamenti ma non per la definizione su citata che aveva come indice fisso (80).
Ho modificato scrivendo (80) al posto di (79) e tutto è andato a posto.
Dovrò acquistare un monitor più grande Sigh!