VBS- String split multiple on multiple lines into array

Question

I'm trying to create a function that will take a string which could be over multiple lines, e.g.:

"declare notThese
declare orThis

hello = $notThis@butthis$
butNot= $ButNotThis$

andDefNot = getDate()"

And search through it, pulling out {string1}'s from all parts like

${whatever}@{string1}$

and then pushing them into an array.

How would I archive this? Would it be through regex or is it simpler than that?

Also would it make a difference if the string renders on multiple lines like above?

Tomalak · Accepted Answer · 2009-03-11 16:24:52Z

2

You can do it through regex. Multi-line or not does not play a role in this case.

Function ExtractStrings(input)
  Dim re, matches, match, i, output

  Set re = new RegExp
  re.Pattern = "\$[^@]+@([^$]+)\$"
  re.Global = True

  Set matches = re.Execute(input)

  ReDim output(matches.Count - 1)

  i = 0
  For Each match in matches  
    output(i) = match.SubMatches(0)
    i = i + 1
  Next

  ExtractStrings = output
End Function

answered Mar 11, 2009 at 16:24

Tomalak

339k68 gold badges547 silver badges635 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Andrew Jens · Accepted Answer · 2020-09-24 05:53:44Z

0

You can do it via the Split function:

  Dim sLinesOfText As String
  sLinesOfText = "Insert multiple lines of text here"
  Dim aLines() As String
  Dim iLine As Integer
  iLine = 0
  
  aLines = Split(sLinesOfText, vbCrLf, , vbTextCompare)
  Do While iLine < UBound(aLines)
    Debug.Print aLines(iLine)
    iLine = iLine + 1
  Loop

answered Sep 24, 2020 at 5:53

Andrew Jens

1,05415 silver badges16 bronze badges

Collectives™ on Stack Overflow

VBS- String split multiple on multiple lines into array

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related