en effet désolé de ma mauvaise explication mais c est un fait
si dans le texte titi apparait plusieurs fois il sera toujours remplacé par tata (lol pointe d humour).
en somme je cherche une sorte de traduction si je peux m exprimer ainsi
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim ofile AS IO.StreamReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aline() As String
Dim ofile As IO.StreamReader
Dim sPath As String
Dim objReader As IO.StreamReader
Dim sLine As String
Dim arrText As New ArrayList()
Dim sSeperator As String
Dim lvi As ListViewItem
sLine = ""
sPath = "c:\temp\toto.txt"
sSeperator = ","
objReader = New IO.StreamReader(sPath)
If IO.File.Exists(sPath) Then
ListView1.View = View.Details
ListView1.Columns.Add("colonne 1")
ListView1.Columns.Add("colonne 2")
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
aline = sLine.Split(sSeperator)
lvi = New ListViewItem(aline)
ListView1.Items.Add(lvi)
End If
Loop Until sLine Is Nothing
objReader.Close()
End If
End Sub
"....il semble que l instruction Dim ofile ne soit pas nécessaire..."
Dim arrText As New ArrayList()
ListView1.Items.Clear()
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim sPath As String
sPath = "c:\temp\toto.txt"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aline() As String
Dim objReader As IO.StreamReader
Dim sLine As String
Dim sSeperator As String = ","
Dim lvi As ListViewItem
sLine = ""
Listview.Items.Clear()
ListView1.View = View.Details
ListView1.Columns.Add("colonne 1")
ListView1.Columns.Add("colonne 2")
OpenFileDialog1.Filter = "Fichier (*.txt)|*.txt"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
objReader = New IO.StreamReader(OpenFileDialog1.FileName)
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
aline = sLine.Split(sSeperator)
lvi = New ListViewItem(aline)
ListView1.Items.Add(lvi)
End If
Loop Until sLine Is Nothing
objReader.Close()
End if
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadne doit surtout pas être modifiée comme tu dit ! C'est une procédure événement qui se déclenche au chargement de la feuille ! Elle doit donc rester Private
Listview1.Items.Clear()