UtilizaÇÃo De "i"

[DeStiLaDo]

seguinte:

POR EXEMPLO: é bobo, mas exemplifica

D1 = "OI"

D2 = " COMO"

D3 = " VAI"

D4 = " VOCÊ?"

FOR i = 1 to 4

IF i < 5 THEN

RESPONSE.WRITE ???

ELSE

EXIT FOR

END IF

NEXT

Como faço pra fazer referencia a "i' no final do response.write???

D"&(i)&"???

num dá... :(

help!

[Espartaco]

<%response.write "D"&i&"" %>

[DeStiLaDo]

ESPARTACO, VLW, MAS ASSIM:

FOR i = 1 to 4

IF i < 5 THEN

RESPONSE.WRITE "D"&i&""

ELSE

EXIT FOR

END IF

NEXT

ME RETORNA, D1 D2 D3 D4...

[kuroi]

desse jeito é impossivel. o que você pode fazer é assim:

D(1) = "OI"
D(2) = " COMO"
D(3) = " VAI"
D(4) = " VOCÊ?"

FOR i = 1 to 4
IF i < 5 THEN
RESPONSE.WRITE D(i)
ELSE
EXIT FOR
END IF
NEXT[/code]


alias, da pra melhor bem o seu codigo, o melhor seria isso:
[code]D = array("OI"," COMO"," VAI"," VOCÊ?")

FOR i = 0 to 3
RESPONSE.WRITE D(i)
NEXT

[DeStiLaDo]

KUROI

ASSIM

D(1) = "OI"

D(2) = " COMO"

D(3) = " VAI"

D(4) = " VOCÊ?"

FOR i = 1 to 4

IF i < 5 THEN

RESPONSE.WRITE D(i)

ELSE

EXIT FOR

END IF

NEXT

RETORNA

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'd'

---

não posso usar array, esta é apenas uma parte de um loop monstruoso, não irei retornar uma sequencia estática

[kuroi]

RETORNA

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'd'

da erro porque faltou declarar o array:

Dim D(4)

D(1) = "OI"
D(2) = " COMO"
D(3) = " VAI"
D(4) = " VOCÊ?"

FOR i = 1 to 4
IF i < 5 THEN
RESPONSE.WRITE D(i)
ELSE
EXIT FOR
END IF
NEXT[/code]
não posso usar array, esta é apenas uma parte de um loop monstruoso, não irei retornar uma sequencia estática
hum... se não pode usar array, ai é impossivel, como eu disse. a não ser que você pussese os D1, D2, etc numa variavel da session, mas isso pra mim seria besteira. qual o problema de usar array??

[DeStiLaDo]

KUROI

VO POSTÁ UM PEDAÇO DO CÓDIGO PRA você VER

VOU SEGUIR O SEU PADRÃO

DIM D(8)

D(1) = UCASE(WeekDayName(WeekDay(DATE)))

D(2) = UCASE(WeekDayName(WeekDay(DATE-1)))

D(3) = UCASE(WeekDayName(WeekDay(DATE-2)))

D(4) = UCASE(WeekDayName(WeekDay(DATE-3)))

D(5) = UCASE(WeekDayName(WeekDay(DATE-4)))

D(6) = UCASE(WeekDayName(WeekDay(DATE-5)))

D(7) = UCASE(WeekDayName(WeekDay(DATE-6)))

D(8) = UCASE(WeekDayName(WeekDay(DATE-7)))

for i = 1 to 8

IF i < 9 then

RESPONSE.WRITE D(i)

RESPONSE.WRITE " "

ELSE

EXIT FOR

END IF

NEXT

PRECISO DECLARAR AS VARIÁVEIS ASSIM, NÃO POSSO DISTRIBUIR NUM ARRAY, POIS NÃO ESTOU LISTANDO SIMPLESMENTE OS DIAS DA SEMANA, ESTOU LISTANDO:

O DIA ATUAL E OS ÚLTIMOS 7 DIAS ANTERIORES

ISTO FAZ PARTE de um LOOP que RECONTROI ISSO, E AINDA TEM que LEVAR EM CONTA que C FOR MENOR que DIA 8, NUM DOS CASOS A CONSIDERAR, que AI TEM que VERIFICAR QTOS DIAS TEVE NO mês ANTERIOR...

BLÁ BLÁ BLÁ

isso TD EU SEI, SÓ que PRECISO que O RETORNO SEQUENCIAL SEJA NESSES MOLDES que ESTAMOS DEBATENDO, porque O RESTANTE DO LOOP NÃO ACEITARIA RECEBER OS DADOS POR ARRAY.

ESPERO que TENHA ENTENDIDO, VLW!

HEEEEEEEEEEEEEEEEEEEEEEELP!

[kuroi]

tem um jeito bem mais facil:

For i = 0 To -7 Step -1
     Response.Write UCase (WeekDayName (WeekDay (DateAdd ("d", i, Date)))) & " "
Next[/code]
assim nem precisa verificar mês anterior nem nd!!
não testei aqui, mas deve ser isso. veja se funciona, qualquer coisa poste.

[DeStiLaDo]

BUENO... TO PENSANDO aqui...

EU PODERIA DECLARAR ESSES VALORES E PASSÁLOS PARA UM ARRAY, AI RESGATO POR i...

acho que dá né?

vo testá... posto c funcionar

"assim nem precisa verificar mês anterior nem nd!!"

CLARO que não... eu mencionei o restante do meu script

vo testar,

VLW

tem um jeito bem mais facil:

CODEFor i = 0 To -7 Step -1

Response.Write UCase (WeekDayName (WeekDay (DateAdd ("d", i, Date)))) & " "

Next

assim nem precisa verificar mês anterior nem nd!!

não testei aqui, mas deve ser isso. veja se funciona, qualquer coisa poste.

NÃO POSSO MEU AMIGO...

EU NÃO VOU USAR ESSES DADOS EM SEQUENCIA DIRETA

VLW

[kuroi]

BUENO... TO PENSANDO aqui...

EU PODERIA DECLARAR ESSES VALORES E PASSÁLOS PARA UM ARRAY, AI RESGATO POR i...

acho que dá né?

vo testá... posto c funcionar

funcionou o ainda está testando??

EU NÃO VOU USAR ESSES DADOS EM SEQUENCIA DIRETA

o que você quer dizer com sequencia direta?

[DeStiLaDo]

TO TESTANDO

NÃO VOU USAR ESSES DIAS DA SEMANA EM SEQUENCIA DIRETA, EXEMPLO:

OS DIAS DA SEMANA SÃO: DIA1, 2, 3, 4 E ASSIM POR DIANTE

CRIEI UM MENU COM 8 LINHAS, que SÃO ESSES DIAS, SÓ que ENTRE UM DIA E OUTRO EXISTEM MTAS OUTRAS CONSULTAS, D MODO que EU TENHO que GUARDAR O "DIA TAL" EM UMA VARIÁVEL ÚNICA. ENTRE UM DIA E OUTRO EXISTEM AS MENSAGENS DAKELE DIA... SACOU?

VO TESTÁ POR ARRAY DA MANEIRA que IMAGINEI

[kuroi]

CRIEI UM MENU COM 8 LINHAS, que SÃO ESSES DIAS, SÓ que ENTRE UM DIA E OUTRO EXISTEM MTAS OUTRAS CONSULTAS, D MODO que EU TENHO que GUARDAR O "DIA TAL" EM UMA VARIÁVEL ÚNICA. ENTRE UM DIA E OUTRO EXISTEM AS MENSAGENS DAKELE DIA... SACOU?

mas não precisae de 8 variaveis D1, D2, etc. so uma já resolveria. depois que você fizer todas as consultas de um unico dia, assim que você chegar no proximo você não precisa mais saber qual o dia anterior, precisa?? ai você utilizaria a mesmo variavel e preencheria com o valor do novo dia, perdendo o valor do dia anterior que você não precisaria mais...

[DeStiLaDo]

SIM SIM CLARO!

MAS EU SIGO UMA LINHA D PENSAMENTO MEIO DIFERENTE... você NEM ACREDITARIA COMO PENSO... HUAHUAHUA

RESOLVI...

<%

Dia1 = UCASE(WeekDayName(WeekDay(DATE-1)))

Dia2 = UCASE(WeekDayName(WeekDay(DATE-2)))

Dia3 = UCASE(WeekDayName(WeekDay(DATE-3)))

Dia4 = UCASE(WeekDayName(WeekDay(DATE-4)))

Dia5 = UCASE(WeekDayName(WeekDay(DATE-5)))

Dia6 = UCASE(WeekDayName(WeekDay(DATE-6)))

Dia7 = UCASE(WeekDayName(WeekDay(DATE-7)))

Dia8 = UCASE(WeekDayName(WeekDay(DATE-8)))

D = array(""&Dia1&"",""&Dia2&"",""&Dia3&"",""&Dia4&"",""&Dia5&"",""&Dia6&"",""&Dia7&"",""&Dia8&"")

for i = 0 to 7

RESPONSE.WRITE D(i)

RESPONSE.WRITE " "

NEXT

%>

ERA MEIO SIMPLES ATÉ...

DPOIS que EU TERMINAR U que TO FAZENDO T MOSTRO PRA TI NÃO ACHAR que SOU TÃO MALUCO ASSIM...

HUAHUAHUA

VLW

POD FECHAR O TÓPICO