Autor
Necesitas:
1 Formulario (frmMain)
2 TextBox (txtFile, txtRuta)
2 Botones (cmdGuardar, cmdAbrir)
Codigo:
En el codigo del boton cmdAbrir
Código:
Private Sub cmdAbrir_Click()
'Abriremos el archivo que se indique en el textbox txtRuta
'Problema! debes poner una variable por linea!!!
Dim arc As String
Open txtRuta.Text For Input As #1
Input #1, arc 'pon aqui tantas variables como lineas alla en el archivo...
txtFile.Text = arc
MsgBox "Archivo " & txtRuta.Text & " Abierto correctamente", vbInformation, "Textos"
End Sub
En el boton cmdGuardar
Código:
Private Sub cmdGuardar_Click()
'Guardaremos el texto en el archivo que se indique en txtRuta
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
Dim canalLibre As Integer
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open txtRuta.Text For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, txtFile.Text
Close #canalLibre
MsgBox "Archivo guardado correctamente en " & txtRuta.Text, vbOKOnly + vbInformation, "Textos"
'Ya esta!
End Sub
El textbox txtFile debeis ponerle la propiedad multiline a True
Código:
txtFile.multiline= true
Código:
txtFile.scrollbars = 1
1 > Vertical
2 > Horizontal
3 > Ambos
Bueno espero que os ayude, acepto sugerencias para mejorarlo, que seguro que tiene muchos bugs, aunque ya lo probe y funciona!
Podeis bajaros en el ejemplo de:
http://www.alwarstudios.buildtolearn.net/web/Descargas/Abrir%20y%20Guardar%20Textos.zip
En línea
