Converting a string to an array

[denaex]

'Change POC Name to either Current POCID or Changed New POC Names
'Check POC_ID
'if POC_ID = 0 then no change was made so keep the old POCName
'***************************************************************************************************
ReDim arrChangedPOCName(40), arrChangedPOCType(MaxtblLabPOC)

strChangedPOCName = Trim(strChangedPOC)

'arrChangedPOCName = Split(strChangedPOCName, ", ", -1, 1)

For iIndex = 0 to 5
' If (arrChangedPOCName(iIndex) = "0&quot Then
If strChangedPOCName(iIndex) = 0 then
arrNewPOCName(iIndex) = Session("arrayCurrentPOC&quot(iIndex) 'Old Names
Else
arrNewPOCName = (StrChangedPOCName) 'New Names
End If
Next

 

[denaex]

Error Message comes out either TYPEmismatch or Subscript out of range.

 

[entaroadun]

Why are you referencing "strChangedPOCName(iIndex)" (first non-commented line in For loop)? strChangedPOCName is a string, not an array.

 

[denaex]

The commented out array statements did not work. When referencing the array as in the second commented out array statement, it returned an error on index out of subscript or Type mismatch...

So the question is how do I put this string into an array then reference the array without getting an error??

This should be easy right?

 

[TedLiu]

Hi,

Try below code

Dim strArray

strArray = Split(strChangedPOCName, ", ", -1, 1)

For i = lbound(strArray) to ubound(strArray)
response.write strArray(i) & &quot;<br/>&quot;
Next

It should work anywhere.

Cheers !

Ted