level 2
学习中，一个简单电气计算模式。txt文件中如下：
1. 电压值
220V
2.电流值
20A
3.导线长度
500m
4.损耗
1000w
我需要将实际数据即偶数行的数据读入到数组a()中，然后进行必要的其他计算，每次只要更改数据就行，请问如何隔行读取数据呢？
2020年12月19日 07点12分
1
level 2
15个参数
Dim S(30) As String
I = 1
Open "C:\Users\Administrator\Desktop\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, S(I)
I = I + 1
Loop
Close #1
2020年12月21日 04点12分
4
这样全部读取出来，然后再间隔使用也可以
2020年12月21日 05点12分
@初音✨七奈 是的，我用偶数数组值就行，一次定好就不变了，谢谢
2020年12月21日 06点12分
@初音✨七奈 你看我最后改了一下，就是1到15了，这样对吧
2020年12月21日 06点12分
level 2
15个参数
Dim S(30) As String
I = 1
Open "C:\Users\Administrator\Desktop\1.txt" For Input As #1
Do While Not EOF(1)
For J=1 to 2
Line Input #1, S(I)
Next J
I = I + 1
Loop
Close #1
这样就是S1到S15了...
2020年12月21日 06点12分
6
![[呵呵]](/static/emoticons/u5475u5475.png)