Question

vb listview中全部内容按指定格式写入txt

假设listview1中有如下内容：

1 小王 19岁
2 小张 18岁
....

我需要写入到txt中的格式：
1,小王,19岁
2,小张,18岁
....

Answer 1

Dim i As Long
Dim a As Object
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "序号"
ListView1.ColumnHeaders.Add , , "姓名"
ListView1.ColumnHeaders.Add , , "年龄"
Set a = ListView1.ListItems.Add(, , "1")
a.SubItems(1) = "小王"
a.SubItems(2) = "19岁"
Set a = ListView1.ListItems.Add(, , "2")
a.SubItems(1) = "小张"
a.SubItems(2) = "18岁"
'同理一直添加项

'下面是写入txt,如果1,小王,18岁之间是空格,就把下面print这一行双引号内的逗号改成空格
Open "d:\record.txt" For Output As #1 'open可以设置路径,如果文件不存在则创建一个,存在则覆盖
For i = 1 To ListView1.ListItems.Count
Print #1, ListView1.ListItems(i).Text & "," & ListView1.ListItems(i).ListSubItems(1) & "," & ListView1.ListItems(i).ListSubItems(2)
Next
Close #1

Answer 2

无分不回答，现在世道都要分了

追问

分能吃吗？