Pasar Texto a un Block de Notas

Iniciado por MANULOMM, 30 Agosto 2006, 05:03 AM

0 Miembros y 1 Visitante están viendo este tema.

MANULOMM

Hola
Quiero saber como hago para pasar un texto que tenga en textbox a un block de notas tal cual y que despues el archivo del block de notas se guarde con la fecha en el siguiente formato
(Año - Mes - Dia) --> 2006 - 08 - 29

Muchas Gracias

JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA


FaiF (A¥åHøRå)

Sería mucho más fácil guardando el textbox desde visual basic directamente a un archivo .txt con
Open Format(Now, "yyyy-mm-dd") & ".txt" For Append As #1
Write #1, Textbox1.Text
Close #1

(El código lo he escrito sin VB pero creo que está bien)


Para hacerlo como tu dices tendrías que abrir el notepad mediante la función Shell y mediante SendKeys enviar el contenido del textbox. Posteriormente, mediante sendkeys tambíen deberás guardarlo (Ctrl+g).

Salu2  ;)

MANULOMM

listo
pero tengo una duda donde queda guardo el archivo .txt

Gracias

JUAN MANUEL LOMBANA
Medellín - Colombia


Zeroql

Keda guardado en la carpeta donde tenes tu aplicacion
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#


MANULOMM

hola,
Muchas gracias por su colaboracion
tambien me he dado cuenta de que el archivo txt queda con comillas hay alguna manera de eliminarlas...

Muchas gracias

JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA


FaiF (A¥åHøRå)

Creo que poniendo Put en vez de Write se soluciona.

Salu2  ;)

R-Q-X

Private type R_Registro
s as string * 120
ENd Type
Dim Registro as R_Registro

Private sub Form_Load()
open "C:\Archivo.txt" For random as #1
Registro.s = text1.text
Put #1,, registro
Close
End Sub

Espero q te sirva y creo q no me falta nada xD!
Salu2
Que fue lo mas inteligente que salio de la boca de una mujer?
la p*j* de A.Einstein

MANULOMM

Muchas Gracias todas las respuestas me sirvieron.

Cordilamente


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA


MANULOMM

hola, me ha surgido una duda
despues de haber creado el archivo txt
como puedo hacer para mostrarlo en un textbox


Zeroql

puedes abrirlo con GET


Open "archivo.text" For Random As #1
get #1, Textbox1.Text
Close #1
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#