VBA parse string into tokens

Question

I've got a string with a bunch of multi-letter codes in it and I'd like to parse it out according to those codes. I'm not sure how to make it look at more than one character to determine if it forms part of a code.

My string looks like this:

BBCTEEBOBBB

and I want to parse out these instances:

E BB CT BOB

So the result should be output (or an array) that looks like this:

BB CT EE BOB BB

Answer 1

I would use regular expressions. In Tools | References , add the highest version of the Microsoft VBScript Regular Expressions library available on your PC (5.5 on mine). Then you can use code such as the following:

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

The myparser function generates a MatchCollection object which can be toured as in the main subroutine. The output is a list, in order, of all of the matches found in the input string. You should be able to easily convert this to generate an array or space-delimited string.