VBS problem, arrayproblem in VB-Script... WinCC Flex

[userxyz]

Dim i, a(10)

For i = 0 To 9 Step 1
a(i) = SmartTags("visuf")(i)
Next

For i = 10 To 2 Step -1
a(i)= a(i-1)
a(0)= SmartTags("valuetag")
Next

For i = 0 To 9 Step 1
SmartTags("visuf")(i) = a(i)
Next


This code doesn't work, only tag visuf[0] changes...
What could be the problem. I can compile it, shifting just doesn't work...
What I want is Fifo

 

[Mark Buskell]

For i = 10 To 2 Step -1
a(i)= a(i-1)
a(0)= SmartTags("valuetag")
Next


Should this be For i = 10 to 1 Step -1

For i = 10 To 1 Step -1
a(i)= a(i-1)
Next
a(0)= SmartTags("valuetag")

 

[userxyz]

Hi

Thanks for your help...
But, now my index 1 also changes.



current code:

Dim i, a(10)

For i = 0 To 9 Step 1
a(i) = SmartTags("visuf")(i)
Next

For i = 10 To 1 Step -1
    a(i)= a(i-1)
    a(0)= SmartTags("valuetag")
Next

For i = 0 To 9 Step 1
SmartTags("visuf")(i) = a(i)
Next

For i = 10 To 2 Step -1
a(i)= a(i-1)
a(0)= SmartTags("valuetag")
Next


Should this be For i = 10 to 1 Step -1

For i = 10 To 1 Step -1
a(i)= a(i-1)
Next
a(0)= SmartTags("valuetag")

 

[Mark Buskell]

I am not following you.
After the looping, you get this. For i = 10 To 1 Step -1

A10 = A9
A9 = A8
A8 = A7
A7 = A6
A5 = A4
A4 = A3
A3 = A2
A2 = A1
A1 = A0

You then move your incoming new value into A(0).

 

[userxyz]

Fifo

This is Fifo, but when I run the script, index 0 and 1 are becomming the same new value...

I am not following you.
After the looping, you get this. For i = 10 To 1 Step -1

A10 = A9
A9 = A8
A8 = A7
A7 = A6
A5 = A4
A4 = A3
A3 = A2
A2 = A1
A1 = A0

You then move your incoming new value into A(0).

 

[Mark Buskell]

I wrote a small program in Visual Basic and used your code with the modifications I mentioned. Everything shifted correctly.

After the looping, your new value comes from "valuetag".
a(0)= SmartTags("valuetag")

The very last loop statement would have took the old A(0) and moved it into A(1). When i is equal to 1.
a(i)= a(i-1) = a(1)= a(1-1)

 

[userxyz]

Found it

Dim i, a(10)

For i = 0 To 9 Step 1
a(i) = SmartTags("visuf")(i)
Next

For i = 10 To 1 Step -1
a(i)= a(i-1)
a(0)= SmartTags("valuetag")
Next

For i = 0 To 9 Step 1
SmartTags("visuf")(i) = a(i)
Next


has to be:


Dim i, a(10)

For i = 0 To 9 Step 1
a(i) = SmartTags("visuf")(i)
Next

For i = 10 To 1 Step -1
a(i)= a(i-1)
Next
a(0)= SmartTags("valuetag")

For i = 0 To 9 Step 1
SmartTags("visuf")(i) = a(i)
Next


It may not be written in the for next loop.