Array Headache

[brianh]

I am looping through a fiel and getting the first character of every line and wanting to put it into an array. So far I have looped through there but how do I build the array dynamically?

do while TS.AtEndOfStream = false
strValue = left(Ts.Readline, 1)
strValue = strValue & ","
'now this is where I would build my array?
loop

[INF3RN0666]

use

redim preserve arrayname(ubound(arrayname) + 1)
arrayname(ubound(arrayname)) =  Whatever!

[INF3RN0666]

Ok..let me clear that up because I don't think you understood the first time!

Dim strArray(0) As String
 
Do while TS.AtEndOfStream = false 
strValue = left(Ts.Readline, 1) 
strValue = strValue & "," 
 
Redim Preserve strArray(ubound(strArray) + 1)
strArray(ubound(strArray)) = "WHATEVER"
Loop

[brianh]

So it should look like this?

do while TS.AtEndOfStream = false
strValue = left(Ts.Readline, 1)
strValue = strValue & ","
redim preserve strFLettArray(ubound(strFLettArray) + 1)
strFLettArray(ubound(strFLettArray)) = strValue
loop

I am getting an error, Subscript out of range: UBound

[brianh]

Sorry it crashes on the line Redim....

[INF3RN0666]

Did u use my code??


It works fine. I think you didn't declare the variable properly. Copy and paste my code and see if it gives any error!

[brianh]

I was in the thread when you were posting it so know I did not get that cvode but now I have put it in. I am getting a different error though:



This array is fixed or temporarily locked

This is on the same line (redim)

Here is what I have:

Dim strArray2(0)

Do while TS.AtEndOfStream = false
strValue = left(Ts.Readline, 1)
strValue = strValue & ","

Redim Preserve strArray2(ubound(strArray2) + 1)
strArray2(ubound(strArray2)) = "WHATEVER"
Loop

[brianh]

Note** This is vbScript, I am sorry that I did not tell you that but it slipped my mind. Sorry...

[brianh]

Is what I am doing even logical?