数组的定义

kings12333

获取了网页一些数据，用Debug显示出来的数据是这样的：
100
101
102
103
104
105
我怎么把这些数据用数组的方式来暂时装起来呢？不知道怎么表达。。就相当于临时存放。。

活在理想的世界

这种情况一般都是定义个公有数组

kings12333

活在理想的世界 发表于 2017-12-17 19:45
这种情况一般都是定义个公有数组

怎么定义请教？

活在理想的世界

kings12333 发表于 2017-12-17 19:46
怎么定义请教？

放在顶楼，独立于所有的过程之外。

还有就是看看什么情况吧。或许你问的问题是如何使用动态数组呢？这个要根据具体情况。

ivccav

不知楼主的数据是怎么获得的，不好评论。如果是逐渐获得的，可以定义动态数组，举例说明：
Sub test()
Dim arr
For i = 1 To 4
    If IsEmpty(arr) Then ReDim arr(1 To 1) Else ReDim Preserve arr(1 To UBound(arr) + 1)
    arr(UBound(arr)) = i
Next
Debug.Print arr(1), arr(2), arr(3), arr(4)
End Sub

'答案： 1             2             3             4
ReDim Preserve能保留原数组数值。

kings12333

ivccav 发表于 2017-12-17 19:50
不知楼主的数据是怎么获得的，不好评论。如果是逐渐获得的，可以定义动态数组，举例说明：
Sub test()
Di ...

数据的获取是For...Next循环获取，是不是把这段这样写
Open path For Input As #1'打开文件
Do While Not EOF(1)
   Line Input #1, tmp
   
If tmp <> "" Then'判断是不是空的
    If IsEmpty(arr) Then ReDim arr(1 To 1) Else ReDim Preserve arr(1 To UBound(arr) + 1)
    arr(UBound(arr)) = tmp
    end if
Loop
Close #1

kings12333

ivccav 发表于 2017-12-17 19:50
不知楼主的数据是怎么获得的，不好评论。如果是逐渐获得的，可以定义动态数组，举例说明：
Sub test()
Di ...

再请教个数组问题，比如ListBox1控件只有行数，没有列数，这时候我要将ListBox1所有行的内容定义为数组怎么表达呢？获取总行数我知道，比如: s=List1.ListCount-1，但定义数组就不会了

duquancai

kings12333 发表于 2017-12-17 19:58
数据的获取是For...Next循环获取，是不是把这段这样写
Open path For Input As #1'打开文件
Do While N ...

Open Path For Input As #1 '打开文件
Dim tem$, arr(), n&
Do While Not EOF(1)
    Line Input #1, tmp
   
    If tmp <> "" Then '判断是不是空的
        n = n + 1
        ReDim Preserve arr(1 To n)
        arr(n) = tmp
    End If
Loop
Close #1

kings12333

duquancai 发表于 2017-12-17 20:08
Open Path For Input As #1 '打开文件
Dim tem$, arr(), n&
Do While Not EOF(1)

  ReDim Preserve arr(1 To n)，这句是啥意思啊

duquancai

kings12333 发表于 2017-12-17 20:10
ReDim Preserve arr(1 To n)，这句是啥意思啊

我也不知道啥意思。。。。。。。。。。。。