COMPARAR TEXTBOX INDEX ARRAYS

PAYDANA 14/07/2013 17:36:03
#426007
Tenho 50 textbox indexados da seguinte forma:

text1(0 to 9)
text2(0 to 9)
text3(0 to 9)
text4(0 to 9)

text5(0 to 9)

preciso apagar dos texts 1 2 3 e 4 os valores diferentes dos valores do text5

Ja tentei de varias formas
quase deu certo assm:

For a = 0 To 9
If Text5(a) <> Text1(a) Then Text1(a) = [Ô][Ô]
If Text5(a) <> Text2(a) Then Text2(a) = [Ô][Ô]
If Text5(a) <> Text3(a) Then Text3(a) = [Ô][Ô]
If Text5(a) <> Text4(a) Then Text4(a) = [Ô][Ô]
Next

porém desta forma acaba apagando valores que não devia (valores que contem no text5)
MARCELO.TREZE 14/07/2013 18:05:33
#426009 Resposta escolhida
vc tem que fazer o laço for dentro de outro laço for, exemplo

For T1 = 0 To 9
For T2 = 0 To 9
For T3 = 0 To 9
For T4 = 0 To 9
For T5 = 0 To 9
If Text5(T5) <> Text1(T1) Then Text1(T1) = [Ô][Ô]
If Text5(T5) <> Text2(T2) Then Text2(T2) = [Ô][Ô]
If Text5(T5) <> Text3(T3) Then Text3(T3) = [Ô][Ô]
If Text5(T5) <> Text4(T4) Then Text4(T4) = [Ô][Ô]
Next T5
Next T4
Next T3
Next T2
Next T1


testa ai veja se funciona, eu não testei.
PAYDANA 14/07/2013 18:14:25
#426011
Deu não, apago foi tudo...

Mais gostei do conceito
PAYDANA 14/07/2013 18:50:40
#426013
Achei o porque dele apagar tudo é porque ele faz a leitura e encontra 1 <> ae apaga ele so que não tira esse da comparação

dae faz comparação com este que agora e vazio com os outros e retorna sempre <>, então apaga tudo

MARCELO.TREZE 14/07/2013 19:19:09
#426014
então filho vc vai ter de fazer quatro laços para verificar


For a = 0 To 9
For b = 0 To 9
If Text5(b) <> Text1(a) Then Text1(a) = [Ô][Ô]
Next b
Next a

For a = 0 To 9
For b = 0 To 9
If Text5(b) <> Text2(a) Then Text2(a) = [Ô][Ô]
Next b
Next a

For a = 0 To 9
For b = 0 To 9
If Text5(b) <> Text3(a) Then Text3(a) = [Ô][Ô]
Next b
Next a

For a = 0 To 9
For b = 0 To 9
If Text5(b) <> Text3(a) Then Text3(a) = [Ô][Ô]
Next b
Next a

For a = 0 To 9
For b = 0 To 9
If Text5(b) <> Text4(a) Then Text4(a) = [Ô][Ô]
Next b
Next a
PAYDANA 14/07/2013 19:29:52
#426016
Apagou tudo também

Fiz assim:

For t5 = 0 To 9
txt5 = txt5 & [Ô] [Ô] & Text5(t5)
Next

For t1 = 0 To 9
If InStr(txt5, Text1(t1)) Then Else Text1(t1) = [Ô][Ô]
If InStr(txt5, Text2(t1)) Then Else Text2(t1) = [Ô][Ô]
If InStr(txt5, Text3(t1)) Then Else Text3(t1) = [Ô][Ô]
If InStr(txt5, Text4(t1)) Then Else Text4(t1) = [Ô][Ô]
Next
Tópico encerrado , respostas não são mais permitidas
Voltar