奇怪的数据类型Variant,关于函数参数传递问题,高手请进!!

[ediex]

本人在做一个数据采集软件,采集后的数据放入一数组中,传入下面的一类的成员函数存储.


成员函数
Public Sub SaveData(vatDataStream As Variant)
ReDim vatDataStream (100, 10000)As Integer
End Sub
入口参数vatDataStream 为一二维数组,数据量很大,可能达到好几百M.
传入后重新定义为integer型.

然后写入文件,代码如下

hdlFile = FreeFile()
Open FilePath For Binary Access Write As hdlFile

i = UBound(vatDataStream, 1)
j = UBound(vatDataStream, 2)
Put hdlFile, , i
Put hdlFile, , j
Put hdlFile, , intArrayCov

Close hdlFile

打开二进制文件后,发现写入的文件和原数组不一样.


后来我用for语句把vatDataStream 转换到一个新定义的Integer数组后,写入的文件和原数组一样

但因为数组很大不想用for语句转换,请问如何解决??

[yachong]

ReDim vatDataStream (100, 10000)As Integer
改成
ReDim preserve vatDataStream (100, 10000)As Integer

我没有测试，不知道是否可行

[chanfengsr]

楼主直接用ReDim 那还传参数过来干吗？
楼上的说得对，用ReDim Preserve

其次Variant本身就是在数组这方面不好控制，因为不容易知道字节长度。

还有虽然VB默认传参是传地址,但保险起见还是把ByRef加上吧！

[ediex]

传数组是不行的,我试了很多次,

[guyehanxinlei]

反正最后是要写入文件的，为什么不用一个临时文件存放一下，入库时从临时文件读呢？

[ZOU_SEAFARER]

Public Sub SaveData(vatDataStream As Variant)
ReDim vatDataStream (100, 10000)As Integer
End Sub

ReDim 把内存里面的所有数据都clear了!你写进去的恐怕都是0吧

[韧恒]

为什么要Public Sub SaveData(vatDataStream As Variant)？直接传个数组不就行了？

Public Sub SaveData(vatDataStream() As Integer)


或者传这个数组的地址，然后在函数中再处理

[WM_JAWIN]

ReDim vatDataStream () 中间加一个prsver
建议不要用Variant.
或者你可以新定义一个组,然后通过API:CopyMemory()复制进去