Imprimir Página - Guardar .txt con nombre aleatorio (¿random?)

Título: Guardar .txt con nombre aleatorio (¿random?)
Publicado por: ubetor^^ en 9 Octubre 2006, 18:29 pm

Necesito hacer que una aplicación guarde ficheros .txt con un nombre al azar, de manera que nunca se creen 2 .txt´s con el mismo nombre. Tengo este code:

Código:

Open ("nombre_al_azar.txt") For Output As #1

Utilicé la función random para otras cosas pero nunca para esto :huh: Me vale también si el nombre del difchero están compuesto por un número...lo único que se me ocurre es crear un variable que vaya creciendo según el timer...pero nosé si estaría correcto :huh:

De antemano gracias, y salu2 para los miembros del foro

Título: Re: Guardar .txt con nombre aleatorio (¿random?)
Publicado por: SheKeL_C$ en 9 Octubre 2006, 18:38 pm

Personalizalo a tu gusto.

Código:

vuelve:
Randomize                           'nuero aleatorio
azar = Int(Rnd * 2) + 1         ' azar es o 1 o 2
If Dir("C:\" & azar & ".txt") <> "" Then 'comprueba si existe, si existe va a vuelve y si no existe se crear y coloca dentro su numero
    GoTo vuelve
Else
    Open "C:\" & azar & ".txt" For Append As #1
    Print #1, azar
    Close #1
End If

Título: Re: Guardar .txt con nombre aleatorio (¿random?)
Publicado por: Hendrix en 9 Octubre 2006, 20:56 pm

Aki te dejo una funcion que genera nombres aleatorios...la hice hace no muchos dias:

Código:

Public Function Palabraaleatoria(longitud As Integer) As String
Dim buffer As String

For i = 1 To longitud
buffer = Int((122 - 97 + 1) * Rnd) + 97
Palabraaleatoria = Palabraaleatoria & Chr(buffer)
Next
End Function

Y luego se usaria asi:

Código:

msgbox palabraaleatoria (3)

Donde el 3 es la longitud de la palabra aleatoria.

Salu2

Título: Re: Guardar .txt con nombre aleatorio (¿random?)
Publicado por: ubetor^^ en 9 Octubre 2006, 22:06 pm

Bien, gracias por los codes, me funcionan de maravilla. Esto último ya es un capricho de mi aplicación: Resulta que después de haber creado el archivo necesito que lo suba a mi FTP, y no se como hacer referencia al nombre aleatorio:

Código:

"PUT palabraleatoria.txt " & "palabraleatoria.txt"

Se supone que apartir de PUT ya no importa lo que pongas porque VB lo va coger como simple texto no?? :huh:

Título: Re: Guardar .txt con nombre aleatorio (¿random?)
Publicado por: Hendrix en 9 Octubre 2006, 22:12 pm

Al nombre aleatorio lo pones dentro de una variable y lo subes asi:

Código:

"PUT " & varaible & ".txt " & varaible & ".txt "

Salu2

Título: Re: Guardar .txt con nombre aleatorio (¿random?)
Publicado por: vivachapas en 11 Octubre 2006, 23:58 pm

HOLA! SOY BASTANTE NUEVO EN ESTO... SOLAMENTE SE LO BASICO, MUCHO DE LO CUAL LO APRENDI LEYENDO EL FORO.
QUERIA SABER SI ALGUIEN ME AYUDABA A ENTENDER ESTOS CODIGOS... YO QUISIERA SABER COMO GENERAR UN ARCHIVO EN BV UN .txt CON LOS CODIGOS ANTERIORES PUDE LOGRAR HACER UNO CON NOMBRE jaja PERO NO LOGRO PONERLE CONTENIDO ADENTRO, OSEA, CUANDO ABRO EL ARCHIVO APARECE EN BLANCO....
TODO LO Q HICE ES UN CommandButton AL CUAL LE PUSE EL SIGUIENTE CODIGO:
Private Sub Command1_Click()
Open "C:\Documents and Settings\Usuario Final\Escritorio\jaja.txt" For Append As #1
End Sub

DESDE YA MUCHAS GRACIAS

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ubetor^^ en 9 Octubre 2006, 18:29 pm