sylpar
Messages postés7Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention21 janvier 2010
-
13 sept. 2005 à 09:22
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 2006
-
13 sept. 2005 à 12:32
Bonjour,
Je voudrais savoir comment importer un fichier texte dans une listview ?
Je voudrais une boite de dialogue me permettant d'aller chercher le fichier texte et qu'après validation, les données du fichier s'intègrent dans la listview.
Si quelqu'un peut m'aider, merci d'avance
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 13 sept. 2005 à 12:32
Bonjour,
Dans une ListView, j'ai pas trouvé comment faire.Par contre dans un TextBox, (propriété Multiligne à True).
Private Sub Command1_Click()
Dim data, tout, crlf
crlf = Chr(13) + Chr(10)
With CommonDialog1
.DialogTitle = "Ouvrir un fichier texte"
.InitDir = "C:"
.FileName = "Text1.txt"
.FilterIndex = 1
On Error GoTo Erreur:
.ShowOpen
End With
Open "C:\Text1.txt" For Input As #1
Line Input #1, data
tout = data
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, data
tout = tout + crlf + data
Wend
End If
Close #1
Text1 = tout
Erreur:
Exit Sub
End Sub