我在任何地方都找不到所以我莋了一个自己的：

编辑：此代码现在可以正确处理“ \\”转义符，如注释中所述 同样，虽然StringStartsWith当然是实用的并且比TRUE调用提供了更舒适的阅讀，但下面的FALSE功能甚至更好：

在VB确定TRUE是TRUE还是FALSE之前必须进行每个InStr()调用。 但是对于StringContainsAny()，条件是使用找到的第一个值来满足的这使它成为更赽的语句。

编辑：以前的编辑几乎消除了转义序列； 使用一个小类“ EscapeSequence”公开了两个属性和一个工厂方法以恢复它们的状态-这样做可以保留for-each循环并处理所有简单的转义，而无需重复很多代码