当前位置：文江博客话题详情

最大字符串数组 VisualBasic WSH

发布于 2024-10-02 09:51:03 字数 306 浏览 0 评论 0原文

我正在 VB 中编写一个 WSH 脚本，以读取通过 .Run 方法使用重定向目录列表生成的大量目录列表。

目录列表大约有 8400 行，但是每次运行脚本时，都会执行以下循环

Do Until DirList.AtEndOfStream Redim 保留 arrData(i) arrData(i) = DirList.ReadLine 我=我+1 循环

在看似随机的 1800 到 3500 行范围内提前终止。这听起来像是数组大小问题还是 shell 内存限制？

我听说有人解析大型日志文件，像我一样一次性读取它们。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

行雁书 2024-10-09 09:51:03

在这种情况下，首先循环遍历文件并计算行数，然后将数组重新调整为所需的确切大小不是更好吗？然后关闭文件再次打开它，这次您实际上将这些行分配给了数组元素吗？

回复收藏 0 原文

篱下浅笙歌 2024-10-09 09:51:03

VBScript 中数组的大小受到几个不同因素的限制，以先到者为准：

最多 (2 ^ 31) - 1 个元素（因为元素数量在内部存储为 Long 值，并且因为没有更大的数据类型可用作索引器）。
最多 60 个维度。
可用系统内存。

然而，这些限制中的大多数除了纯粹的理论练习之外没有任何用处，而且我对编写的任何与它们有关的代码都非常怀疑。

因为你说你只有 8400 行要处理，所以我怀疑你是否遇到了数组大小的理论限制。相反，代码的最大问题是您在循环内使用 Redim Preserve。

MSDN 参考解释了 Redim Preserve 用于调整数组最后一个维度的大小动态地，同时保留其现有内容。它不一定提到它是如何工作的。每次使用 Redim Preserve 时，都会使用您指定的元素数量创建一个新数组，并将前一个数组中的元素值复制到新数组中。这应该立即发出危险信号，因为这意味着在循环的每次迭代中，您都在为一个全新的数组分配空间并填充该数组。在循环中进行的迭代越多，问题只会变得更糟，因为创建的每个新数组的大小都会逐渐变大。

因此，您更有可能溢出 VBScript 为局部变量分配的堆栈空间。（堆栈溢出错误有多合适？）最终那些未使用的数组将被垃圾收集，但是当您在紧密循环中执行此操作时，您会给内存和资源带来巨大的压力。

您最好在数组中分配足够的空间来保存您需要保存的所有目录列表。您不必完全正确地获得最大尺寸。简单地分配超出您需要的阵列仍然比不断创建和销毁新阵列便宜得多。如果您仍然担心这还不够，您可以在循环中检查当前索引是否大于数组中元素的最大数量，如果是，则分配更多空间（例如，是目前规模的两倍）。完成后，您可以使用 Redim Preserve 命令释放多余的空间，同时保留好的数据，但这次只能使用一次！举一个粗略的例子：

Dim MyData()                           ''#declare the array
Dim MaxSize = 10000                    ''#guess an initial size
Redim MyData(MaxSize)                  ''#allocate an array of the initial size

Dim Size
Do Until DirList.AtEndOfStream
    Size = Size + 1                    ''#record the current index

    If Size > MaxSize Then
        ''#The array is full, so allocate more space
        MaxSize = MaxSize * 2          ''#determine a new size (doubling is a good guess)
        Redim Preserve MyData(MaxSize) ''#add more space in the array
    End If

    MyData(Size) = DirList.ReadLine    ''#store this data in the array
Loop

If Size < MaxSize Then
    Redim Preserve MyData(Size)        ''#deallocate the extra space in your array
End If

这可能会节省你的内存，避免滥用数组的常量分配和释放。

The size of arrays in VBScript is limited by a few different things, whichever comes first:

A maximum of (2 ^ 31) - 1 elements (because the number of elements is stored internally as a Long value, and because there is no larger data type available to use as an indexer).
A maximum of 60 dimensions.
Available system memory.

Most of these limits are of no use beyond purely theoretical exercise, however, and I'd be very suspicious of any code written that had to be concerned with them.

Because you say that you only have 8400 lines to process, I doubt you're running into the theoretical limits placed on the size of an array. Instead, the biggest problem with your code is that you're using Redim Preserve inside of a loop.

The MSDN reference explains that Redim Preserve is used to resize the last dimension of the array dynamically, while preserving its existing contents. What it doesn't necessarily mention is how it works. Each time you use Redim Preserve, a new array is created with the number of elements that you specify, and the values of the elements in the previous array are copied into the new one. This should be sending up red flags immediately, because it means that on each iteration of your loop, you're allocating space for and filling an entirely new array. The problem only gets worse the more iterations you've made in the loop, because the size of each new array that is created is growing incrementally larger.

Thus, it's more likely that you're overflowing the stack space that VBScript allocates for local variables. (How appropriate—a stack overflow error?) Eventually those unused arrays will be garbage collected, but you're putting a giant amount of pressure on memory and resources when you do this in a tight loop.

You are far better off simply allocating enough space in your array to hold all of the directory listings that you'll need to hold. You don't necessarily have to get the maximum size exactly right. Simply allocating more than you'll need is still far cheaper than continually creating and destroying new arrays. If you're still concerned that this won't be enough, you can check in the loop if the current index is greater than the maximum amount of elements in the array, and if so, allocate a lot more space (by, say, doubling its current size). After you get finished, you can deallocate the excess space while retaining the good data using the Redim Preserve command, but this time only once! For a rough knock-up example:

Dim MyData()                           ''#declare the array
Dim MaxSize = 10000                    ''#guess an initial size
Redim MyData(MaxSize)                  ''#allocate an array of the initial size

Dim Size
Do Until DirList.AtEndOfStream
    Size = Size + 1                    ''#record the current index

    If Size > MaxSize Then
        ''#The array is full, so allocate more space
        MaxSize = MaxSize * 2          ''#determine a new size (doubling is a good guess)
        Redim Preserve MyData(MaxSize) ''#add more space in the array
    End If

    MyData(Size) = DirList.ReadLine    ''#store this data in the array
Loop

If Size < MaxSize Then
    Redim Preserve MyData(Size)        ''#deallocate the extra space in your array
End If

This just might save your memory from the abuse of the constant allocation and deallocation of arrays.

回复收藏 0 原文