Array of an array

[mcpeekj]

I'm trying to loop through an array and create another array with only the rows where a phrase exists. gmmastros was kind enough to help me with the instr to do the search, and it works great when I'm doing anything but trying to create and populate another array. Here's the code.

dim alldata_sub()
FOR rowcounter= 0 TO alldatarows
	id=alldata(0,rowcounter)
    lastsent=alldata(1,rowcounter)
    subject=alldata(2,rowcounter)
    posts=alldata(3,rowcounter)

	for j = 0 to alldatarows
		if (InStr(1, alldata(2,j), "Automated Failed", vbTextCompare) > 0)  Then
			'ReDim preserve alldata_sub(count)
			alldata_sub(0,count) = alldata(1,j) 
			alldata_sub(1,count) = alldata(3,j)  
			count = count + 1
		exit for
		end if
	next
next

I'm declaring alldata_sub() because I get a type mismatch when I leave the parentheses off. The error I'm getting with the above code is:

Microsoft VBScript runtime error '800a0009'
Subscript out of range

Help?

 

[trollacious]

Try this:

ReDim preserve alldata_sub(2, count)
alldata_sub(0,count) = alldata(1,j) 
alldata_sub(1,count) = alldata(3,j)

I generally use variables named something other than the function name as working variables, then assign the working variable to the function name as the last statement, but that's just personal preference.

Lee

 

[mcpeekj]

...because it's a 2-dimensional array. I knew it was going to be something fundamental.

Thanks Lee, works like a charm.