Julio Cesar Mendez
13 de Agosto del 2005

Bueno, tengo un problemita he hecho un programa de capturas de pesos atraves de un indicardor. no importa si no saben lo que es indicador, pero solo es para una introduccion.
Lo que quiero es eliminar una cantidad de caracteres y numeros que me aparcen de mas, esos no los ocuparia para almacenarlo en la base de datos, lo que me manda es "!.. 1200 kg 10/05/2005" sin comillas, lo que quiero es que me elimine desde "kg 10/05/2005", ah por supuesto los "!.." solo quiero que quede 1200, si alguin me puede ayudar se lo agradecere eternamente.

MPAZ
13 de Agosto del 2005

Hola,

Para hacer esto necesitas ocupar algunos m茅todos de la clase String.
Un camino ser铆a (siempre y cuando el patr贸n que defines en tu indicador sea el mismo, es decir, siempre aparezcan kg y el !).. buscar la posici贸n de la aparici贸n de kg. Eso lo haces con la funci贸n insbr.
Luego realizar un MID sobre la cadena original, desde la posici贸n 1 hasta donde encontr贸 el kg.
Ahora solo tendr谩s !..1200.
Ahora buscar donde aparece el 1200 con insbr.
y Volver a hacer un MID, esta vez la posici贸n inicial es donde aparece el 1200.

Aqu铆 te envi贸 un c贸digo de ejemplo. Abre un proyecto nuevo, coloca un bot贸n y en el evento click de este 煤ltimo escribe:
Dim str As String
Dim strFinal As String

Dim nposicion1200 As Integer
Dim nposicionkg As Integer


str = "!.. 1200 kg 10/05/2005"

nposicionkg = InStr(1, str, "kg")

strResto = Mid(str, 1, nposicionkg - 1)

nposicion1200 = InStr(1, strResto, "1200")

strFinal = Mid(strResto, nposicion1200)

MsgBox strFinal

Saludos.
MPAZ