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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Guardar .txt con nombre aleatorio (¿random?)		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Guardar .txt con nombre aleatorio (¿random?)  (Leído 4,666 veces)
ubetor^^

Desconectado Desconectado

Mensajes: 227



Ver Perfil
Guardar .txt con nombre aleatorio (¿random?)
« 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
En línea
SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: Guardar .txt con nombre aleatorio (¿random?)
« Respuesta #1 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
En línea
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Guardar .txt con nombre aleatorio (¿random?)
« Respuesta #2 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
En línea
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
ubetor^^

Desconectado Desconectado

Mensajes: 227



Ver Perfil
Re: Guardar .txt con nombre aleatorio (¿random?)
« Respuesta #3 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:
En línea
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Guardar .txt con nombre aleatorio (¿random?)
« Respuesta #4 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
En línea
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Guardar .txt con nombre aleatorio (¿random?)
« Respuesta #5 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
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Batch] Sabeis en que se basa el numero aleatorio de la variable %random%? « 1 2 »
Scripting 		moikano→@ 10 9,487 Último mensaje 4 Enero 2011, 05:55 am
por Germaniac
[SOLUCIONADO] Generar nombre aleatorio. « 1 2 3 »
Programación C/C++ 		Yugget 24 10,735 Último mensaje 11 Marzo 2014, 02:13 am
por Yoel Alejandro
JFileChooser guardar un archivo con nombre preterminado
Java 		SrTrp 1 3,767 Último mensaje 22 Noviembre 2018, 11:04 am
por rub'n
me escribe gente random en instagram que saben mi nombre he apellidos
Hacking 		leonel :) 3 2,704 Último mensaje 7 Marzo 2022, 22:09 pm
por .xAk.
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines