Discussion :

[Invité]

je suis en train de migrer une application VB vers VB.net.

j'utilise des type imbriqué j'ai converti les types en structure mais je me retrouve avec le message d'erreur 'Nombre non négatif requis. Nom du paramètre*: count'

je vous joint les 2 code j'ai bien évidement une lacune mais????

Code VB6 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Type MyLicGene
    Societe As String
    Tous As String
    AficheFrm As String
    DateDeb As String
    DateExecuter As String
    DateFin As String
    Enregistre As String
    NbJeton As String
    NbJetonActif As String
End Type
 
Type MyLic
    Serial As String
    PassWord As String
    UserName As String
    Enregistre As String
End Type
Type Licence
    Count As Long
    General As MyLicGene
    Record() As MyLic
End Type
 
Type MyDb
     UserDb As String
    PassWordDb As String
End Type
Public PassDb As MyDb
 
Public FiledLicence As Licence
 
Open App.Path & "\Fichier.dll" For Random As #NumFile
Get #NumFile, , FiledLicence
 
Close #NumFile

Code Vb.net 2010 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim strContents As New Licence
 FileOpen(file_num, FullPath, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(strContents) - 1)
        Dim objReader As StreamReader
        Try
            Do While Not EOF(1)
                FileGet(file_num, strContents, 1) 'Err:= Nombre non négatif requis. Nom du paramètre*: count

            Loop

[clementmarcotte]

Bonjour,

je suis en train de migrer une application VB vers VB.net.

Code Vb.net 2010 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim strContents As New Licence
 FileOpen(file_num, FullPath, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(strContents) - 1)
        Dim objReader As StreamReader
        Try
            Do While Not EOF(1)
                FileGet(file_num, strContents, 1) 'Err:= Nombre non négatif requis. Nom du paramètre*: count

            Loop

C'est juste à l'oeillomètre et pas testé.

Puisque ton strContents est "new" et sans aucune donnée; J'ai comme l'impression que sa valeur est Null ou empty. Donc sa longueur est possiblement à zéro, et ton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Len(strContents) - 1

vaut possiblement -1.

Mais, comme j'ai dit, ce n'est pas testé. C'est juste de l'intuition.

[Invité]

oui c'est exactement ça je je fais Dim strContents As New Licence sur la structure donc l'objet est null.
mais comme je veux récupérer les information contenues dans le fichier en fonction de cette structure (Record)??

[clementmarcotte]

Bonjour,

oui c'est exactement ça je je fais Dim strContents As New Licence sur la structure donc l'objet est null.
mais comme je veux récupérer les information contenues dans le fichier en fonction de cette structure (Record)??

J'avoue que je n'ai jamais vraiment réussi à dompter les structures en VB.net. J'ai toujours l'impression qu'elles ne font pas ce que je voudrais qu'elles fassent.

De mémoire, dans l'aide, ils parlent de faire comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public structure MachinChose
   dim alpha as string
   dim beta as string
   etc
End structure

puis ils ajoutent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim MachinChouette as MachinChose

Donc, cela laisserait supposer qu'il faut utiliser MachinChouette pour travailler. Mais, il a toujours une raison de brailler.

Je ne sais pas si tu as déjà lu cela, mais comme c'est gratuit, cela pourrait être utile à d'autres:

http://msdn.microsoft.com/fr-ca/vstudio/ms788236

Et, ils ont toujours cette (antique) page :

http://msdn.microsoft.com/fr-ca/vstudio/ms788233

[mactwist69]

Bonjour,

Et oui, les "méthodes" VB6 ne sont pas forcement facile à transcrire.
En .NET on a des outils comme la sérialisation de fichier XML qui permet de gérer tout ça (structure + data) sans se prendre la tête.

Mais bon, en conservant votre système, en jetant un coup d’œil sur la MSDN sur FileOpen, ils donnent un exemple où il semble qu'il faille savoir la longueur au préalable.
(peut être que je me trompe) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Structure Person
    <VBFixedString(30)> Dim Name As String 
    Dim ID As Integer 
End Structure 
Public Sub ExampleMethod()
    ' Count 30 for the string, plus 4 for the integer.
    FileOpen(1, "TESTFILE", OpenMode.Random, , , 34)
    ' Close before reopening in another mode.
    FileClose(1)
End Sub

http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx

[Invité]

d’abord merci pour ces réponses,
oui le xml est prévue dans la nouvelle version il es déjà implémenté et marche parfaitement.

bien-sur la nouvelle application a fait l'objet d'une analyse dans le respect des différents couches métier, client et base de donnée; la redistribution des des formulaire (doublon pour case dévolution pour ne pas casser l'existant).

mais en attendant la refonte total de l'application je veux que dans mes livrables une compatibilité logiciel vb6 vb.net.

l'idée étant de substitué ma classe adapté de vb6 par celle vb.net en tant utile.

j'ai même développé un DLL VB6 mais VB.net n'en veut pas.
je regarde ces liens et je revient vers vous

Bonjour,

Et oui, les "méthodes" VB6 ne sont pas forcement facile à transcrire.
En .NET on a des outils comme la sérialisation de fichier XML qui permet de gérer tout ça (structure + data) sans se prendre la tête.

Mais bon, en conservant votre système, en jetant un coup d’œil sur la MSDN sur FileOpen, ils donnent un exemple où il semble qu'il faille savoir la longueur au préalable.
(peut être que je me trompe) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Structure Person
    <VBFixedString(30)> Dim Name As String 
    Dim ID As Integer 
End Structure 
Public Sub ExampleMethod()
    ' Count 30 for the string, plus 4 for the integer.
    FileOpen(1, "TESTFILE", OpenMode.Random, , , 34)
    ' Close before reopening in another mode.
    FileClose(1)
End Sub

http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx

[Sehnsucht]

J'ai parcouru le sujet un peu en diagonale mais il semblerait que tu cherches à lire un fichier à champs de largeur fixe.
Dans ce cas je suggère de regarder du côté de TextFieldParser ; il y a même un exemple de lecture d'un tel type de fichier

[Invité]

je regarde pour parser le fichier il faut y croire pour retouver la structure!

mais je m'y colle!

J'ai parcouru le sujet un peu en diagonale mais il semblerait que tu cherches à lire un fichier à champs de largeur fixe.
Dans ce cas je suggère de regarder du côté de TextFieldParser ; il y a même un exemple de lecture d'un tel type de fichier

[Invité]

bonjour à tous,
vue que dans ma migration je vais utiliser un XML; j'ai décider de transiter par ma base de données en attendant la migration des autres livrables.

problème résolu, résolu par l'absurde mais résolue!