为什么每次打印出来的都是第一行的数据？？

答案:2 悬赏:40 手机版

解决时间 2021-02-04 06:33

提问者网友：寂寞撕碎了回忆
2021-02-03 11:01

Private Sub Command1_Click()
Open "D:\Term.csv" For Input As #1
Do While Not EOF(1)
Line Input #1, str
str1 = Split(str, vbCrLf)
Loop

For i = 0 To UBound(str1())
dest_str = Split(str1(i), ",")

Print dest_str(0)
Print dest_str(1)
Print dest_str(2)
Print dest_str(3)
Next
Close #1
End Sub
文件内容有很多行，每行也有很多内容，都是以，隔开
每次打印出来的都是第一行的内容，还有最有一个打印出来的内容是第一行最后一个数加上第一行最前面的一个数

最佳答案

五星知识达人网友：你哪知我潦倒为你
2020-06-25 00:00

Private Sub Command1_Click()
Dim i As Integer, N As Integer
Const NMaxLine = 50 '最大行数，可以根据实际设置的大一些。
Dim S(NMaxLine) As String
Open "D:\Term.csv" For Input As #1
i = 0
Do While Not EOF(1)
Line Input #1, S(i)
i = i + 1
Loop
N = i - 1 '实际行数

For i = 0 To N
dest_str = Split(S(i), ",")

Print dest_str(0)
Print dest_str(1)
Print dest_str(2)
Print dest_str(3)
Next
Close #1
End Sub

测试通过。

全部回答

1楼网友：动情书生
2020-09-16 15:39

给你一个思路：用一个gridview控件（其他控件也行），用来显示数据（注意：分页，每页只显示一条数据，不能含有foot<底部>); 下一步，用页码作为遍历条件： int i=0 作为页码 ;count为总的行数； foreach(i;i

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！