|
21
|
Foros Generales / Dudas Generales / Re: No os parece difícil programar?
|
en: 28 Febrero 2012, 18:50 pm
|
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
|
|
|
22
|
Programación / Programación C/C++ / Re: Ayuda para un programillo
|
en: 12 Diciembre 2011, 19:15 pm
|
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
|
|
|
23
|
Programación / Programación Visual Basic / Re: "El misterio de la variable indx" jaja
|
en: 26 Octubre 2011, 22:42 pm
|
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 Option Explicit Private Sub Command1_Click() Form2.Show End Sub
Y el sig codigo en form2 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
|
|
|
26
|
Foros Generales / Foro Libre / Re: Programacion en argentina... alguna salida?
|
en: 24 Julio 2011, 05:50 am
|
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
|
|
|
27
|
Programación / Programación Visual Basic / Re: Texto a arrays
|
en: 6 Abril 2011, 17:28 pm
|
Muchas gracias a todos. Logré solucionarlo gracias a la idea de seba123neo. Al final el codigo quedó asi: 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
|
|
|
28
|
Programación / Programación Visual Basic / Re: Texto a arrays
|
en: 5 Abril 2011, 19:28 pm
|
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
|
|
|
29
|
Programación / Programación Visual Basic / Texto a arrays [SOLUCIONADO]
|
en: 5 Abril 2011, 18:20 pm
|
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: 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
|
|
|
|
|
|
|