(Parte 5 de 5)

O primeiro comando que veremos será o IF. Este comando é utilizado para testar uma condição como verdadeira ou falsa. E dependendo dos resultados, determinado bloco de instruções será executado.

Sintaxe

If <condição> Then

Bloco de Instrução (que pode ser apenas uma ou várias)

[Else

Bloco de Instrução ] End If

Onde <condição> é a expressão a ser testada. Se for verdadeira, o bloco de instrução que estiver definido depois do Then será executado. O Else representa o “se não”, ou seja, se a <condição> não for satisfeita (não for verdadeira), o bloco de instruções definido depois do Else será executado. End if termina o bloco IF.

Observe que a <condição> deve ser uma expressão que pode ser avaliada como true/false (verdadeiro/falso). Por exemplo:

Até este ponto, vimos como testar apenas um condição. Porém, podemos utilizar o comando IF quando existem várias condições a ser testadas. Veja a sintaxe:

<% Dim teste

Dim Mensagem teste = 25 if teste = 30 then

Mensagem = “O valor de Teste é igual a 30”

Else

Mensagem = “O valor de Teste é igual a 25” End if

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 4

If <condição> Then

Bloco de Instrução (que pode ser apenas uma ou várias) [ElseIf <condição>Then

[Bloco de Instrução]]

[Else

[Bloco de Instrução]] End If

* O que estiver entre [] é opcional e entre <> é obrigatório.

Se você observar, a estrutura é basicamente a mesma utilizada para um IF simples. A diferença está no Elseif. Quando você utiliza este tipo de sintaxe é preciso especificar um outra condição a ser testada. Por exemplo:

E como inserir este código em uma página ASP?

Lembre-se que você deve escrever os códigos que devem ser interpretados pelo servidor entre <% %>, partindo deste ponto, vamos a um exemplo:

<html>

<title>Horas</title>

</body>

<% Dim teste

Dim Mensagem teste = 25 If teste = 30 then

Mensagem = “O valor de Teste é igual a 30”

Elseif teste = 26 then

Mensagem = “O valor de Teste é igual a 26”

Else

Mensagem = “O valor de Teste é igual a 25”

End if %>

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 45

O código criado:

<% if Time < #12:0# then %> Bom Dia!!! <BR> São exatamente <%=Time %>. <% else %> São exatamente <%=Time %>. <% end if %>

O teste que o IF faz da condição é se esta é verdadeira. Então, se a hora do servidor for menor que 12:0, ou seja, ainda é manhã, será mostrado para o usuário o texto (supondo que seja 10:05 da manhã):

Bom dia! São exatamente 10:05.

Caso contrário, será mostrado(supondo que seja 13:0): São exatamente 13:0.

Then ... ElseIf ... Sua função é selecionar um bloco de instrução a partir do teste de uma

O próximo comando é o SELECT. Este comando foi desenvolvido para melhorar a eficiência do IF condição e compará-lo com uma série de valores.

Sintaxe

Select Case <expressão a ser testada - critério> [Case ValorX-Condição

[Bloco de Instruções]]

[Case Else ValoresN-CondiçãoN

[Bloco de Instruções]] End Select

Onde <Critério> é uma variável do tipo numérica ou texto (string), Condição e CondiçãoN são as

A lógica do SELECT é similar a do IFThen ... Else. Ambas as estruturas permitem o caso de

possibilidades de valores que esta variável pode assumir. todas as condições falharem e o fluxo do bloco ser desviado para um caso de “se não”. A cláusula

reescrever o exemplo utilizado com o IFThen ... ElseIf, utilizando o o SELECT:

Else do SELECT é utilizada quando nenhuma condição é satisfeita pelo critério. Podemos

* O que estiver entre [] é opcional e entre <> é obrigatório.

<% Dim teste

Dim Mensagem teste = 25 Select Case teste

Case 30

Mensagem = "O valor de Teste é igual a 30"

Case 26

Mensagem = "O valor de Teste é igual a 26"

Case Else

Mensagem = "O valor de Teste é igual a " & teste End Select%>

<center><% = Mensagem %></center>

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 46

O resultado do exemplo:

O código VBScript (ASP)

Este arquivo deve ser nomeado com a extensão ASP, pois contem códigos que apenas um servidor IIS pode interpretar.

<% Dim teste Dim Mensagem

Depois da declaração das variáveis teste e Mensagem, atribuímos um valor qualquer para a variável teste que servirá como critério do SELECT. Como estamos atribuindo um valor numérico para teste, não é preciso utilizar caracteres especiais para indicar o valor a ser atribuído.

teste = 25

O próximo bloco de instruções é o bloco do SELECT. Definimos que o critério é a variável teste, ou seja, a variável teste será testada nas condições que definimos nas cláusulas CASE. Em nosso caso, a “pergunta” que o SELECT fará será a seguinte:

Teste é igual a 30?

Se sim: Mensagem recebe o texto: “O valor de Teste é igual a 30”

Teste é igual a 26?

Se não (teste não assumiu nenhum dos valores acima (30 ou 26)

Se sim: Mensagem recebe o texto: “O valor de Teste é igual a 26” Mensagem recebe o texto: “O valor de Teste é igual a 25”

Por que no CASE Else a variável mensagem recebe o texto: “O valor de Teste é igual a 25”? Antes da comparação da variável Teste, atribuímos para esta o valor 25. Como no código concatenamos com o texto: "O valor de Teste é igual a " o valor da variável teste, como resultado é mostrado seu conteúdo. Então:

Código VBScript Resultado "O valor de Teste é igual a " & testeÅ “O valor de Teste é igual a 25”

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 47

Select Case teste

Case 30

Mensagem = "O valor de Teste é igual a 30"

Case 26

Mensagem = "O valor de Teste é igual a 26"

Case Else

Mensagem = "O valor de Teste é igual a " & teste End Select%>

Neste ponto da aplicação, fechamos o bloco do SELECT e terminamos a parte dos códigos que são interpretados pelo servidor. Colocamos algum código HTML e para mostrar a mensagem, novamente temos que ‘mandar” o código para o servidor: <% = Mensagem %>.

<center><% = Mensagem %></center>

Estruturas de Repetição

DoLoop
ForNext
WhileWend
A primeira que veremos será a DoLoop. É utilizado para executar um conjunto de instruções
até que a condição determinada seja verdadeira. O DoLoop oferece dois operadores

São estruturas que repetirão um bloco de instruções até que a condição especificada seja satisfeita ou por um número de vezes especificado. No VBScript, trabalharemos com 3 destas estruturas: condicionais para avaliar uma condição: While e Until.

Sintaxe:

Do {Until | While } <condição> <bloco de instruções> Exit Do <bloco de instruções> Loop

Do <bloco de instruções> Exit Do <bloco de instruções> Loop {Until | While } <condição>

Onde <condição> deve ser uma expressão que pode ser avaliada como true/false

(verdadeiro/falso), <bloco de instruções> são os comandos que devem ser executados enquanto a condição não for satisfeita.

A diferença entre as sintaxes acima é o local da condição. Na primeira sintaxe, a condição está localizada na mesma linha de execução do Do. Na segunda, a condição está localizada no final do laço ao lado do Loop. Esta mudança de localização dá aos programadores flexibilidade para testar

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 48 a validade da condição primeiro e então processar o bloco de instruções, ou processar o bloco de instruções pelo menos uma vez, e depois avaliar a condição. Exemplo

O resultado retornado pelo servidor:

O código escrito (ASP)

Lembre-se que todo o código ASP deve ser escrito entre <% %>, pois será interpretado pelo servidor que retornará como resultado o HTML correspondente.

<% Dim Mensagem Dim Cont

Como vimos no capítulo anterior, a cláusula DIM é utilizada para declarar variáveis locais, ou seja, as variáveis Mensagem e Cont existirão apenas para este código script.

Mensagem = “” cont = 0

<html><body> <% Dim Mensagem Dim Cont

Mensagem = “” cont = 0

Do Until cont=5

Mensagem = “Contei “ & cont %> <center><% = Mensagem %></center>

<% cont = cont + 1

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 49

Nas linhas acima, estamos “limpando” as variáveis, ou seja, atribuindo-lhes valores nulos para tirar qualquer conteúdo que não nos seja útil. No caso de cont atribuímos o valor 0 (zero), e para Mensagem, atribuímos “” que caracteriza o comprimento zero de string.

O próximo bloco de instruções é o bloco definido pelo DoLoop. Este bloco será executado 5

vezes – isto é definido pela condição: cont = 5. E mostrará uma mensagem todas as vezes que as instruções dentro do comando de repetição forem executadas.

Do Until cont=5

A linha a seguir define a mensagem a ser mostrada para o usuário. É uma atribuição de um texto para uma variável, desta forma, o que for atribuído deve estar entre “ “ (aspas). Ainda nesta linha, você deve observar que existe uma concatenação de strings (“Contei “ & cont), para isso, deve-se utilizar o operador &.

Mensagem = “Contei “ & cont %>

Neste ponto do programa, encerramos o trecho que deve ser interpretado pelo Servidor

A linha a seguir contem código HTML (<center></center>) e código VBScript a ser interpretado pelo servidor (<% = Mensagem %>) que mostrará o conteúdo da mensagem.

As próximas linhas de instrução fazem parte do DoLoop. Onde o cont é incrementado

<center><% = Mensagem %></center>

Loop encerra todo o bloco do DoLoop.

para que a repetição tenha um limite (cont = 5) e

<% cont = cont + 1

Loop %>

WhileWend
Outra estrutura similar ao DoLoop é o While ... Wend. Esta estrutura repete um bloco de

instruções até que um condição seja satisfeita (true).

Sintaxe

While <condição> <bloco de instruções> Wend

Onde <condição> é uma expressão que pode ser avaliada como verdadeira ou falsa (true/false) e <bloco de instruções> representa o conjunto de comandos que devem ser executados até que a condição seja falsa.

Quando a condição descrita no While for verdadeira todos os comandos serão processados até chegar no Wend. Neste ponto, o fluxo do programa passa para o While que testa a condição novamente e este ciclo é repetido até que a condição seja falsa.

Exemplo O exemplo a seguir incrementa a variável contador até que seu valor chegue a 10.

Capítulo VII – Comandos Básicos do VBScript

Desenvolvimento de Aplicações para Internet – Plataforma Microsoft Página 50

Resultado retornado:

Código

While contador < 10‘ Avalia a condição contador = contador + 1‘ Incrementa a variável contador Wend‘ Finaliza o laço quando a variável contador for igual a 9.

ForNext

Repete um conjunto de instruções por um número especificado de vezes. Este comando é usado quando sabemos o número de ciclos ou iterações que são necessárias.

Sintaxe

For contador = inicio To fim [Step passo] [bloco de instruções]

[Exit For]

[bloco de instruções] Next

Onde contador é uma variável numérica usada no laço como o contador. Esta variável não pode ser um elemento de um vetor, nem um elemento de um Tipo definido pelo usuário. Inicio é o valor inicial do contador e fim é o valor final que o contador assumirá. Passo define o valor do incremento ou decremento do FOR, se não for definido, o default (padrão) é 1 (um).

O valor do parâmetro passo pode ser tanto positivo (incremento) ou negativo (decremento). O valor deste parâmetro determina o processo da seguinte maneira:

<% Dim contador contador = 0

While contador < 10 contador = contador + 1

(Parte 5 de 5)

Comentários