Question

vb6 如何将文本框内容按第二列（编码列）将第一列分割成几个数组如下面的例子

35.1 1
32.8 1
28.4 1
32.1 1
25.9 1
28.9 1
24.2 1
22.0 1
22.7 1
31.6 1
23.0 1
27.3 1
20.4 1
21.5 1
31.1 1
19.6 1
17.0 1
17.3 1
34.7 1
13.4 1
33.8 1
23.6 1
35.1 1
33.9 1
35.2 1
36.4 1
33.6 1
22.2 1
32.5 1
19.9 1
27.7 1
17.8 1
14.8 1
19.4 1
24.7 1
17.8 1
24.9 2
8.2 2
23.2 2
20.5 2
18.0 2
19.5 2
22.3 2
18.1 2
18.4 2
8.1 2
7.2 2
14.0 2
39.0 2
14.1 2
22.8 2
14.7 2
18.2 2
14.8 2
19.6 3
22.7 3
27.1 3
31.2 3
22.5 3
27.5 3
19.7 3
26.5 3
26.2 3
33.2 3
34.5 3
17.5 3
28.9 3
33.1 3
33.3 3
34.0 3
30.3 3
20.8 3
15.4 4
11.7 4
28.6 4
19.9 4
16.0 4
21.6 4
14.8 4
15.8 4
17.8 4
18.4 4
15.9 4
14.7 4
17.2 4
13.6 4
11.9 4
15.3 4
16.5 4
15.4 4
18.4 4
19.4 4
30.8 4
24.6 4
11.7 4
42.5 4
23.4 4
24.3 4
37.3 4
13.9 4
38.3 4
47.6 4
46.3 4
30.2 4
5.5 4
28.7 4
16.0 4
32.4 4
10.8 4
23.9 4
24.7 4
21.2 4
24.5 4
18.6 4
19.5 4
21.1 4
21.5 4
22.1 4
18.3 4
15.2 4
20.8 4
14.3 4
17.4 4
50.0 5
22.8 5
17.5 5
15.8 5
17.1 5
17.5 5
14.0 5
21.0 5
12.8 5
15.9 5
15.2 5
25.9 5
12.2 5
15.0 5
9.0 5
19.1 5
8.1 5
17.1 5
20.5 5
14.3 5
15.4 5
19.5 5
15.5 5
18.3 5
15.1 5
19.0 5
23.4 5
15.8 5
18.9 6
13.9 6
20.6 6
16.6 6
9.5 6
21.9 6
22.7 6
33.1 6
23.9 6
15.7 6
28.7 6
10.1 6
22.1 6
20.8 6
21.4 6
15.1 7
15.8 7
21.8 7
8.4 7
18.4 7
14.0 7
19.2 7
18.8 7
19.2 7
19.5 7
19.4 7
18.2 7
15.1 7
18.5 7
16.6 7
20.1 7
20.1 7
19.9 7
19.4 7
21.7 8
20.0 8
17.2 8
23.6 8
13.3 8
20.3 8
29.6 8
14.2 9
13.9 9
17.6 9
14.9 9
17.8 9
13.1 9
15.6 9
20.7 9
49.1 9
19.3 9
19.5 9
19.5 9
19.0 9
20.1 9
19.1 9
15.6 9
17.7 9
以上内容分割成9个数组，并且求出每个数组的元素数
对不起我的财富数为0不能给你了，请高手赐教
非常感谢你的回答。还得请教 每个数组的元素数得到了，但比如说我要的是9个数组例：
c(0)=35.1
c(1)=32.8
.
.
.
c(35)=17.8
d(0)=24.9
d(1)=8.2
.
.
.
d(17)=14.8
共9个数组还如何得到。我得利用分别利用这9个数组进行计算绘制9个直方图

Answer 1

加两个text，一个按钮，把他们的mulline设为true，scorllbar设为2.把那些写入text1，text2供输出结果
代码：

Private Sub Command1_Click()
On Error Resume Next
z = 1
For i = 1 To 9
a = InStrRev(Text1, i & vbCrLf)
b = Mid(Text1, z, a - z + 1)
Select Case i
Case Is = 1
c = Split(b, 1 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(c) + 1 & vbCrLf
Case Is = 2
d = Split(b, 2 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(d) + 1 & vbCrLf
Case Is = 3
e = Split(b, 3 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(e) + 1 & vbCrLf
Case Is = 4
f = Split(b, 4 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(f) + 1 & vbCrLf
Case Is = 5
g = Split(b, 5 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(g) + 1 & vbCrLf
Case Is = 6
h = Split(b, 6 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(h) + 1 & vbCrLf
Case Is = 7
x = Split(b, 7 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(x) + 1 & vbCrLf
Case Is = 8
j = Split(b, 8 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(j) + 1 & vbCrLf
Case Is = 9
k = Split(b, 9 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(k) + 1 & vbCrLf
End Select
z = a
Next
End Sub

你可以用
for i=0 to ubound（c）
c（i）=...
next
来读取每个数