Eruano's Blog

Simple y con foco… como debe ser!

VBS – Usar expresión regular

leave a comment »

Validando un formulario haciendo uso de VBS me encontre con el problema de usar una expresion regular, aqui dejo el código que use para validar que un texto sólo contenga un número entero positivo:

Function ValidarEntero(TextoEntrada)
Dim strMensajeError
strMensajeError = ""
Set regEx = New RegExp
' Modificar la siguiente linea para ajustar al patron que se desea evaluar
regEx.Pattern = "^\d*$"
If Not regEx.Test(TextoEntrada) Then
strMensajeError = "El valor debe ser entero y mayor o igual a Cero(0)"
End If
ValidarEntero = strMensajeError
End Function

Espero sea de ayuda.
Un Saludo.

Written by eruano

27 abril 2012 a 7:41 am

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: