alguna funcion? o metodo?.....vb6

02/09/2004 - 14:33 por Antony | Informe spam
Buenos dias.
VB6
Quisiera saber si existe alguna funcion que me permita
obtener la parte numerica de una cadena de caracteres,
debido a que estoy creando una aplicacion donde el codigo
esta compuesto de caracteres alfabeticos y numericos,
MTE001, que pasa?..que para la creacion de un codigo
nuevo, la aplicacion lo hace automatico, y lo que tengo
es una tabla para el correlativo con un solo campo que es
el que me hace el movimiento del ultimo registro creado,
ese registro lo concateno con la nomenclatura del codigo,
se que es un poco enredado, pero se que debe haber alguna
manera de tomar la parte entera del codigo de la tabla
principal sin tener que utilizar una tabla para el
correlativo..espero que me entiendangracias
 

Leer las respuestas

#1 J. Carlos Herrero
04/09/2004 - 21:25 | Informe spam
Hola:
Prueba esto

Private Function lF_cSoloNumeros(ByVal vcCadena As String) As String
Dim liBucle As Integer
Dim lcNumero As String
vcCadena = Trim(vcCadena)
lcNumero = ""
For liBucle = 1 To Len(vcCadena)
If IsNumeric(Mid(vcCadena, liBucle, 1)) = True Then
lcNumero = lcNumero & Mid(vcCadena, liBucle, 1)
End If
Next
lF_cSoloNumeros = lcNumero
End Function

Espero que te sirva
Un saludo:
Carlos


Antony wrote:
Buenos dias.
VB6
Quisiera saber si existe alguna funcion que me permita
obtener la parte numerica de una cadena de caracteres,
debido a que estoy creando una aplicacion donde el codigo
esta compuesto de caracteres alfabeticos y numericos,
MTE001, que pasa?..que para la creacion de un codigo
nuevo, la aplicacion lo hace automatico, y lo que tengo
es una tabla para el correlativo con un solo campo que es
el que me hace el movimiento del ultimo registro creado,
ese registro lo concateno con la nomenclatura del codigo,
se que es un poco enredado, pero se que debe haber alguna
manera de tomar la parte entera del codigo de la tabla
principal sin tener que utilizar una tabla para el
correlativo..espero que me entiendangracias

Preguntas similares