A voir également:
- [vb.net] Lire et écrire datagridview fichier
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fichier rar - Guide
- Lire fichier epub - Guide
- Fichier host - Guide
- Fichier iso - Guide
2 réponses
Utilisateur anonyme
Modifié par Lupin.PC4 le 2/02/2012 à 19:32
Modifié par Lupin.PC4 le 2/02/2012 à 19:32
Bonjour,
Il existe plusieurs façon ...
Voici un exemple brut :
Pour les colonnes du DGV tu crée une [ Entité ]
Ensuite tu crée une classe Liste de ce type d'entité.
Et pour terminer, tu affecte cette liste à un objet BindingSource,
il ne reste qu'a lire et écrire dans la liste !
Ex.:
La classe Entité
La classe Liste
Dans le formulaire :
<ocde>
Private Sub Lire()
Dim LaListe As List(Of Entite) = New List(Of Entite)
LaListe = LectureFichier ' Voir second message
Me.bsListe.DataSource = GetType(Entite)
Me.bsListe.DataSource = LaListe
Me.DGV_Donnees.DataSource = bsListe
End Sub
Private Sub Ecrire()
EcrireFichier ' Voir second message
End Sub
</code>
Cdt
Lupin
Il existe plusieurs façon ...
Voici un exemple brut :
Pour les colonnes du DGV tu crée une [ Entité ]
Ensuite tu crée une classe Liste de ce type d'entité.
Et pour terminer, tu affecte cette liste à un objet BindingSource,
il ne reste qu'a lire et écrire dans la liste !
Ex.:
La classe Entité
Public Class Entite Private zNom As String = String.Empty Private zPrenom As String = String.Empty Public Property Nom() As String Get Return Me.zNom End Get Set(ByVal value As String) Me.zNom = value End Set End Property Public Property Prenom() As String Get Return Me.zPrenom End Get Set(ByVal value As String) Me.zPrenom = value End Set End Property Public Sub New() End Sub End Class
La classe Liste
Public Class CollectionEnt Inherits List(Of Entite) Public Sub New() End Sub End Class
Dans le formulaire :
<ocde>
Private Sub Lire()
Dim LaListe As List(Of Entite) = New List(Of Entite)
LaListe = LectureFichier ' Voir second message
Me.bsListe.DataSource = GetType(Entite)
Me.bsListe.DataSource = LaListe
Me.DGV_Donnees.DataSource = bsListe
End Sub
Private Sub Ecrire()
EcrireFichier ' Voir second message
End Sub
</code>
Cdt
Lupin
Utilisateur anonyme
2 févr. 2012 à 19:30
2 févr. 2012 à 19:30
Bonjour,
Suite :
Voici le code pour l'appel à le lecture et l'écriture :
Cdt
Lupin
Suite :
Voici le code pour l'appel à le lecture et l'écriture :
Private Function LectureFichier() As List(Of Entite)
Dim Chemin As String = Application.ExecutablePath
Dim Position As Int32 = Chemin.LastIndexOf("\")
Dim Dossier As String = Chemin.Substring(0, (Position + 1))
Dim LeFichier As StreamReader = File.OpenText(Dossier & "spitab.txt")
Dim LaListe As New CollectionEnt
Dim EntY As Entite
Dim Chaine As String = String.Empty
Do Until LeFichier.Peek = -1
Chaine = LeFichier.ReadLine
EntY = New Entite
EntY.Prenom = Chaine.Substring(0, Chaine.LastIndexOf(" ")).Trim
EntY.Nom = Chaine.Substring(Chaine.LastIndexOf(" ")).Trim
LaListe.Add(EntY)
Loop
LeFichier.Close()
Return LaListe
End Function
Public Sub EcrireFichier()
Dim Chemin As String = Application.ExecutablePath
Dim Position As Int32 = Chemin.LastIndexOf("\")
Dim Dossier As String = Chemin.Substring(0, (Position + 1))
Dim NomFichier As String = Dossier & "monfichier.txt"
Dim LeFichier As New StreamWriter(NomFichier, True)
For Each EntX As Entite In bsListe
LeFichier.WriteLine(String.Format("{0}{1}{2}",EntX.Prenom," ",EntX.Nom)
Next
LeFichier.Close()
End Sub
Cdt
Lupin
