Discussion :

[monchat]

bonjour

ca fait 2 jours et 2 nuits que je cherche une solution à mon problème que je vous explique.

Voilà, j'ai besoin d'avoir un fichier en acces direct et j'utilise les commandes suivantes :

fileopen
filegetobject
fileputobject
fileclose

or j'ai un message qui me dit que la structure xxx n'est pas valide par rapport à la commande fileputobject.

Voici un extrait de mon code

Code :

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
 
imports system.IO
Public Structure batiment
        Dim numeroprod As Integer
        Dim levelbat As Byte
        Dim zone As Byte
        Dim tempsprod As DateTime
        Dim valide As Byte
        <VBFixedString(200)> Dim chaine As String
    End Structure
    Public libre As Long = 0
    Public nomflile As String = My.Application.Info.DirectoryPath & "\base.bdd"
    Public rlile As batiment
    Dim reclong As Long = Len(rlile)
    Public longflile As Long = 0
sub
    libre = FreeFile()
    FileOpen(libre, nomflile, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, reclong)
        longflile = FileLen(nomflile) / reclong
        If longflile <= 0 Then Exit Sub
        Dim vijk As Long = 0
        For vijk = 1 To tbatile ' contient le nombre de batiments à sauvegarder
            'expres je n'assigne pas les champs de la structure pour alleger le code
            FilePutObject(libre, rlile) ' c'est ici que ca coince 
        Next
      FileClose(libre)
 End Sub

j'ai essayé le code en otant le champ de type STRING ca ne change rien à l'erreur.

Donc si vous avez déjà trouvé une méthode pour faire marcher les commandes en question, je suis preneur.

D'avance merci pour votre aide

[hunteshiva]

Bonjour,

désolé pour le retard, tu peux voir qu'en regardant la définition sur MSDN on a toutes les réponses

Quels paramètres dedans

Code :

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

1
2
'Déclaration
Public Shared Sub FilePutObject ( FileNumber As Integer, Value As Object, RecordNumber As Long )

Ainsi que le détail de chaque paramètres

FileNumber
Type : System.Int32
Obligatoire. Tout numéro de fichier valide.

Value
Type : System.Object
Obligatoire. Nom de variable valide contenant les données écrites sur le disque.

RecordNumber
Type : System.Int64
Facultatif. Numéro de l'enregistrement (fichiers ouverts en mode Random) ou de l'octet (fichiers ouverts en mode Binary) par lequel l'écriture débute.

et comment l'utiliser

Code :

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

1
2
3
4
    Dim text As String = "test"
    FileOpen(1, "test.bin", OpenMode.Binary)
    FilePutObject(1, text)
    FileClose(1)

Pour conclure, difficile de te répondre sans le message d'erreur.

[monchat]

voici le message d'erreur qui apparait dans l'execution du programme en image :




la structure blile est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
  Public Structure blile
        Public info1 As Integer
        Public info2 As Integer
        Public info3 As Integer
        Public info4 As Date
        Public info5 As Integer
        Public info6 As String
        Public info7 As Integer
    End Structure

en toute logique que des champs ayant comme type de variable accepté dans l'objet.

la commande qui provoque l'erreur est la suivante :

FilePutObject(libre, vaile)

libre est une variable de type integer contenant un n° delivré par la commande freefile
et vaile est déclarée ainsi Dim vaile As blile

Alors une idée pour me sortir de ce mauvais pas ?

[Bluedeep]

Voilà, j'ai besoin d'avoir un fichier en acces direct et j'utilise les commandes suivantes :

fileopen
filegetobject
fileputobject
fileclose

Il est aberrant en VB.Net d'utiliser ces instructions (vieilles verrues du Basic, transposée en VB et, hélas, conservée en VB.Net) plutôt que les méthodes d'accès fichier du framework .NET.

[monchat]

merci pour ta réponse qui ne m'aide en aucune manière.

Ces instructions sont celles de VB.NET car elles remplacent celles du vb qui sont get et put.