Manipular archivos de texto ".txt" (crear, eliminar,  leer y modificar)  con Asp.net 

Manipular archivos de texto con Asp.net es relativamente fácil con estos cuatro métodos que les comparto a continuación:

Todos los métodos trabajaran sobre un archivo en una carpeta  "C:\Registros\" asi que puedes modificar esta parte o crear una carpeta en "C:\" con el nombre de Registros. 

Crear un archivo txt:

   Sub CrearTxt()
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) = False Then
                Dim FsCrear As FileStream = File.Create(RutaTxt)
                FsCrear.Close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Eliminar archivo txt:

    Sub EliminarTxt()
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) Then
                File.Delete(RutaTxt)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Leer archivo txt :

    Sub LeerTxt()
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) Then
                Dim sr As New System.IO.StreamReader(RutaTxt)
                Dim TextoTxt = sr.ReadToEnd()
                sr.Close()
                MsgBox(TextoTxt)
            Else
                MsgBox("El archivo no existe")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Leer Modificar txt :

    Sub ModificarTxt(ByVal Mensaje As String)
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) Then
                Dim SwEscritor As New System.IO.StreamWriter(RutaTxt, True)
                SwEscritor.WriteLine(Mensaje)
                SwEscritor.Close()
            Else
                MsgBox("El archivo no existe")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

Read More

Obtener el valor un nodo de un XML

¿Como obtener el valor un nodo de un XML?

Con el uso de esta función podrán obtener el valor de un nodo que busquen de un XML.

solo deben pasar como parámetro la ruta del archivo .XML , el nodo que desean obtener y el atributo donde se encuentra ese nodo  de este modo : 

 Dim UUID As String = ObtenerValor(Ruta, "tfd:TimbreFiscalDigital", "UUID")

Funcion:

 Function ObtenerValor(ByVal Archivo As String, ByVal Nodo As String, ByVal Atributo As String)

        Dim val As String = ""
        Dim reader As XmlTextReader = New XmlTextReader(Archivo)
        reader.Read()
        Do While (reader.Read())
            If reader.Name = Nodo  Then
                If reader.HasAttributes Then
                    While reader.MoveToNextAttribute()
                        If reader.Name = Atributo Then
                            val = reader.Value
                        End If
                    End While
                End If
            End If
        Loop
        reader.Close()
        Return val

    End Function

Read More

Enviar un correo Pop3 con ASP.NET

¿Como enviar un corre?

Les comparto como enviar un correo desde asp.net:

Imports System.Net.Mail

Dim Contrasena as String= ""
Dim Correo as String= ""
Dim Puerto as String= ""

Dim Host as String= ""

Dim SmtpServer As New SmtpClient()

Dim mail As New MailMessage()

Dim cont As String = Contrasena 

SmtpServer.Credentials = New _

Net.NetworkCredential(Correo , cont)

SmtpServer.Port = Puerto

SmtpServer.Host = Host

mail = New MailMessage()

mail.From = New MailAddress(Correo)

mail.To.Add(correo)

mail.Subject = "Correo de prueba "

mail.Body = "Correo de prueba"

SmtpServer.Send(mail)

Read More

Tips asp.net

 Este blog tendrá como objetivo ayudar  a los desarrolladores de software a encontrar tips y código fuente en asp.net

Read More