testing - 加速循环通过vbs中的文本文件

Question

下午好

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

例如。

000004###24503###Open Account Web ISA single###2#########Please enter your first name.###False#########Mr# ###########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###Open Account Web ISA single###2###Please enter your first name.###False###Mr###callie###666###Imagenericpassword###Ops###Cash ISA 2009 / 2010###