AJUDA COM ARRAY

JGDJGD 27/01/2010 13:32:32
#332951

Pessoal,

Tenho dois Arrays

Preciso chercar o valor do arrayA e alimentar/alterar o ArrayB assim:

dim mArrayB
mArrayB = array()
mArrayB = split([Ô]N|N|N|N|N|N|[Ô],[Ô]|[Ô])

dim mArrayA
mArrayA = array()
mArrayA = split(5|,[Ô]|[Ô])

[ô]//////////////////////////////////////////

for i=0 to ubound(mArrayB)
Response.Write i &[Ô]=[Ô] & mArrayB(i) & [Ô]<br>[Ô]
next
[ô]Resultado ArrayB
[ô]0 = N
[ô]1 = N
[ô]2 = N
[ô]3 = N
[ô]4 = N
[ô]5 = N

[ô]/////////////////////////////////////

for z=0 to ubound(mArrayA)
Response.Write z &[Ô]=[Ô] & mArrayA(i) & [Ô]<br>[Ô]
next
[ô]Resultado ArrayA
[ô]0 = 5

Response.Write [Ô]<br>[Ô]


for i=0 to ubound(mArrayB)
for z=0 to ubound(mArrayA)
if mArrayA(z)=[Ô]1[Ô] then mArrayB(i)=[Ô]S[Ô] end if
if mArrayA(z)=[Ô]2[Ô] then mArrayB(i)=[Ô]S[Ô] end if
if mArrayA(z)=[Ô]3[Ô] then mArrayB(i)=[Ô]S[Ô] end if
if mArrayA(z)=[Ô]4[Ô] then mArrayB(i)=[Ô]S[Ô] end if
if mArrayA(z)=[Ô]5[Ô] then mArrayB(i)=[Ô]S[Ô] end if
if mArrayA(z)=[Ô]6[Ô] then mArrayB(i)=[Ô]S[Ô] end if
next
next
[ô]Resultado ArrayB DESEJADO
[ô]0 = N
[ô]1 = N
[ô]2 = N
[ô]3 = N
[ô]4 = S
[ô]5 = N
E se tivesse :
[ô]Resultado ArrayA
[ô]0 = 1
[ô]1 = 5

O Resultado no ArrayB teria que ficar assim :
[ô]0 = S
[ô]1 = N
[ô]2 = N
[ô]3 = N
[ô]4 = S
[ô]5 = N

Tem Como fazer isso??

Agradeço Qauluer ajuda.