Interpretar numeros

[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?

[David]

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 & "'"

[SeNdEr2003]

Muchas gracias!!, va encaminado!!!, ahora el tema es que este numero llega en un TXT, como hago para levantar un archivo txt, leerlo e interpretarlo de esa manera?

Bueno, para levantar y mostrar el txt, lo hago de la siguiente manera:

Código:

Open "C:\archivo.txt" For Input As #1
While Not EOF(1)

Line Input #1, Linea1

'Código de manejo de la línea

Wend
txtArchivo.Text = "C:\archivo.txt" 'aca me gustaria saber como obtener la direccion donde se encuentra el archivo
lblLinea1.Caption = Linea1

El tema es que este codigo solo me muestra una linea del archivo, como hago para mostrar y ver TODO el contenido?, y ademas linea por linea? pero de momento mostrarlo todo...

[Avellaneda]

Hola,

prueba así:

Código:

Private Sub Command1_Click()
Dim sLinea As String
Open "C:\Archivo.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, sLinea
    Text1 = Text1 & sLinea & vbNewLine
Loop
Close #1
End Sub

[SeNdEr2003]

gracias, funciono muy bien, me lo abre y muestra pero con simbolos raros, de esta manera:

ÿþ26535366||4532453245||

como hago para quitar los ÿþ que aparecen al principio, no se porque sale eso, ah y los espacios me los muestra con || esos simbolos, alguna forma de ordenar eso? gracias!

[Avellaneda]

Si los símbolos raros siempre son dos caracteres y al principio de cada línea, puedes hacer algo así:

Código:

Do While Not EOF(1)
    Line Input #1, sLinea
    If sLinea <> "" Then
        ' eliminamos los dos primeros caracteres
        sLinea = Right(sLinea, Len(sLinea) - 2)
        ' sustituimos || por espacios
        sLinea = Replace(sLinea, "||", " ")
        Text1 = Text1 & sLinea & vbNewLine
    End If
Loop

[SeNdEr2003]

me sirvio todo gracias, ahora el tema es, tengo separado los primeros 4 numeros de la cadena, pero necesito separar la segunda parte, es decir si tengo:

26535366, tomar solo 5366, se entiende?, usando la funcion: Mid(Text1.Text, 1, 4) me extrae los 1ros cuatro, es decir 2653, pero como hago para tomar los 4 siguientes??, probe poniendo 2,4 pero me toma otra cosa...alguna idea que me ayude?

Edito, viendo la ayuda de VB me encuentro con esto para tomar los 4 de la derecha: Codigo2 = Right$(Text1.Text, 1, 4)

pero me dice argumento no valido, yo para controlar uso un if por ahora, luego vere de usar base de datos, son pocos nros de momento...

tengo asi:

Código:

Dim sLinea As String
Open "C:\archivo.dat" For Input As #1
Do While Not EOF(1)
    Line Input #1, sLinea
    If sLinea <> "" Then
        ' eliminamos los dos primeros caracteres
        sLinea = Right(sLinea, Len(sLinea) - 2)
        ' sustituimos caracteres especiales por espacios
        sLinea = Replace(sLinea, "||", " ")
        Text1 = Text1 & sLinea & vbNewLine
    End If

Loop
Close #1
Dim Codigo As String
Codigo = Mid(Text1.Text, 1, 4) 'Extraer 4 caracteres desde el primero
Codigo2 = Right(Text1.Text, 1, 4) 'Extraer 4 caracteres desde el ultimo
If Codigo = "2653" Then
 Text2.Text = "Color Rojo"
 If Codigo2 = "5366" Then
  Text3.Text = "Color Blanco"
 End If
End If

me da error de argumento en el right...

[David]

Puedes hacerlo con Mid:

Código:

Codigo = Mid(Text1.Text, 5, 4) 'Tomar a partir del 5º caracter, 4 caracteres

o con Right

Código:

 
Codigo = Right(Text1.Text, 4) 'Tomar los cuatro caracteres de la derecha

También puedes usar Left para los cuatro primeros caracteres

Código:

 
Codigo = Left(Text1.Text, 4)

[SeNdEr2003]

listo funciona de maravillas, graciaasssssssssssssssssssssssssssss!!!