Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: {_The_Alwar_} en 15 Julio 2005, 15:28 pm


Título: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: {_The_Alwar_} en 15 Julio 2005, 15:28 pm
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:
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
y si quereis dejarlo mas wapo warrear en la propiedad scrolls
Código:
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

Título: Re: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: goodbye en 16 Julio 2005, 10:27 am
alwar, has trabajado con archivos binarios? de ser asi que aplicaciones le has dado..

Gracias!

Título: Re: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: {_The_Alwar_} en 16 Julio 2005, 14:23 pm
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.

Título: Re: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: Thaorius en 17 Julio 2005, 16:46 pm
Alwar:

Busca aca, quisas encuentres lo del winsock.

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

Saludos

Título: Re: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: {_The_Alwar_} en 17 Julio 2005, 18:40 pm
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!

Título: Re: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: sch3m4 en 18 Julio 2005, 10:27 am
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

Título: Re: Tutorial: Abrir y Guardar Texto, Control Textbox
Publicado por: goodbye en 18 Julio 2005, 12:11 pm
Magnifico Lympex!!  ::)


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines