Question

vb6.0 listview 读取了Excel的空白行怎么处理

我用listview读取了一个Excel表格，但是出现了几行空白的内容，这几行以前我写过内容后来删了，但是listview还是把他读出来了，该怎么处理呢？

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中了，有了数据后操作就不用我写了，而且写了也不一定和你所要的对得上，就自己写吧。这只是个思路，我还未调试，只是现打的，希望对你有所帮助！

追问

数据读取我写完了，这样