Discussion :

[Fritsche Alberrt]

Bonjour tout le monde,
J'ai la structure suivante pour un de mes programmes et j'aimerais savoir combien de Bytes il faut pour écrire un record avec FilePut(f_ng, NG, record).
Voici la structure:

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
    Structure NomGeneral
        Dim NbreRec As Single
        Dim Numéro As Single
        Dim NoAdd As Single
        <VBFixedString(50)> Dim Nom As String
        <VBFixedString(10)> Dim Départ As String
        Dim Slope As Single
        Dim Fixe As Single
        Dim CourseRating As Single
        Dim ParTotal As Single
        Dim Distance() As Integer
        Dim Par() As Integer
        Dim HCP() As Integer
    End Structure
 
    Public NG As NomG
    Public f_NG As Integer
    Public MaxNG As Integer
 
    Public Sub UseStruct()
        ReDim NG.Distance(17)
        ReDim NG.Par(17)
        ReDim NG.HCP(17)
    End Sub

Merci d'avance de votre aide

[Phil Rob]

Bonjour,

Il n'y a pas de longueur limite d'enregistrement, tout au plus convient-il de choisir le mode d'accès approprié (par exemple, en mode binaire tu peux écrire autant d'octets que tu veux).

Si tu as un problème d'enregistrement, le souci est ailleurs.
Peut-être pourrais-tu envoyer un exemple complet de code, avec un lot de données exemples, que nous puissions tester sans devoir créer un programme.

Note que je vois une anomalie dans le code que tu transmets : La structure se nomme NomGeneral et tu déclares une variable NG de type NomG. Est-ce bien normal ?
Autre anomalie, dans la structure tu nommes un champ Départ : Depart sans accentué serait mieux; Les accentués sont à bannir des codes.

Cdt ...

[Fritsche Alberrt]

Bonjour et merci pour vos informations. Rassurez-vous, dans mon code la structure et les champs sont parfaitement alignées. J'ai ecris mon message un peu rapidement.
Entre temps j'ai trouvé la solution à mon problème en modifiant ma structure comme ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Structure NomG
        Dim Numéro As Single
        Dim NoAdd As Single
        <VBFixedString(50)> Dim T1 As String
        <VBFixedString(10)> Dim T2 As String
        Dim S1 As Integer
        Dim S2 As Integer
        Dim S3 As Integer
        Dim S4 As Integer
        <VBFixedArray(17)> Public D1() As Integer
        <VBFixedArray(17)> Public D2() As Integer
        <VBFixedArray(17)> Public D3() As Integer
    End Structure

Bonne journée

[Phil Rob]

Fort bien ...

Je vois que tu as encore un champ avec accentué : Numero serait mieux que Numéro. Celui-là m'avait échappé hier ...

Bonne journée