UC知道vb读取数据（txt里 一列共17个数）到一位数组
来源：百度知道 编辑：UC知道 时间：2024/09/21 14:41:08
Private Sub Command4_Click()
Dim x() As Integer
Dim a As Double
Dim i As Integer
Open "d:\1.txt" For Input As #1
Input #1, n
ReDim x(n) As Integer
For i = 1 To 17
Input #1, x(i)
Text1.Text = Text1.Text & x(i) & Chr(13) & Chr(10)
Next i
close #1
做完了之后，第一个数据没了 其他正常
非常感谢
已经是 option base 1
而且，这段就是抄的去掉第一个数据的代码，我找不到从第一个数据开始的代码了
这段代码里redim时已经重新定义数组大小了且文件指针在第二个数据，for从第二个开始
1，要求txt里的17个数是y（1）到y（17）
二楼的可以在text里把第一个数显示出来，但y（1） 依然是第二个数
2 三楼 第一个数据依然没有，而且输入后显示 输入超出文件尾
Dim x() As Integer
Dim a As Double
Dim i As Integer
Open "d:\1.txt" For Input As #1
Input #1, n
ReDim x(n) As Integer
For i = 1 To 17
Input #1, x(i)
Text1.Text = Text1.Text & x(i) & Chr(13) & Chr(10)
Next i
close #1
做完了之后，第一个数据没了 其他正常
非常感谢
已经是 option base 1
而且，这段就是抄的去掉第一个数据的代码，我找不到从第一个数据开始的代码了
这段代码里redim时已经重新定义数组大小了且文件指针在第二个数据，for从第二个开始
1，要求txt里的17个数是y（1）到y（17）
二楼的可以在text里把第一个数显示出来，但y（1） 依然是第二个数
2 三楼 第一个数据依然没有，而且输入后显示 输入超出文件尾
Private Sub Command4_Click()
Dim x() As Integer
Dim a As Double
Dim i As Integer
Open "d:\1.txt" For Input As #1
Input #1, n
Text1.Text=Text1.Text & cstr(n) & Chr(13) & Chr(10)
ReDim x(n) As Integer
For i = 1 To 17
Input #1, x(i)
Text1.Text = Text1.Text & x(i) & Chr(13) & Chr(10)
Next i
close #1
mark
Dim x() As Integer
Dim a As Double
Dim i As Integer
Dim n As Integer
Dim m As Integer
Open (App.Path + "\说明.txt") For Input As #1
Input #1, n
m = n
ReDim x(n) As Integer
For i = 1 To m
Input #1, x(i)
Text1.Text = Text1.Text & x(i) & Chr(13) & Chr(10)
Next i
Close #1
这样写，而且你要把Text1的多行显示和竖直方向滚动条属性都开开，才能看到回车的效果