Eliminar caracteres

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