Ir para conteúdo
Fórum Script Brasil
  • 0

UtilizaÇÃo De "i"


DeStiLaDo

Pergunta

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!

Link para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 0

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...

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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??

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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...

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...