使用 vb 读取 tex 文件，并且把每一行的值赋值到数组中，然后调用数组里的值进行运算，请问我的算法应该怎么改进

Milita29 发布于 2014-04-20 10:16， 567 次点击

数据文件
21.365
24.052
20
18
1.246
4.562
-3.102
我的程序
Dim fileName As String
Dim startnumber%, endnumber%
Const MyFile = 1
Dim i%
Dim j%
Dim T(100) As Double
Dim s(8) As Double
Open "D:\date.txt" For Input As #MyFile '打开文件
Input #MyFile, startnumber, endnumber '读文件
For i = startnumber To endnumber
Input #MyFile, T(i)
Next i
Close #MyFile '关文件
For j = 5 To 7
List1.AddItem T(j)
Next j

2 回复

夜的影子2014-04-22 20:14

不喜欢用符号这种声明方式，读起来很不习惯。

appsion2014-05-18 09:29

Private Sub Command1_Click()
Dim str As String
Dim strn() As String
Dim i As Integer
i = 1
Open "e:\1.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve strn(i)
Input #1, str
strn(i) = str
'Print strn(i)
i = i + 1
Loop
Close #1

For a = 1 To UBound(strn)
Print strn(a)
Next
End Sub