VB中怎样数组里存储呢?   我懂得是字符串里存储方法, 但是要读取数据时,每次读取时不能原来的数据来读取。如,原来的数据12 ,2, 23 这样长度不确定的情况下,在字符串里读取时,无法确定它的长度。  我想,数组里存储,然后,读取时可以原来的长度数据读出来呢? 长度是不固定的 ,就是1 到 3的长度之间。   怎样使用数组呢?

解决方案 »

  1.   

    存储的时候用vbtab分割一下arr =arr &j &vbtab,然后在arr =split(arr,vbtab),arr就是一行一行的数据了 
    这个怎样使用呢?我好久研究了这个,怎么总是数据类型不匹配。 
    最好实例来演示一下吧。
      

  2.   

    Option ExplicitPrivate Sub Command1_Click()
      Dim Data As String
      Dim Arr(1 To 20) As Long  '原来数组里面的数据 Arr
      
      Dim bArr() As String  '
      
      Dim i As Long
      '给原始数组 Arr 赋值
      For i = 1 To 20
        Arr(i) = i
      Next
      
      
      '将原始数组中的数据赋值给一个字串
      For i = 1 To 20
         Data = Data & i & vbTab
      Next
      
      '看一下Data里面的数据
      MsgBox Data
      
      '将字串中的数据放至另一个数组中
      bArr = Split(Data, vbTab)
      
      If UBound(bArr) <> -1 Then '如果等于-1表示返回的数组是空的。不能进行处理。强制处理会出错。
         For i = 1 To UBound(bArr)
           MsgBox bArr(i - 1) '按顺序读出重新分离后的数组数据
         Next
      End If
      
    End Sub