Question

VB提取TXT中数字，其中TXT含有字符（只要channel和count下面的数据）其他都不要，下面是数据的一部分。

Channel Energy Efficiency Counts
1 0.50 0.00000e+000 0
2 1.00 0.00000e+000 0
3 1.50 0.00000e+000 0
4 2.00 0.00000e+000 0
5 2.50 0.00000e+000 0
6 3.00 0.00000e+000 0
7 3.50 0.00000e+000 1
8 4.00 0.00000e+000 8
9 4.50 0.00000e+000 57
10 5.00 0.00000e+000 99
11 5.50 0.00000e+000 145
12 6.00 0.00000e+000 182
13 6.50 0.00000e+000 233
14 7.00 0.00000e+000 260
15 7.50 0.00000e+000 281
16 8.00 0.00000e+000 313
17 8.50 0.00000e+000 355
18 9.00 0.00000e+000 351
19 9.50 0.00000e+000 419
20 10.00 0.00000e+000 398
21 10.50 0.00000e+000 413
22 11.00 0.00000e+000 421
23 11.50 0.00000e+000 437
24 12.00 0.00000e+000 456
25 12.50 0.00000e+000 436
26 13.00 0.00000e+000 448
27 13.50 0.00000e+000 408
28 14.00 0.00000e+000 444
29 14.50 0.00000e+000 457
30 15.00 0.00000e+000 465
31 15.50 0.00000e+000 422
32 16.00 0.00000e+000 420
希望能够代码有解释，本人刚刚接触VB，很多不懂，期待大神的出现

Answer 1

DIM A（29）作为整数存储阵列
点心我作为整数循环变量
点心c由于整数的次数

子产生一个随机数（） BR />随机
对于i = 0?29 '30一个
A（I）= INT（RND（）* 10）0?9
A（I）; ...... />“下一步”

END SUB

的功能countn（N，计算为整数）整数
i = 0至UBound函数（N）
如果N（I）+ 1 =计数，然后countn countn

端的功能

私人Command1_Click（）
呼叫产生一个随机数
C = 5
MSGBOX C＆“”＆countn（A（），c）及“泰晤士报”
END SUB

Answer 2

Private Sub Command1_Click()
Dim Channel() As Integer, Counts() As Integer, a() As String
Dim n As Integer, s As String
Open "d:\1.txt" For Input As #1
n = 0
While Not EOF(1)
Line Input #1, s
a = Split(s, " ")
If UBound(a) >= 3 And IsNumeric(a(0)) Then
ReDim Channel(n), Counts(n)
Channel(n) = Val(a(0))
Counts(n) = Val(a(3))
n = n + 1
End If
Wend
Close #1
End Sub

追问

代码有解释么？O(∩_∩)O~，刚学，有点看不懂

追答

不知道怎么解释，你看哪个不懂，最好先百度一下，找不到再问

Answer 3

1 0.50 0.00000e+000 0

中间有空格的话用split函数
将
1 0.50 0.00000e+000 0
分为1 ， 0.50 ， 0.00000e+000， 0
一个数组中四个元素，取第一个和第四个元素就可以了