Imprimir Página - Guardar fichero de texto

Título: Guardar fichero de texto
Publicado por: BenRu 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 ;)

Título: Re: Guardar fichero de texto
Publicado por: Jareth 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.

Título: Re: Guardar fichero de texto
Publicado por: BenRu 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 " \ " :-\

Título: Re: Guardar fichero de texto
Publicado por: yeikos en 20 Junio 2007, 21:28 pm

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

Título: Re: Guardar fichero de texto
Publicado por: BenRu en 20 Junio 2007, 21:34 pm

Cita de: YeIk0s en 20 Junio 2007, 21:28 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 ;)

Título: Re: Guardar fichero de texto
Publicado por: Hendrix 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

Título: Re: Guardar fichero de texto
Publicado por: BenRu 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 ;)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: BenRu en 20 Junio 2007, 20:59 pm