配列の初期化に時間がかかります・・。

解決済

質問者：kukkychan
質問日時：2002/07/18 19:37
回答数：4件

グローバルで宣言した構造体の配列に
2万件ほどの情報をかくのうしました。
あるタイミングでその情報をクリアしたいのですが
ものすごく時間がかかります。
　Redim　AAA(0)
でクリアしても時間かかるし（300秒)
　Erase AAA
でもかなりの時間がかかります。（350秒)
これ以外に配列の初期化方法をご存知でしたら
教えてくださいよろしくお願いします。

　

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： TAGOSAKU7
回答日時：2002/07/20 02:37

ある程度の法則を持ってもよいのなら、ＡＰＩがあります。

ZeroMemoryです。
VBのString型は文字列の長さによってバイト数が変化するため、あらかじめバイト数を指定しておかないといけません。
もしそれを指定しないと、ひとつひとつの配列のサイズがバラバラのため、きちんと開放されなかったり、必要なメモリ領域まで開放するおそれがあります。もしVariantなどが含んでいるならばこれは使わないほうが良いかと思います。

サンプルでは
Byte = １バイト
Integer = ２バイト
Long = ４バイト
String = 文字長によって可変。サンプルでは１００バイト
なので、配列は１０７×２５６バイトの領域を使用しているのがわかります。

－－－－－－－－－－－－－－－これよりサンプル－－－－－－－－－－－－－－－

'テスト用の適当な構造体
Private Type typetype
　　bytTest As Byte
　　intTest As Integer
　　lngTest As String
　　strTest As String * 100
End Type

'初期化するＡＰＩ第一パラ：構造体の先頭ポインタ／第二パラ：サイズ
Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (ByVal Destination As Long, ByVal Length As Long)

'構造体の配列数
Private Const DEF_ARY_SIZE　As Long = 256

Private Sub Command1_Click()
　　Dim testTest(DEF_ARY_SIZE - 1) As typetype
　　Dim i　 As Long
　　
　　'適当な値を設定
　　For i = LBound(testTest) To UBound(testTest)
　　　　With testTest(i)
　　　　　　.bytTest = i
　　　　　　.intTest = i * 10
　　　　　　.lngTest = i * 100
　　　　　　.strTest = Chr(i)
　　　　End With
　　Next i

　　'構造体の初期化
　　Call ZeroMemory(ByVal VarPtr(testTest(0)), Len(testTest(0)) * DEF_ARY_SIZE)
End Sub