elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Crearcion de Archivos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Crearcion de Archivos  (Leído 1,193 veces)
Mclaren_West

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Crearcion de Archivos
« en: 22 Abril 2006, 14:53 pm »

Hola Como estan foreros y moderadores saben tengo una duda bueno no es una duda no e hacerlo la creacion de archivos en vb saben que la ayuda plantea esto para la creacion de dichos archivos:

Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\archivoprueba.txt", True)
    a.WriteLine("Esto es una prueba.")
    a.Close
End Sub

hay me crea un directorio en c pero es un archivo .txt y me crea eso de
"esto es una prueba", lo que yo quiero hacer es que me cree un archivo
pero que este tenga un tamaño definido por mi es decir que soporte unas
1000 variable si lo haro por .txt el me puede alojar indefinidas variable
y no lo quiero asi sera que ud me pueden ayudar con ese problema???

gracias de antemano por su colaboracion conmigo


En línea

SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: Crearcion de Archivos
« Respuesta #1 en: 22 Abril 2006, 15:12 pm »

a mi m gusta mas codear de otra manera un poco mas facil, al fn y al cabo son menos lineas ;)

Código:
Private Sub Command1_Click()
Timer1.Enabled = True  ' enciende el timer
End Sub

Private Sub Timer1_Timer()

    Open text1.text For Append As #1
If FileLen(Text1.Text) < Val(Text2.Text) Then     'en el text2 pones el tamaño en bytes
    Print #1, "." 'aqui escribe Tan solo un punto
    Close #1
Else
    Timer1.Enabled = False 'cuando el tamaño ha llegado el valor no s vuelve a repetir
End If

End Sub

Te lo e puesto con comentarios para q te aclares mejor


« Última modificación: 22 Abril 2006, 15:41 pm por seken_C4 » En línea

Mclaren_West

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: Crearcion de Archivos
« Respuesta #2 en: 22 Abril 2006, 15:25 pm »

ok pero mira esto, si yo que en una variable hay en este caso es txt me valla creando una variable hay por ejemplo 1 "a" en el txt cada vez que el timer avance y luego por medio de un inputbox yo le diga a cuantas "a" crea cada segundo me entiendes?? es algo asi como esto

timer1.interval = 1000
seg = seg + 1
 bueno cada vez que la variable seg me aumente deacuerdo al timer me cree una "a" hasta el tamaño que yo le defina utilizando lo que me acabas de enseñar

bueno espero me ayas entendido lo que te e querido decir
En línea

SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: Crearcion de Archivos
« Respuesta #3 en: 22 Abril 2006, 15:45 pm »

La verdad es q no te entiendo, pero exandole imaginacion...
creo q lo q pides es k en un segundo escriba una letra, en 2 segundos 2 letras y en 3 segundos..... no se si es lo q pides aunk no l veo la vntaja d hacerlo asi..

Sino prueba a explicarte mejor para q t entienda  ;)




En línea

Mclaren_West

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: Crearcion de Archivos
« Respuesta #4 en: 22 Abril 2006, 16:05 pm »

ok bueno voy a enviarte un privado explicandote para ver si asi me entiendes mejor ok ;D
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines