FILEPUTOBJET problème avec structure

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:

---

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 :ccool:

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:

---

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

Citation:

---

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:

---

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.

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


http://nogamer.free.fr/bugputobject.gif

la structure blile est la suivante :

Code:

---

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 ?

Citation:

---

Envoyé par monchat

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.

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.