VB listview 读取文本操作

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

请问大神们如何能让list view 读取人如上内容呢??
谢谢
展开
 我来答
匿名用户
2015-04-02
展开全部
'自己选个事件加入下面代码(仅供参考思路。。)
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中了,有了数据后操作就不用我写了,而且写了也不一定和你所要的对得上,就自己写吧。这只是个思路,我还未调试,只是现打的,希望对你有所帮助!
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式