Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
324
Assunto : Visual Basic
Titulo: Avaliando expressões - Eval no VB

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



É comum haver a necessidade de fazer a avaliação de expressões que tenham sido digitadas pelo próprio usuário ou recuperadas de algum local. Esse processo era chamado na época do clipper de macrosubstitução.

Algumas linguagens de script possuem recursos para isso, tal como o javascript através da instrução eval, mas o VB não realiza macrosubstituição.

Porém no VB podemos fazer uso de um componente para realizarmos a avaliação de expressões. O Microsoft Script Control faz isso.

Para tanto precisamos fazer um references para a biblioteca Microsoft Script Control 1.0, podendo então utilizar o seguinte código :


Dim sc As New MSScriptControl.ScriptControl
' Sempre deve-se especificar a linguagem padrão
sc.Language = "VBScript"
' Eis a expressão. Em um programa real ela poderia ser digitada
' em uma textbox
Dim espr As String
espr = "12 + 3 * 10"
Dim res As Double

'Faz a avaliação da expressão
res = sc.Eval(espr)

' mostra o resultado
MsgBox res

Set sc = Nothing

Mesmo sem fazer o references também podemos utilizar este componente, através do recurso de late binding, veja :

Dim sc As Object
Set sc = CreateObject("MSScriptControl.ScriptControl")
' Sempre deve-se especificar a linguagem padrão
sc.Language = "VBScript"
' Eis a expressão. Em um programa real ela poderia ser digitada
' em uma textbox
Dim espr As String
espr = "12 + 3 * 10"
Dim res As Double

'Faz a avaliação da expressão
res = sc.Eval(espr)

' mostra o resultado
MsgBox res

Set sc = Nothing


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
Nenhum comentário foi realizado ainda. Seja o primeiro !
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br