redim returned split function variable

rabsofty · Jun 28th 2020

why can't you redim the output from a split function?

(the output of the split function is an array)

eg:

Code

sv = Split(lnarr, ",", 13, 1)
ReDim Preserve sv(UBound(sv)-1)

Fails with invaild redim

I did find a workaround (But I still need to know why)

the workaround:

Code

Dim TJ() As String
  sv = Split(lnarr, ",", 13, 1)
  ReDim Preserve TJ(UBound(sv))
  TJ = sv
  ReDim Preserve TJ(UBound(sv) - 1)

rabsofty · Jun 28th 2020

sorry error in my post

here's the correction

Old:

Code

ReDim Preserve TJ(UBound(sv) - 1)

New:

Code

ReDim Preserve TJ(UBound(TJ) - 1)

Justin Doward · Jun 29th 2020

Your first method works fine for me, I tested as follows with the debug.print window showing 5 then 4 as expected and the watch window for the array losing "purple" after the redim. Not sure why it is not working for you:

Code

Sub splitterF()
Dim mystr As String
Dim myArr As Variant


mystr = "Mack, Mick, Mock, Black, White, Purple"
myArr = Split(mystr, ",", 13, 1)
Debug.Print UBound(myArr)
ReDim Preserve myArr(UBound(myArr) - 1)
Debug.Print UBound(myArr)


End Sub

Display More

rabsofty · Jul 1st 2020

I figured it out.

I see you actually define myArr (dim myArr)

I dont dim the split variable, since when splitting it auto defines it as an array

when i define it, it works just fine

Thanks

redim returned split function variable

Participate now!

Share