Mensajes

No, pero en cambio me parece difícil y frustrante diseñar (todo lo relacionado con diseño gráfico) por mas que me esfuerzo. Hay gente que no tiene vocación para ciertas cosas pero para otras sí. Aunque también puede ser que no tengas buenos maestros, intenta investigar por tu cuenta o probar otros métodos de estudio, si aun así se te dificulta pues ya tu dirás.

Saludos

[iostream]

Hola, a simple vista ve lo siguiente
1.- Te falta incluir los archivos de cabecera iostream y  cstdlib, que es donde vienen las funciones cout ,  cin y system() que utlizas en tu programa
2.- Falta ; en la penúltima linea
3.- Falta ; en la última linea
4.- Te falta el ; en todos los break

Saludos

Ya entendí el problema, la verdad si es algo raro que visual basic no destruya la variable al descargar el form =S

Compruebenlo de esta forma:

• En un proyecto agregar dos form (form1 y form2)
• Agregar un command a cada uno

Usar el sig. codigo en form1

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
    Form2.Show
End Sub

Y el sig codigo en form2

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim i As Integer

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    MsgBox i
    i = i + 1
    MsgBox i
End Sub


Al cerrar el form2 aun con el unload me la variable i conserva su valor. Obviamente esto se puede solucionar de muchas formas, y $Edu$ el método que utilizas de inicializar la variable 0 es muy valido, de hecho se recomienda siempre inicializar la variables para evitar este tipo de cosas. Otro detalle curioso es qui si la variable es declarada dentro de form_load() si se destruye su valor. En fin, visual basic y sus misterios

A ver ya que estamos, yo me se varias:

¿Que es lo primero que le mete el hombre a la mujer cuando se casan?

Para medir su carga, debe tener un botón, entre mas leds enciendan mas carga tiene.

Saludos

y lo que me dijo un analista en otro colegio es que todo lo que se podia hacer en software ya estaba hecho, asi que el se dedica a hora al derecho

Pues que mediocre analista, la verdad que bueno que se dedica a derecho. Esa manera de pensar no cabe en un ingeniero de software.

En mi pais, Mexico, no hay mucho campo, pero el poco que hay es muy bien pagado, sobre todo con software a medida para pymes o grandes empresas. Ahi es donde está el dinero y lo digo por experiencia propia como jefe de sistemas en una empresa grande.

Saludos

Muchas gracias a todos.

Logré solucionarlo gracias a la idea de seba123neo.

Al final el codigo quedó asi:
       

Código (vb) [Seleccionar] Expandir

Dim linea As String, archivo As String, division(6) As String, aux As String
        Dim i As Integer
        Dim subE As ListItem
        archivo = Trim(OFName.lpstrFile)
        Open archivo For Input As #1
        While Not EOF(1)
            Line Input #1, linea
            aux = Mid(linea, 1, 1)
            division(0) = Trim(Mid(linea, 1, 13)) 'Caja
            division(1) = Trim(Mid(linea, 14, 31)) 'Descripcion
            division(2) = Trim(Mid(linea, 45, 13)) 'Caja/Cliente
            division(3) = Trim(Mid(linea, 59, 13)) 'Producto
            division(4) = Trim(Mid(linea, 72, 13)) 'Exi. Actual
            division(5) = Trim(Mid(linea, 85, 20)) 'Peso
            division(6) = Trim(Mid(linea, 106, 20)) 'Precio
           
            If aux = "0" Then
                Set subE = lv.ListItems.Add(, , division(0))
                For i = 1 To UBound(division)
                    subE.SubItems(i) = division(i)
                Next
            End If
        Wend
        Close #1

Saludos

[division = Split(linea,vbTab)]

Gracias por responder, intentaré lo de las Exp Reg que no se me habia ocurrido.

Lo del split(), lo use de diferentes formas, pero al ultimo lo deje asi al copiar el codigo. Pero de la forma que lo tenia era:
division = Split(linea,vbTab)

Bueno, probaré y les cuento. Gracias

Hola a todos, necesito un poco de orientación en un proceso que no puedo solucionar.

Resulta que tengo un archivo de texto con miles de lineas con el siguiente formato (este lo genera un sistema que no puedo cambiar):

00304-001    1042X250X131MM(150)51B/CK *750 84-0070      00304-001            1,440   1           600   2           300         1,740
00304-002    507X257X131(150)51 B/C K *450  84-0061      00304-002                0   4         1,050   1           150           900
00304-003    507X252X258MM (150)51BCK *450  84-0020      00304-003            1,200   0             0   2           300           900
00304-006    1042X507X256(75)51 B/C K *225  84-0058      00304-006              402   0             0   0             0           402
00304-012    1500X793 (200) 32 C K  *400    84-0146      00304-012              730   0             0   1           200           530

La idea es pasarlos a un listview para luego trabajar con los datos. El detalle es que no logro separar cada linea en las 9 columnas, ya que la separación no es un tab, si no que son espacios variables, por lo tanto split() no me sirvió.

Este es el codigo que tengo, pero me lo carga todo en una sola columna, ya que no me respeta el split:

Código (vb) [Seleccionar] Expandir

Dim linea As String
   Dim division() As String
   Dim i As Integer
   Dim r As String
   Dim subE As ListItem
   Open "C:\INV320.TXT" For Input As #1
   While Not EOF(1)
       Line Input #1, linea
       division = Split(linea)
       r = Mid(division(0), 1, 1)
       If r = "0" Then
           Set subE = ListView1.ListItems.Add(, , division(0))
           For i = 1 To UBound(division)
               subE.SubItems(i) = division(i)
           Next
       End If
   Wend
   Close #1

Y esta es la salida:


Saludos

Si no vas a utilizar ninguna de las funciones del combo, dejalo en blanco, no pasa nada.

No veo nada que tengas que solucionar 

Saludos