Tutorial: Abrir y Guardar Texto, Control Textbox

[{_The_Alwar_}]

Bueno, como veo que le interesa a la gente como abrir y guardar textos pos yo me ofrezco para ayudaros... tambien veo problemas con el control Text Box.. a si esque ire poniendo cosas sobre este control tambien.. de momento solo lo de Abiri ya ire ampliando.

Necesitas:
1 Formulario (frmMain)
2 TextBox (txtFile, txtRuta)
2 Botones (cmdGuardar, cmdAbrir)

Codigo:
En el codigo del boton cmdAbrir

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir

txtFile.multiline= true
y si quereis dejarlo mas wapo warrear en la propiedad scrolls

Código [Seleccionar] Expandir

txtFile.scrollbars = 1
0 > Ninguno
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

[goodbye]

alwar, has trabajado con archivos binarios? de ser asi que aplicaciones le has dado..

Gracias!

[{_The_Alwar_}]

Pues.. e intentado trabajar con archivos binarios, pero no se como hacerlo, queria intentar pasar archivos con winsock mediante los archivos binarios, pero sigo sin saber manejar lo de los binarios.

[Thaorius]

Alwar:

Busca aca, quisas encuentres lo del winsock.

http://www.planetsourcecode.com/vb/

Saludos

[{_The_Alwar_}]

pruf!!! ay mazo codigo, ya encontre lo que queria pero no consigo entenderlo... habra que hecharle oras o buscar un manual..
Muchas gracias por el link M@rT1n te lo agradezco

Saludos!

[sch3m4]

aquí te dejo mi tuto para enviar archivos por winsockets. espero que te ayude

http://lympex.sosvulnerable.net/resources/textos/programacion/envio_archivos_vb.htm

[goodbye]

Magnifico Lympex!!