加快vbs中文本文件的循环速度

Question

下午好，

我的代码有问题，我循环遍历文本文件。该文本文件大约有 10,000 行，因此我想出了使用 instr 搜索函数来查找行号，方法是查找出现“测试名称”的字符号，然后使用 mid 函数并向左计数来查找行号。

例如。

000004###24503###开设帐户Web ISA single###2#########请输入您的第一个姓名.###假##########先生############callie###################### #################################################### #################### #################################################### #################################################### #################################### #################################################### ################################################666 ###Imagenericpassword###Ops##### #################################################### #################################################### ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃现金ISA 2009 / 2010################################################## #################################################### ################ #################################################### #################################################### ##################

因此，在本例中，它会找到“Open Account Web ISA single”并向左计数以找到 000004。因此，这可以节省我循环遍历 10,000 行的时间。

所以接下来我使用 ### 作为分隔符将这一行分割成一个数组，这会导致很多空的“列”，因为当我连接 Excel 中的数据时它们是空的。这使得我总共有大约 247 列。我的问题是我不想真正循环 247 列，因为其中很多包含......好吧什么也没有。有没有更快的方法让我做到这一点？

我以前用过excel，但是速度太慢了。

Answer 1

您可以删除空列：

Set re = New RegExp
re.Pattern = "(###){2,}"
re.Global = True
withoutEmptyCols=re.Replace(input,"###")

这是您的示例的结果：

000004###24503###开设帐户 Web ISA single###2###请输入您的名字。###False###Mr###callie###666###Imagenericpassword# ##Ops####Cash ISA 2009 / 2010###