23/05/2008, 12:05
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años Puntos: 839 | |
| Respuesta: Interpretar numeros
Cita:
Iniciado por SeNdEr2003  Buenas
Necesito en VB6 poder interpretar algo a partir de nros, es decir, nos llegan unos txt a la empresa y necesitamos levantar ese txt que vienen varios nros, unos 16, 0010299302 y asi, el tema es que por ej el 0010 significa que el auto no esta listo, el 2993 significa el color, como hago en primer lugar para lograr esa separacion y luego interpretar lo que cada codigo significa?, tendria el significado de cada codigo en una base de datos...pero deberia mostrar en el software lo que quiere decir ese conjunto de nros, se entiende? Por lo que veo cada 4 números significa algo. Con Mid puedes extraer cada 4 caracteres y comparar con lo que tienes en la BD. Por ejemplo:
Código:
Dim Codigo As String
Codigo = Mid("0010299302", 1, 4) 'Extraer 4 caracteres desde el primero
BD = "select descripcion from codigos where codigo='" & Codigo & "'"
|