SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ANGEL_29 en Domingo 20 de Marzo de 2005, 20:55

Título: Crear Un Archivo De Block De Notas
Publicado por: ANGEL_29 en Domingo 20 de Marzo de 2005, 20:55

Bueno mi pregunta va referida a como podria crear un archivo de block de notas !!!!!!,, es decir lo que yo escriba en textbox y al hacer click en un boton de comando mandar ese conenido A un archivo de block de notas....


GRACIAS DE ANTEMANO POR LA AYUDA !!!!!!!!!!!!!!!!!!!!!!!


 :smartass:

Título: Re: Crear Un Archivo De Block De Notas
Publicado por: Jose Arriagada en Lunes 21 de Marzo de 2005, 15:27

En vez de usar un textbox, debes usar el control MS Rich Textbox, que te permite darle formato a tu texto, guardarlo y cargarlo en forma directa.

Cargalo en la barra de herramientas,  usando Proyecto->Componentes y marcando el control Microsoft Rich TextBox Control 6.0.

Agregalo en tu formulario.

Para cargarlo, usas :

RichTextBox1.LoadFile = <Ruta y Nombre del Archivo>

Para guardarlo, usas:

RichTextBox1.SaveFile = <Ruta y Nombre del Archivo>

Espero te sirva...

Título: Re: Crear Un Archivo De Block De Notas
Publicado por: xtolox1 en Miércoles 23 de Marzo de 2005, 22:11

aqui puedes  guardar lo que escribas en un texbox y leer ese archivo tambien:

primero necesitas esto en un modulo

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function LeeTXT(Archivo As String, Seccion As String, Clave As String)
Dim iRetLen As Integer
Dim sRet As String

sRet = Space(255)
iRetLen = GetPrivateProfileString(Seccion, Clave, "", sRet, Len(sRet), Archivo)
sRet = Left(sRet, iRetLen)
LeeINI = sRet
End Function

Sub GrabaTXT(Archivo As String, Seccion As String, Clave As String, Text As String)
WritePrivateProfileString Seccion, Clave, Text, Archivo
End Sub

ESTO EN EL FORMULARIO:
para guardar lo que este en el texbox lo haces asi :

GrabaTXT App.Path & "\archivo.txt", "Dato", "Clave", txtInformacion.text

donde archivo.txt es donde quedara la informacion, dato sera la cabeza de ese archivo y clave sera la linea de este y txtinformacion.text sera donde esta la informacion.

QUEDARIA ASI EN EL BLOCK DE NOTAS

[Dato]
Clave= "lo que estaba escrito en el textbox"


y para leer ese archivo lo haces asi:

txtInformacion.text = LeeTXT(App.Path & "\archivo.txt", "Dato", "Clave")

si quisieras guardar mas informacion de otros textbox debes cambiar la palabra clave por cualquiera que se te ocurra no necesariamente deben llamarse asi eso queda a tu gusto. si tienes dudas manda un mail a xtolox@hotmail.com y te ayudare. espero que te haya quedado claro. saludos

PD: EL ARCHIVO SE CREA DONDE ESTA PU PROYECTO.