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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


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


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Guardar fichero de texto
« en: 20 Junio 2007, 20:59 pm »

Hola.

Bueno, hace que no programo meses, y tengo la mente oxidada.  :xD

Cuando queremos meter guardar el contenido de algo en un archivo, podemos usar:

Código:
Open "C:\texto.txt" for output as #1

Lo que pasa, es que yo quiero que el nombre "texto" sea el contenido de una variable, algo asi:

Código:
Open "C:\" & fecha & ".txt" For Output As #1

La variable "fecha" contiene la fecha actual del sistema, asi que el resultado deberia ser:

C:\20 06 07.txt

Pero no se como,he probado con Append y tampoco...

Aver si alguien me hecha una mano.

Un saludo  ;)


En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Guardar fichero de texto
« Respuesta #1 en: 20 Junio 2007, 21:16 pm »

Eso es debido a que al contener "/" pues da error,no puedes hacer esto: c:\16/8/.txt porque tira erro por las barras.
Solucion,quitarselas:
Código:
Private Sub Command1_Click()
Dim fecha As String, datos() As String
fecha = Date
datos = Split(fecha, "/")
Open "c:\" & datos(0) & datos(1) & datos(2) & ".txt" For Binary As #1
Put #1, , "hi"
Close #1
End Sub
Espero que te sirva.
Saludos.


En línea

BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Guardar fichero de texto
« Respuesta #2 en: 20 Junio 2007, 21:25 pm »

Es que yo no he usado "Date", lo he hecho un poco mas complejo, con apis.
Código:
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Sub Form_Load()

Dim SysTime As SYSTEMTIME



GetSystemTime SysTime

fecha = SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & "  " & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond


End Sub


En ningun lado estoy metiendo " \ "  :-\
En línea

yeikos


Desconectado Desconectado

Mensajes: 1.424



Ver Perfil
Re: Guardar fichero de texto
« Respuesta #3 en: 20 Junio 2007, 21:28 pm »

Pero estás utilizando los dos puntos :  :rolleyes:
En línea

BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Guardar fichero de texto
« Respuesta #4 en: 20 Junio 2007, 21:34 pm »

Pero estás utilizando los dos puntos :  :rolleyes:

Jaja, cierto YeIk0s...aunque de todas maneras, sigue sin ir:

Código:
fecha = SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & "  " & SysTime.wHour & "-" & SysTime.wMinute & "-" & SysTime.wSecond

Por ahi no hay caracteres no permitidos  :-\

Se guarda sin nombre, pero sí con la extension .txt

Un saludo  ;)
En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Guardar fichero de texto
« Respuesta #5 en: 20 Junio 2007, 21:42 pm »

Código:
Dim fecha As String

fecha = Day(Now) & "-" & Month(Now) & "-" & Year(Now)
Open "C:\" & fecha & ".txt" For Binary As #1
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
BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Guardar fichero de texto
« Respuesta #6 en: 20 Junio 2007, 21:59 pm »

Gracias Hendrix. Ya está solucionado  :P

Código:
Private Sub Command1_Click()
Dim fecha As String


fecha = Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " " & Hour(Now) & "-" & Minute(Now) & "-" & Second(Now)
Open "C:\" & fecha & ".txt" For Binary As #1
End Sub

Un saludo  ;)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Guardar datos en Un Fichero
Programación C/C++
mapers 1 1,464 Último mensaje 5 Abril 2011, 23:22 pm
por Akai
Fichero de texto en java
Java
maikmilk 7 3,055 Último mensaje 16 Junio 2012, 02:32 am
por Nortis
guardar objecto en fichero « 1 2 »
Java
betikano 13 5,150 Último mensaje 24 Mayo 2014, 18:48 pm
por betikano
Leer fichero y guardar en variables
Programación C/C++
Joaqqinn 6 2,959 Último mensaje 13 Enero 2016, 23:43 pm
por Orubatosu
[c++]Guardar y cargar datos de un fichero .txt
Programación C/C++
lordluisiv 4 2,000 Último mensaje 28 Marzo 2019, 22:18 pm
por lordluisiv
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines