|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Glossário VBScript
|
 |
|
|
|
Postada em 29/3/2005 por Josefh Hennyere
Array ( )
Descrição:
Retorna um Array
( ex. lista=Array(14,25,33) , se depois
chamar lista(2), devolve-me 25 )
Asc ( )
Descrição:
Retorna o código ANSI correspondente à letra da
string, que é pedida.
( ex. codigo = Asc("A") 'Devolve 65 )
AscB ( )
Descrição:
Em vez de devolver o código ANSI do primeiro caracter
devolve do primeiro byte.
AscW ( )
Descrição:
O AscW é fornecido para plataformas de 32bits que usam
caracteres Unicode. Devolve o código do caracter
Unicode (wide), evitando conversões do mesmo para
ANSI.
Atn ( )
Descrição:
Função usada para calcular o arco de tangente de um
número.
CBool ( )
Descrição:
Retorna uma expressão que representa o tipo boolean.
Fazemos a comparação ou verificamos a variável, e ela
devolve se é True ou False)
( ex. Cbool(5=5), devolve True )
Cbyte ( )
Descrição:
Devolve uma expressão que foi convertida para o tipo
Byte dentro das limitações do mesmo.
Ccur ( )
Descrição:
Devolve uma expressão que foi convertida para o tipo
Currency dentro das limitações do mesmo.
Cdate ( )
Descrição:
Devolve uma data de qualquer expressão.
(ex.
data = Cdate("qualquerexpressao")
normalmente usa-se IsDate para ver se é do tipo data e
depois transforma-se para o tipo data.
CDbl ( )
Descrição:
Devolve uma expressão que foi convertida para o tipo
Double dentro das limitações do mesmo.
Chr ( )
Descrição:
Devolve o caracter associado ao código ANSI.
( ex. Chr(65) devolve A )
CInt ( )
Descrição:
Devolve uma variável forçada a ser inteiro.
(ex. Cint("12") devolve 12 como numero e não como
String)
Clng ( )
Descrição:
Devolve uma variável forçada a ser inteiro.
(ex. Cint("113123231424242342342") devolve
113123231424242342342 como numero e não como String)
Cos ( )
Descrição:
Devolve o Coseno de um ângulo
CreateObject ( )
Descrição:
Cria e devolve a referência de um objecto.
(ex.
Set referenciaobjecto = CreateObject("comp.objecto") )
)
CSng ( )
Descrição:
Funciona como o Cint ( ), devolve uma variável do tipo
Single, de uma qualquer variante que possa ser válida
para o efeito.
CStr ( )
Descrição:
Devolve uma variante como sendo do tipo String
(ex.
x = CStr(12)
' x fica igual a "12", ou seja, passou um inteiro para
String
)
Date ( )
Descrição:
Devolve a corrente data do sistema.
DateAdd ( )
Descrição:
Devolve uma data, onde um determinado intervalo foi
submetido.
NovaData = DateAdd("m", 1, "31-Jan-95")
' é devolvido "28-Fev-95"
As adições possíveis são determinadas pelas seguintes
hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês
y -> Dia do Ano
d -> Dia
w -> Dia da semana
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo
DateDiff ( )
Descrição:
devolve um numero de intervalo entre duas datas.
DiffADate = "A partir de hoje : " & DateDiff("d", Now,
"10-12-2002")
As diferenças possiveis a fazer estão restritas pelas
seguintes hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês
y -> Dia do Ano
d -> Dia
w -> Dia da semana
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo
DatePart ( )
Descrição:
Devolve uma parte específica de uma dada data.
(ex. GetQuarter = DatePart("q", "11-02-1978") )
Podem-se pedir as seguintes hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês
y -> Dia do Ano
d -> Dia
w -> Dia da semana
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo
DateSerial ( )
Descrição:
Devolve uma variante do subtipo Date para um ano
especifico, mês e dia.
DateSerial(1990 - 10, 8 - 2, 1 - 1)
DateValue ( )
Descrição:
Devolve uma variante do subtipo Date.
MinhaData = DateValue("Setembro 11, 1963") ' devolve a
data.
Day ( )
Descrição:
Devolve o dia de uma data
(ex. Day("12, Janeiro, 2002") devolve 12
Eval ( )
Descrição:
Valida uma expressão, do tipo Eval(5=5) devolve True
ou False
Exp ( )
Descrição:
Devolve a exponencial de um valor.
Filter ( )
Descrição:
Devolve um array com o resultado de uma pesquisa por
filtragem de um String.
Dim MeuIndex
Dim MeuArray (3)
MeuArray(0) = "Domingo"
MeuArray(1) = "Segunda"
MeuArray(2) = "Terça"
MeuIndex = Filter(MeuArray, "Seg") ' MeuIndex(0)
contêm "Segunda".
Fix ( )
Descrição:
Formata um valor para o seu arredondamento
MeuNumero = Fix(99.3) ' Devolve 99.
MeuNumero = Fix(-99.7) ' Devolve -99.
MeuNumero = Fix(-99.3) ' Devolve -99.
FormatCurrency ( )
Descrição:
Devolve uma expressão formatada para currency ( tipo
de moeda instalada no Control Panel ).
MinhaMoeda = FormatCurrency(1000) ' Devolve num
servidor português "1.000$00"
FormatDateTime ( )
Descrição:
Devolve uma expressão formatada como Data ou Tempo (
hora )
Dim Data
Data=now ( )
SacarData = FormatDateTime(Data, 1)
' e desta maneira recebe-se a data
'o valor usado é para definir o formato com que se
recebe a data
Códigos de Formato :
0 -> formato short date, se tiver só a hora sai só a
hora, se tiver só a data sai só a data, se tiver ambos
saiem ambos como short format
1 -> long date
2 -> short date format especificado no Regional
Settings do computador
3 -> Dispara a hora especificado no Regional Settings
do computador
4 -> Devolve a hora usando o formato 24horas (hh:mm)
FormatNumber ( )
Descrição:
Devolve uma expressão formatada como Number
FormatarEmNumber = FormatNumber("123123123",3)
'Devolve 123.123.123,000
FormatPercent ( )
Descrição:
Devolve uma expressão formatada como uma percentagem.
(multiplicada por 100) com o caracter % no fim
MinhaPercentagem = FormatPercent(2/32)
'MinhaPercentagem tem 6.25%.
GetLocale ( )
Descrição:
Devolve o valor do ID Local
Este Local é a referência à linguagem do servidor
country/region.O Locale determina coisas como o
keyboard layout, alphabetic sort order, assim como o
date, time, number, e o formato currency.
GetObject ( )
Descrição:
Devolve a referência a um Objecto de um ficheiro.
Dim MeuObjecto
Set MeuObjecto = GetObject("C:DESENHOSSAMPLE.DRW",
"FIGMENT.DRAWING")
GetRef ( )
Descrição:
Devolve a referência a um procedimento de um evento.
Hex ( )
Descrição:
Retorna o valor Hexadecimal de um numero.
MeuHex = Hex(10) ' Devolve A.
Hour ( )
Descrição:
Retorna um numero entre 0 e 23, inclusive,
representando a hora do dia.
MinhaHora = Hour(now())
InputBox ( )
Descrição:
só funciona com o IE Abre uma caixa de diálogo, onde
os utilizadores podem escrever algo, e carregar num
botão para voltar ao browser.
Não é usado nas ASP, mas pertence ao VBScript.
InStr ( )
Descrição:
Devolve a posição da primeira ocorrência de uma string
dentro de outra.
Dim ProcuraString, ProcuraChar, MinhaPos
ProcuraString ="XXpXXpXXPXXP" ' String onde procurar
ProcuraChar = "P" ' Procurar por "P"
MinhaPos = Instr(4, ProcuraString, ProcuraChar, 1)
' Uma comparação textual a começar em 4 devolve 6
InStrB ( )
Descrição:
Igual a InStr ( ), com a diferença que é usada para
comparações de variáveis tipo Byte.
InStrRev ( )
Descrição:
Funciona com a função InStr ( ), com a diferença de
que em fez de começar do inicio da String, começa do
final.
Dim ProcuraString, ProcuraChar, MinhaPos
ProcuraString ="XXpXXpXXPXXP"
ProcuraChar = "P"
MinhaPos = InstrRev(ProcuraString, ProcuraChar, -1, 1)
' A comparação textual a começar na última posição
devolve 12
Int ( )
Descrição:
Devolve o integer de uma variável numérica
MeuNumero = Int(99.8) ' Retorna 99.
MeuNumero = Int(-99.8) ' Retorna -100.
IsArray ( )
Descrição:
Devolve uma variável tipo Boolean a verificar de a
variável é um array ou não.
IsDate ( )
Descrição:
Devolve True ou False, a indicar se uma variável pode
ser convertida para o tipo Date.
Dim MinhaData, TuaData, SemData, MeuCheck
MinhaData = "Outubro 19, 1962"
TuaData = #10/19/62#
SemData = "Hello"
MeuCheck = IsDate(MinhaData) ' Devolve True.
MeuCheck = IsDate(TuaData) ' Devolve True.
MeuCheck = IsDate(SemData) ' Devolve False.
IsEmpty ( )
Descrição:
Devolve True ou False, a indicar se uma variável foi
inicializada.
Dim MeuVar, MeuCheck
MeuCheck = IsEmpty(MeuVar) ' Devolve True.
MeuVar = Null ' Fica Null.
MeuCheck = IsEmpty(MeuVar) ' Devolve False.
MeuVar = Empty ' Fica Empty.
MeuCheck = IsEmpty(MeuVar) 'Devolve True.
IsNull ( )
Descrição:
Devolve True ou False, a indicar se uma variável não
contém dados válidos 'Null'.
Dim MeuVar, MeuCheck
< MeuCheck = IsNull(MeuVar) ' Devolve False.
MeuVar = Null ' Fica Null.
MeuCheck = IsNull(MeuVar) ' Devolve True.
MeuVar = Empty ' Fica Empty.
MeuCheck = IsNull(MeuVar) ' Devolve False.
IsNumeric ( )
Descrição:
Devolve True ou False, a indicar se uma variável pode
ser convertida para um tipo Number.
Dim MeuVar, MeuCheck
MeuVar = 53 ' Atribui um valor
MeuCheck = IsNumeric(MeuVar) ' Devolve True.
MeuVar = "459.95" 'Atribui um valor
MeuCheck = IsNumeric(MeuVar) ' Devolve True.
MeuVar = "45 Help" ' Atribui um valor.
MeuCheck = IsNumeric(MeuVar) ' Devolve False.
IsObject ( )
Descrição:
Devolve True ou False, a indicar se uma variável é um
objecto válido.
Join ( )
Descrição:
Devolve uma string, que contém concatenadas todas as
substrings de um array.
Dim MeuString
Dim MeuArray(4)
MeuArray(0) = "As "
MeuArray(1) = "praias "
MeuArray(2) = "de "
MeuArray(3) = "Portugal."
MeuString = Join(MeuArray)
' MeuString contêm "As praias de Portugal.".
LBound ( )
Descrição:
O LBound é usado com a função Ubound para determinar o
tamanho de um array.
Lcase ( )
Descrição:
Devolve uma string que foi convertida para LowerCase.
Dim MeuString
Dim LCaseString
MeuString = "VBSCript"
LCaseString = LCase(MeuString)
' LCaseString têm "vbscript".
Left ( )
Descrição:
Devolve um numero específico de caracteres do lado
esquerdo de uma string.
Dim MeuString, Resultado
MeuString = "VBSCript"
Resultado = Left(MeuString, 3) ' Resultado tem "VBS".
LeftB ( )
Descrição:
O mesmo de Left mas para o tipo de variáveis Byte
Len ( )
Descrição:
Devolve o numero de caracteres de uma string
Dim MeuString
MeuString = Len("VBSCRIPT") ' MeuString tem 8.
LenB ( )
Descrição:
O mesmo da função len, mas para variáveis do tipo
Byte.
LoadPicture ( )
Descrição:
Devolve um Objecto de imagem. Também não é utilizável
por ASP.
Log ( )
Descrição:
Devolve o logaritmo de um valor.
LTrim ( )
Descrição:
Devolve a cópia de uma string sem os espaços (space)
iniciais
MeuVar = LTrim(" vbscript ")
' MeuVar devolve "vbscript ".
Mid ( )
Descrição:
Serve para tirar uma string entre dois valores
sai = Mid("Vamos lá programar", 7, 8)
sai vai ficar com "lá"
MidB ( )
Descrição:
Equivalente à função Mid, mas para ser usada com
variáveis do tipo Byte.
Minute ( )
Descrição:
Devolve um número entre 0 e 59, inclusive, a
representar o minuto de uma dada hora. ( ex.
Minute("10:22:00") , devolve 22 )
Month ( )
Descrição:
Devolve um numero entre 0 e 12, inclusive, a
representar o mês de uma determinada data. ( ex.
Month("2/12/2003") , devolve 12 )
MonthName ( )
Descrição:
Devolve uma string a indicar o mês referente a um
valor dado
Dim MeuVar
MeuVar = MonthName(10, True) ' MeuVar contêm "Out".
MsgBox ( )
Descrição:
Mostra uma janela de diálogo, que espera por um clique
do utilizador. Também não aplicável às ASP, mas sim ao
VBScript do lado do cliente, e só funcionando com o
Internet Explorer ( IE )
Now ( )
Descrição:
Devolve a data e hora corrente de acordo com os
'Settings' do sistema computador onde o pedido está a
ser efectuado.
Oct ( )
Descrição:
Devolve uma string a representar o valor Octal de um
número
Replace ( )
Descrição:
Devolve uma string onde uma substring foi trocada por
uma outra.
Replace("XXpXXPXXp", "p", "Y")
' o resultado é "XXYXXPXXY".
RGB ( )
Descrição:
Devolve um numero a representar uma valor de cor RGB.
Right ( )
Descrição:
Devolve um numero específico de caracteres do lado
direito de uma string.
Dim MeuString, Resultado
MeuString = "VBScript"
Resultado =Right(MeuString, 6) ' Resultado tem
"Script".
RightB ( )
Descrição:
Faz o mesmo de Right ( ), com a aprticularidade de ser
para variáveis do tipo Byte
Rnd ( )
Descrição:
Devolve um numero aleatório.
Antes de se usar esta função, use Randomize, para ele
se basear no relógio do sistema e desta maneira não
repetir valores.
Round ( )
Descrição:
Devolve um numero aredondado às décimas
Dim MeuVar, pi
pi = 3.14159
MeuVar = Round(pi, 2) ' MeuVar contêm 3.14.
RTrim ( )
Descrição:
Devolve a cópia de uma string sem os espaços (space)
finais
MeuVar = RTrim(" vbscript ") ' MeuVar devolve "
vbscript"
ScriptEngine ( )
Descrição:
Devolve uma string representativa da linguagem de
script que está a ser usada.
SEBV ( )
Descrição:
ScriptEngineBuildVersion ( )
Devolve o número da versão de criação do sistema de
scripting que está a ser usado.
Second ( )
Descrição:
Devolve um numero entre 0 e 59, inclusive, a
representar os segundos de um dado minuto.
( ex. Second ( "12:22:16" ) , devolve 16 )
SEMV ( )
Descrição:
ScriptEngineMajorVersion
Devolve o valor maior do número da versão do sistema
de Scripting que está a ser usado
SetLocale ( )
Descrição:
Adapta o Locale global, e devolve o anterior Locale
Sgn ( )
Descrição:
Esta função devolve o sinal de um numero
MeuyVar1 = 12: MeuVar2 = -2.4: MeuVar3 = 0
MeuSinal = Sgn(MeuVar1) ' Devolve 1.
MeuSinal = Sgn(MeuVar2) ' Devolve -1.
MeuSinal = Sgn(MeuVar3) ' Devolve 0.
Sin ( )
Descrição:
Devolve o seno de um ângulo
Space ( )
Descrição:
Devolve uma string com um número determinado de
espaços ( spaces )
Split ( )
Descrição:
Devolve um array com um numero especificado de
substrings.
Dim MeuString, MeuArray, Msg
MeuString = "VBScriptXéXgiro!"
MeuArray = Split(MyString, "x", -1, 1)
' MeuArray(0) tem "VBScript".
' MeuArray(1) tem "é".
' MeuArray(2) tem "giro!".
Msg = MeuArray(0) & " " & MeuArray(1)
Msg = Msg & " " & MeuArray(2)
Response.write Msg
Sqr ( )
Descrição:
Devolve a raíz quadrada de um numero
MeuSqr = Sqr(4) ' Devolve 2.
MeuSqr = Sqr(23) ' Devolve 4.79583152331272.
MeuSqr = Sqr(0) ' Devolve 0.
MeuSqr = Sqr(-4) ' Gera um erro
StrComp ( )
Descrição:
Devolve um valor a indicar o resultado de uma
comparação
Dim MeuStr1, MeuStr2, MinhaComp MeuStr1 = "ABCD":
MeuStr2 = "abcd" ' Define-se as variáveis.
MinhaComp = StrComp(MeuStr1, MeuStr2, 1) ' Devolve 0.
MinhaComp = StrComp(MeuStr1, MeuStr2, 0) ' Devolve -1.
MinhaComp = StrComp(MeuStr2, MeuStr1) ' Devolve 1.
String ( )
Descrição:
Devolve uma string com um número repetitivo de
caracters pedidos.
(ex. String(5, "*") ' devolve "*****". )
StrReverse ( )
Descrição:
Devolve uma string com os caracteres iniciais
invertidos
(ex.
StrReverse("VBScript") ' devolve "tpircSBV".
)
Tan ( )
Descrição:
Devolve a tangente de uma determinado ângulo.
Timer ( )
Descrição:
Devolve o número de segundos que passaram desde a
meia-noite 12:00 Am ou 00:00 horas
TimeSerial ( )
Descrição:
Devolve a variante de um subtipo Date, que contem o
tempo para uma especificada hora, minutos e segundos.
TimeValue ( )
Descrição:
Devolve a variante de um subTipo Date, contendo as
horas.
Dim MinhaHora
MinhaHora = TimeValue("4:35:17 PM")
' devolve 4:35:17 PM.
Trim ( )
Descrição:
Devolve a cópia de uma string sem os espaços iniciais
e finais (space)
MeuVar = Trim(" vbscript ") ' MeuVar devolve
"vbscript".
TypeName ( )
Descrição:
Devolve uma string representativa do tipo de variável
que é pedido
TypeName("VBScript") ' Devolve "String".
TypeName(4) ' Devolve "Integer".
TypeName(37.50) ' Devolve "Double".
UBound ( )
Descrição:
Devolve a maior ocorrência para um indicado tamanho de
array.
UCase ( )
Descrição:
Devolve uma string que foi convertida para uppercase
( ex. UCase("portugal") ' devolve "PORTUGAL". )
VarType ( )
Descrição:
Devolve um valor a indicar qual o tipo de variável que
estamos a usar.
MeuCheck = VarType(300) ' Devolve 2.
MeuCheck = VarType(#10/19/62#) ' Devolve 7.
MeuCheck = VarType("VBScript") ' Devolve 8.
Os valores acima devolvidos são representativos de :
0 -> Empty (uninitialized)
1 -> Null (no valid data)
2 -> Integer
3 -> Long integer
4 -> Single-precision floating-point number
5 -> Double-precision floating-point number
6 -> Currency
7 -> Date
8 -> String
9 -> Automation object
10 -> Error
11 -> Boolean
12 -> Variant (used only with arrays of Variants)
13 -> A data-access object
17 -> Byte
8192 -> Array
WeekDay ( )
Descrição:
Devolve um número representativo do dia da semana
MinhaData = #Outubro 19, 1962#
MeuDiaSemana = Weekday(MinhaData)
' vai ser devolvido 6, porque representa uma
Sexta-Feira
WeekdayName ( )
Descrição:
Retorna uma string a representar o dia da semana
MinhaData = WeekDayName(6, True)
' Minha data contém Sex
Year ( )
Descrição:
Devolve um numero a representar o ano, de uma
determinada data. ( sistema idêntico ao de month, day
etc. )
'Por J. Hennyere
|
|
|
|
|
