VB 读取文件加载到ListView

来源：百度知道 编辑：UC知道 时间：2024/06/26 01:14:19
文本文件是这样地:

张三,13,上海
李四,24,北京
王五,35,湖南
-----------------------------------------我的代码

ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "名称", 900
ListView1.ColumnHeaders.Add , , "年龄", 800
ListView1.ColumnHeaders.Add , , "城市", 1710

Open "1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, S
t = t + 1
Loop
Close #1'--------------先获得文本总行数,t就是文本总行数

然后:

Open "1.txt" For Input As #1 '(打开文件,方式是读取)
For I = 1 To a ---------------a选几就读第几行
Line Input #1, h '(读取第一行)
Next I
b = h
Close #1 '('关闭文件)

最后加载:

RevData = b
SplitData = Split(RevData, ",")

Set lstItem = ListView1.ListItems.Add(, str, SplitData(0))
lstItem.SubItems(1) = SplitData

你好复杂啊 绕圈子啦
For的使用：
首先Dim 一个数值变量 一般用integer或者Long
然后根据需要进行循环
如
Dim i as integer
Dim s as integer
For i = 0 to 99
s = s + i
Next
以上循环将执行100次，并且每次循环s都会加上当前的i 这样总会用了吧。。

Open "1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, S
t = t + 1
Loop
Close #1'--------------先获得文本总行数,t就是文本总行数

然后:

Open "1.txt" For Input As #1 '(打开文件,方式是读取)
For I = 1 To a ---------------a选几就读第几行
Line Input #1, h '(读取第一行)
Next I
b = h
Close #1 '('关闭文件)
这个烦死了 绕了半天

读取文件：
Dim p() as string
Dim i as integer
Dim tmp as string
Open "1.txt" For Input As #1 '(打开文件,方式是读取)
Do Until EOF(1) '如果没有到文件尾继续读取
line input #1,tmp
redim preserve p(i-1)
p(i) = tmp
i = i + 1
Loop
close #1

这样文件每一行都读取到p里面去了
p(0)就是文件第一行 p(1)就是第二行……
获取p的上界 下界：用i也可以 因为i没有变<