Discussion :

[maloue]

Bonjour,

Je n'arrive pas à exploiter la structure que j'ai créée pour l'utiliser lors de l'enregistrement dans un fichier text.

J'ai la structure suivante pour exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Public Structure Ligne_Import_Cde
        Public Champ1 As String
        Public Const pointVirgul As String = ";"
        Public Champ2 As String
        Public Const pointVirgul1 As String = ";"
        Public Champ3 As String
        Public Const pointVirgul As String = ";"
        Public Champ4 As String
End Structure

J'aimerai utiliser Ligne_Import_Cde pour formater l'enregistrement lors de l'écriture du fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim enreg as Ligne_Import_Cde = new Ligne_Import_Cde
 
enreg.Champ1 = "DUPOND"
enreg.Champ2 = "JEAN"
enreg.Champ3 = "20"
 
 FileOpen(1,"C:\ESSAI.TXT", OpenMode.Append)
 PrintLine(1,enreg)
FileClose(1)

J'ai un pb de conversion de Ligne_Import_Cde en string.
Quelqu'un peut m'aider.

Par avance Merci.

[MABROUKI]

Bonjour

Ton structure serait plus efficient s'il est revu comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
 
 
Public Structure Ligne_Import_Cde
    Public Const Sep As String = ";"
    Public Champ1 As String
    Public Champ2 As String
    Public Champ3 As String
    Public Champ4 As String
    Public Overrides Function ToString() As String
        Return Champ1 + Sep + Champ2 + Sep + Champ3 + Sep + Champ4
    End Function
End Structure

code du form utilisateur :

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
28
29
 
 
Public Class Form1
    Private ListEnregs As New List(Of Ligne_Import_Cde)
    Private enreg As Ligne_Import_Cde
    Private CheminFichier As String = Application.StartupPath + "\ESSAI.TXT"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListEnregs.Clear()
        For i As Integer = 1 To 10
            enreg = New Ligne_Import_Cde
 
            enreg.Champ1 = "DUPOND" + i.ToString
            enreg.Champ2 = "JEAN" + i.ToString
            enreg.Champ3 = "20" + i.ToString
            enreg.Champ4 = "BOBARD" + i.ToString
            ListEnregs.Add(enreg)
        Next
 
        ListBox1.DataSource = ListEnregs
 
        FileOpen(1, CheminFichier, OpenMode.Append)
        For Each item As Ligne_Import_Cde In ListEnregs
            PrintLine(1, item.ToString)
 
        Next
        FileClose(1)
 
    End Sub
End Class

bon code...

[maloue]

Merci cela fonctionne parfaitement !

Pouvez vous m'expliquer la syntaxe de la fonction imbriquée dans la structure.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Structure Ligne_Import_Cde
    Public Const Sep As String = ";"
    Public Champ1 As String
    Public Champ2 As String
    Public Champ3 As String
    Public Champ4 As String
    Public Overrides Function ToString() As String
        Return Champ1 + Sep + Champ2 + Sep + Champ3 + Sep + Champ4
    End Function
End Structure

Merci

[MABROUKI]

re
Un peu difficile vu ton niveau ,mais en gros:
1/ Tout Class Perso déclare par tes soins hérite du Class Object (System. Object)
Il faut avoir des notions d'héritage...

2/Ce Class -ancêtre- Object possède une fonction ToString() qui, normalement ,renvoie le nom du Type préfixé par le NameSpace (NomProjet.Ligne_Import_Cde) ...

3/Cette fonction peut être "overrides" (surchargé) pour renvoyer un string composé de ce que tu souhaites au lieu du nom du type ...( tape public overrides dans l'IntelliSense pour la voir et conclut par la touche espace...)

[maloue]

Merci pour les explications.