Question

vb ListView循环加载文本

text1里内容如下: 多行文本

张佳|22|学生|上海|
李乐|24||上海|
赵文博|34|经理||
...省略

ListView列头:

姓名 年龄 职务 城市

我要循环从text1里读取数据加载到ListView中...
用"|"做分隔,如果两个"|"之间无数据,则那个数据空着...

正常加载后应该是:

姓名 年龄 职务 城市
张佳 22 学生 上海
李乐 24 上海
赵文博 34 经理

这样...麻烦知道怎么弄的教教...谢谢!!!回答满意追加分数!!

Answer 1

'在窗体上加入listview控件
Private Sub Form_Load()
Dim clm As ColumnHeader
Dim itm As ListItem
'
' 清除存在的数据（包括标题和记录）
'
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.View = 3
ListView1.LabelEdit = lvwManual
Set clm = ListView1.ColumnHeaders.Add(, , "姓名")
Set clm = ListView1.ColumnHeaders.Add(, , "年龄")
Set clm = ListView1.ColumnHeaders.Add(, , " 职务")
Set clm = ListView1.ColumnHeaders.Add(, , "城市")

'读文件至变量
Dim FileName As String, i As Integer, j As Integer, s As String
Dim a() As String, b() As String, BB() As Byte
FileName = App.Path & "\1.txt" '请根据实际修改
If Dir(FileName) = "" Then Exit Sub
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #i
Get #i, , BB
Close #i
s = StrConv(BB, vbUnicode)
a = Split(s, vbNewLine)

'把数据追加到listview中
For i = 0 To UBound(a)
b = Split(a(i), "|")
If UBound(b) = 4 Then
Set itm = ListView1.ListItems.Add(, "Row" & i, b(0))
For j = 1 To 3
itm.SubItems(j) = b(j)
Next
End If
Next
End Sub

Answer 2

用line input 一行一行地读文件，每行用split分隔。代码参考：
dim A,R as string
open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,R
A=split(R,"|")
'把A(Lbound)至A(Ubound)加载到ListView中
loop

Answer 3

这个程序很容易，只需要把数据读出来后，用SPLIT进行分割就是了。