Autor
|
Tema: Ayuda con creacion de txt (Leído 2,095 veces)
|
Jables
Desconectado
Mensajes: 1
|
Bueno, en vista de que no consigo hacerlo funcionar vengo por vuestra ayuda. creo que el codigo se explica por si mismo: Private Sub Command1_Click() Dim n As Integer
n = n + 1 For n = 0 To 0
Close #2 Open App.Path & "\Presupuesto N° " & n & ".txt" For Output As #2
Print #2, "***********************************************************************************************************" Print #2, " Barras Móviles del Faraón " Print #2, "***********************************************************************************************************" Print #2, "Presupuesto N°: " & n Print #2, " " Print #2, "Gracias por confiar en el Faraón. En este presupuesto encontrará la información que usted ha solicitado, " Print #2, "así como tambien los detalles de nuestros servicios. Ante cualquier consulta que pueda surgir, no dude en " Print #2, "contactarse con nosotros mediante los datos que figuran al final de este documento." Print #2, "***********************************************************************************************************" Print #2, DATOS; DEL; SOLICITANTE: Print #2, "Nombre: " & Text2.Text Print #2, "Email: " & Text3.Text Print #2, "Fecha del Evento: "; Text4.Text Print #2, "Servicio seleccionado: " Close #2
res = ShellExecute(Form1.hwnd, "Open", App.Path + "\presupuesto N° " & n & ".txt", "", "", 3)
El problema es que nunca genera el archivo "Presupuesto N°2.txt" no pasa jamás del 1 (en form_load está el N=1 que hace que el primer txt sea el nro 1) alguien puede ver mi error? gracias!
|
|
|
En línea
|
|
|
|
HdM
Desconectado
Mensajes: 1.674
|
Hola. Pues si que hay cosas raras si: Private Sub Command1_Click() Dim n As Integer n = n + 1 For n = 0 To 0
Lo 1º es que estás definiendo la variable a nivel local de este proc., de modo que su ámbito sólo se extiende al proc. Lo digo por lo de: (en form_load está el N=1 que hace que el primer txt sea el nro 1) Lo 2º es que a n le das valor 1 y luego montas un for (que no le veo ningún sentido) donde vuelves a igualar n a 0. Eso jamás te va a crear ningún fichero cuyo Nº sea <> 0. Saludos.
|
|
|
En línea
|
- Nice to see you again -
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
me sorprende que no te de error de bucle FOR sin NEXT. Esto en lenguaje de gente se traduce en. Repetir el siguiente código hasta que cero sea igual a cero. Ademas todo for necesita su next. Ese codigo esta bastante incompleto y mal :S Ademas, vos decis que pones la variable n en uno en esta linea: pero al hacer esto: La variable pasa a valer cero :S
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
HdM
Desconectado
Mensajes: 1.674
|
Hola.
Está claro que el next del for lo ha omitido, pero estar, es obvio que está en el source, igual que todo Sub necesita su End Sub y lo ha omitido también. Pero es evidente, que también estará.
Con respecto a los problemas de la generación de los ficheros, pues ya está todo dicho.
Saludos.
|
|
|
En línea
|
- Nice to see you again -
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Ayuda creacion troyano vb
Programación Visual Basic
|
r3y_fu3go
|
7
|
2,613
|
18 Septiembre 2006, 17:30 pm
por ~~
|
|
|
Ayuda con creacion de programa
Programación Visual Basic
|
luiggy2
|
8
|
3,264
|
23 Marzo 2008, 13:21 pm
por Chefito
|
|
|
Ayuda!!!!!!!Creacion de menu
.NET (C#, VB.NET, ASP)
|
carlosavda89
|
3
|
3,284
|
17 Noviembre 2009, 16:07 pm
por Meta
|
|
|
Ayuda con la creacion de un bot?
Juegos y Consolas
|
iLouks
|
3
|
6,174
|
16 Marzo 2011, 18:14 pm
por iLouks
|
|
|
ayuda! creación pág. weB!
Desarrollo Web
|
32hacking
|
1
|
1,753
|
20 Mayo 2012, 02:40 am
por EFEX
|
|