Utilisation d'une structure pour formater un enregistrement dans un fichier text

Version imprimable

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:

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:

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.

Bonjour

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

Code:

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:

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...

Utilisation d'une structure pour formater un enregistrement dans un fichier text

Merci cela fonctionne parfaitement !

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

Code:

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

09/12/2016, 15h54
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...)
12/12/2016, 08h42
maloue

re

Merci pour les explications.