去除数组重复值与读取顺序文件到数组的VBA函数

本文主要介绍了两个VBA函数，一个是用于清理数组中重复数据的`ClearArray`函数，另一个是用于读取顺序文本文件内容到数组的`ReadFileAsIndex`函数。 1. 清理数组中重复的数据 `ClearArray`函数接收一个字符串类型的二维数组`A()`作为输入参数，并通过引用传递一个新的字符串数组`B()`来存储无重复元素的结果。该函数首先初始化一些变量，如`i`, `j`, `N`, `L` 和 `Temp`。`N`用来存储输入数组`A`的上界，`B(0)`被赋值为`A(0)`，这样可以确保新数组至少有一个元素。然后，从`A`的第一个元素开始遍历，检查当前元素是否已经存在于新数组`B`中。如果不存在，就将这个元素添加到`B`中。这个过程通过嵌套循环实现，外层循环遍历`A`中的元素，内层循环检查`B`中的元素。当找到重复元素时，设置`Temp=True`并跳出内层循环，否则在循环结束后将元素添加到`B`。 2. 读取顺序文件到数组 `ReadFileAsIndex`函数负责读取指定名称的文本文件`File_Name`，并将文件内容逐行存入字符串数组`Datas()`中。它返回一个整数，表示操作是否成功（1为成功，0为失败）。首先，定义一个变量`i`来跟踪数组的索引，然后创建一个`FileSystemObject`实例`FSO`，以及一个`TextFile`对象`FSO_File`，用于打开文件。接下来，使用`Do While`循环逐行读取文件内容，每次读取一行后使用`ReDim Preserve`动态调整`Datas`数组大小，将读取的行添加到数组中。循环结束后关闭文件，返回1表示成功。如果在读取过程中发生错误，则跳转到`E:`标签处理错误，返回0并可选地显示错误描述。 这两个函数在实际应用中非常有用，例如在处理大量数据时，`ClearArray`可以帮助去除重复数据，提高数据处理效率；而`ReadFileAsIndex`则方便地将文件内容快速加载到内存中，便于进一步处理和分析。