"Item"|"SubItem1"|"SubItem2"
"Item"|"SubItem1"|"SubItem2"
Item|SubItem1SubItem2
Item|SubItem1|SubItem2
Item SubItem SubItem2
Item SubItem1 SubItem2
"Item" "SubItem1" "SubItem2"
"Item" "SubItem1" "SubItem2"
Private Sub Command1_Click()
Dim FF As Integer, tablgen, tabligne, sep As String, i as Long, j as Long
sep = "|"
With ListView1
.View = lvwReport
.Width = Me.Width
.Left = 0
.ColumnHeaders.Add , , "noms", .Width / 3
.ColumnHeaders.Add , , "prénoms", .Width / 3
.ColumnHeaders.Add , , "âge", .Width / 3
FF = FreeFile
Open "d:\essai.txt" For Input As #FF
strtext = Input(LOF(FF), #FF)
Close #FF
tablgen = Split(strtext, vbCrLf)
Dim itmX As ListItem
For i = 0 To UBound(tablgen)
tabligne = Split(tablgen(i), sep)
Set itmX = .ListItems.Add(, , tabligne(0))
For j = 1 To UBound(tabligne)
itmX.SubItems(j) = tabligne(j)
Next
Next
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question