replaceing information in an array

[sthmpsn1]

Okay I have an array that I want to replace the first character from the right with a blank. The code I tried didn't work and I was wondering if anyone could help me. I really don't want to store the information in a different array or element if possible.

For i = 0 to 48
For k = 1 to 4
Replace(Right(proparray(i,k), 1), " &quot
Next k

Next i

 

[bradlkm]

Try this:

For i = 0 to 48
For k = 1 to 4
proparray(i, k) = left(proparray(i, k), len(proparray(i, k)) - 1)
proparray(i, k) += " "
Next k

Next i

(explaination: It stores the every character but the last one in proparray(i, k), and then adds a space onto the string)

HTH, Kevin B.
.Net Programmer

 

[sthmpsn1]

It doesn't like the - sign. says the length must be greater than or equal to zero.

 

[bradlkm]

Probably because the string is empty. . . you just need to surround it with an if statement:

For i = 0 to 48
For k = 1 to 4
if not proparray(i, k) = "" then
proparray(i, k) = left(proparray(i, k), len(proparray(i, k)) - 1)
proparray(i, k) += " "
end if
Next k

Next i
Kevin B.
.Net Programmer

 

[JohnYingling]

Use an ampersand
proparray(i, k) &= " "

OR
Dim strW as string
strW = proparray(i, k)
proparray(i, k) = left(strW, len(strW) - 1) & " "

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[sthmpsn1]

thank you