Ligne = sr.ReadLine() Ligne = Replace(Ligne, Chr(34), "")
Ligne = Replace(sr.ReadLine(), """", "")?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' *************************************************** ' *** OUVERTURE ET LECTURE DU FICHIER FOURNISSEUR *** ' *************************************************** Dim TAB(0) As String Dim LVI As New ListViewItem Dim sr As StreamReader Dim Ligne As String ' OUVERTURE DE LA BOITE DE DIALOGUE Open_Fichier_Fournisseur.ShowDialog() ' INDIQUE L'EMPLACEMENT DU FICHIER FOURNISSEUR DANS LE LABEL : EMPLACEMENT 01 Lbl_Emplacement_01.Text = Open_Fichier_Fournisseur.FileName ' SI LE LABEL ( EMPLACEMENT 01 ) EST RENSEIGNE If Lbl_Emplacement_01.Text <> "" Then ' ON VIDE LA LISTVIEW : FOURNISSEUR List_Fournisseur.Items.Clear() ' ON CHARGE LES DONNEES DANS LA LISTVIEW : FOURNISSSEUR sr = New StreamReader(Lbl_Emplacement_01.Text) Ligne = "" Ligne = sr.ReadLine() While Not Ligne Is Nothing LVI = New ListViewItem TAB = Ligne.Split(";") LVI.Text = TAB(0).ToString.Replace(Chr(34), "") LVI.SubItems.Add(1).Text = TAB(1).ToString.Replace(Chr(34), "") LVI.SubItems.Add(2).Text = TAB(2).ToString.Replace(Chr(34), "") LVI.SubItems.Add(3).Text = TAB(3).ToString.Replace(Chr(34), "") LVI.SubItems.Add(4).Text = TAB(4).ToString.Replace(Chr(34), "") List_Fournisseur.Items.Add(LVI) TAB = Nothing Ligne = sr.ReadLine() End While sr.Close() ' INDIQUE LE NOMBRE D'ELEMENTS CHARGES DANS LA LIStVIEW : FOURNISSEUR Lbl_Nombre_Fournisseur.Text = List_Fournisseur.Items.Count End If