For each loop issue with pattern

Question

I have a scenario where I'm trying to build a loop with the pattern below. So it goes through the loop and prints out the pattern at the end. My issue is the array is throwing an exception when holding the pattern

pattern
*
**
***
****
***
**
*"

I'm having issues because the array is unable to hold the pattern. How else would I be able to construct this loop

Sub Main()      
  pattern = Array("'","'*","'**","'***","'**","'*"")
  Dim patternstyle

  'iterating using For each loop. 
  For each item in pattern
    patternstyle = patternstyle&item&vbnewline
  Next

  msgbox patternstyle
End Sub

The pattern in the array doesn't match the pattern sample you have provided. — user692942, Apr 23 '20 at 12:34

user692942 · Accepted Answer · 2020-04-23T12:40:48.227

The error you are receiving will be:

Microsoft VBScript compilation error: Unterminated string constant

This is because this line;

pattern = Array("'","'*","'**","'***","'**","'*"")

has an unterminated string in the last array element.

To fix the problem either remove the trailing double-quote like this;

pattern = Array("'","'*","'**","'***","'**","'*")

or escape it by doubling it so the string is still correctly terminated, like this;

pattern = Array("'","'*","'**","'***","'**","'*""")

Output (after removing trailing double-quote):

'
'*
'**
'***
'**
'*

For each loop issue with pattern

1 Answers1