j' utilise ce code pour charger une ListView avec un Fichier CSV.
Or il me remplit ma ListView avec des ""
Exemple :
"PATATI"
"PATATA"
et je ne voudrais garder que les :
PATATI
PATATA
Voici mon code :
' ***************************************************
' *** OUVERTURE ET LECTURE DU FICHIER FOURNISSEUR ***
' ***************************************************
Dim TAB(2) 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
LVI.SubItems.Add(1).Text = TAB(1).ToString
LVI.SubItems.Add(2).Text = TAB(2).ToString
LVI.SubItems.Add(3).Text = TAB(3).ToString
LVI.SubItems.Add(4).Text = TAB(4).ToString
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
J' imagine que si des gens me disent ce n'est pas comme cela qu'on traite des informations pour remplir une ListView; Je suis désolé je n' ai réussi que comme cela !!!
Voili / Voilou
Fripouil
A voir également:
Enlever les " " dans une Listview et Fichier *.Csv
Pour info, je récupére mon fichier sur internet, mes séparateurs sont des ;
et si j' ouvre mon fichier et que je le réenregistre à nouveau en CSV les " " n' apparaissent plus.
Fripouil
Vous n’avez pas trouvé la réponse que vous recherchez ?
Non toujours la même erreur.
Alors dans ce cas, il me vient une idée :
Une fois le fichier téléchargé, je devrais peut être l' ouvrir et le réenregistrer à nouveau en CSV en invisible.
Cela est il possible et n' est ce pas trop "lourd" ?
' ***************************************************
' *** 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
J' ai bidouillé ce que tu m' as donné et c' est excellent !!!!!!!