Question

VB listview 读取文本操作

代号 门牌号 是否 状态 电话 手机
C 1:1 yes 在家 819556 417945
D 1:2 no 外出 819555 1123134
E ............................................................省略了还可能有的
F .............................................................希望LISTVIEW 能继续自动向下读取直到没有了

请问大神们如何能让list view 读取人如上内容呢？？
谢谢

Answer 1

'自己选个事件加入下面代码（仅供参考思路。。）
dim QH() as string '记录群号
dim QN() as string '记录群名称
dim QC as long '记录个数
dim TPath as string '记录文本路径
dim i as long ,ii as long '记录光标位置
dim TData as string '记录临时数据
TPath="c:\1.txt" '这里修改文本路径
open TPath for input as #1
Do while not eof(1)
line input #1,tdata
i=instr(tdata,"：")
ii=instr(i,tdata,"：")
redim preserve QH(QC)
redim preserve QN(QC)
QH(QC)=mid(tdata,i+1,ii-i-1)
QN(QC)=mid(tdata,ii+1,len(tdata)-ii)
QC=QC+1
loop
'到这里已经将所有数据读取完成，接下来就是将数据放到listview中了，有了数据后操作就不用我写了，而且写了也不一定和你所要的对得上，就自己写吧。这只是个思路，我还未调试，只是现打的，希望对你有所帮助！