10. Archivos ~ DidacTÍCate

10. Archivos

COSAS QUE VAS A APRENDER
Leer y escribir archivos de texto desde VB.
Mandar emails desde VB.
Cuando desarrollamos un proyecto, en muchas ocasiones queremos realizar acciones que van más allá de la propia aplicación, como modificar archivos o enviar correos electrónicos.

En este epígrafe lo que vamos a aprender va a ser a interaccionar desde nuestra aplicación con el resto de elementos del ordenador, creando, modificando y eliminando contenido. Tengo que deciros antes de nada, que este código no me lo sé de memoria. No obstante a la hora de programar encontraréis que aunque no sepáis el código será tan sencillo como buscarlo por internet. No saber el código no implica no explicar un código y saber qué va a hacer cada cosa, es por ello que lo que verás a continuación será el código para cada apartado explicado a color verde. 

Además tengo que comentarte una cosa nueva. Cuando estamos empleando elementos que van más allá de nuestro proyecto: emails, archivos del pc... Necesitamos importar unos componentes nuevos a nuestro proyecto. Estos elementos se colocan en la parte más superior del código del proyecto, y en cada apartado te los marcaré de un color llamativo para que sepas que esa parte se coloca en otra parte diferente al código ordinario. 

Leer un archivo de texto y pasarlo a tu aplicación


'no hace falta importar nada


Dim fileReader As String 'Creamos la variable llamada fileReader
fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt",
   System.Text.Encoding.UTF32) 'Definimos en qué sitio se encuentra el archivo que queremos leer
MsgBox(fileReader) 'Expresamos el mensaje del archivo en un mensaje informativo.


Si en vez de expresar el mensaje informativo de esa manera, queremos que se pase a un TextBox o a un Label, podemos sustituir ese último renglón perfectamente poniendo un código que ya conocerás: Label1.text = fileReader

Escribir un archivo de texto y pasarlo a un documento
Si lo que queremos escribir en el mensaje no es un texto literal, ya sabéis que se puede cambiar el texto por el lugar donde se guarda el texto. Imaginemos que queremos que el mensaje sea lo que aparece en el textbox1; lo que haremos pues, será escribir en vez de file.WriteLine(""), escribir file.WriteLine(Textbox1.text).
Dim file As System.IO.StreamWriter 'Creamos la variable llamada file.
file = My.computer.FileSystem.OpenTextFileWriter ("C:\Test.txt",True) 'Sitio
File.writeline("Texto") 'Texto que va a tener el archivo
File.Close 'Cerrar el archivo
Enviar un correo electrónico con información de tu aplicación
Imports System.Net 'Esto va arriba del todo, recuerda.

'A partir de aquí, todo normal, en el código del botón.
Dim Mensaje As New System.Net.Mail.MailMessage()
        Dim SMTP As New System.Net.Mail.SmtpClient
        'Configuración SMTP
        SMTP.Credentials = New System.Net.NetworkCredential("CORREOELECTRÓNICOTUYO", "CONTRASEÑADETUCORREO")
        SMTP.Host = "smtp.gmail.com" 'Ahora el SMTP es para gmail. Si usas Yahoo o Hotmail, es distinto.
        SMTP.Port = 587
        SMTP.EnableSsl = True
        Mensaje.[To].Add("CORREO DEL QUE RECIBE EL MENSAJE")
        Mensaje.From = New System.Net.Mail.MailAddress("CORREOELECTRÓNICOTUYO", "MENSAJEQUEVERÁDETUUSUARIO", System.Text.Encoding.UTF8) 'Quien lo envía
        Mensaje.Subject = "ASUNTO"
        Mensaje.SubjectEncoding = System.Text.Encoding.UTF8 'Codificación
        Mensaje.Body = "MENSAJE DEL CORREO"
        Mensaje.BodyEncoding = System.Text.Encoding.UTF8
        Mensaje.Priority = System.Net.Mail.MailPriority.Normal
        Mensaje.IsBodyHtml = False
        'Enviar Correo Electrónico
        Try
            SMTP.Send(Mensaje)
            MessageBox.Show("Mensaje enviado correctamente", "Éxito", MessageBoxButtons.OK)
        Catch ex As System.Net.Mail.SmtpException
            MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
        End Try
TAREAS QUE TE PROPONGO
Pasa el texto de dos archivos .TXT a un textbox único fusionando el mensaje de ambos.
Crea una aplicación en la que el usuario pueda meter a quién quiere enviarle el correo, el tema, el mensaje… Todo que pueda ser personalizado por el usuario.

0 comentarios:

Publicar un comentario

 

Recibir todas las noticias

Licencia Web

Visitas

Web dirigida por