VBA将字符串解析为标记

我有一个带有一堆多字母代码的字符串,我想根据这些代码解析出来.我不确定如何让它看多个字符以确定它是否构成代码的一部分.

我的字符串看起来像这样:

BBCTEEBOBBB

我想解析这些实例:

E BB CT BOB

所以结果应该是输出(或数组),如下所示:

BB CT E E BOB BB

我会使用正则表达式.在工具| 参考,添加PC上可用的最高版本的Microsoft VBScript正则表达式库(我的5.5).然后您可以使用以下代码:

Sub main()
  Dim x, m
  Set x = myparser("BBCTEEBOBBB")
  For Each m In x
    Debug.Print m.Value
  Next
End Sub

Function myparser(string_to_parse)
  Dim splitter As New RegExp
  splitter.Pattern = "E|BB|CT|BOB"
  splitter.Global = True
  Set myparser = splitter.Execute(string_to_parse)
End Function

该myparser函数生成一个MatchCollection可以在main子例程中进行访问的对象.输出是按顺序列出输入字符串中找到的所有匹配项的列表.您应该能够轻松地将其转换为生成数组或空格分隔的字符串.