RecorteX

descargar
 
    Private Sub WriteFile(ByVal FileName As String, ByVal data As String)
        If File.Exists(FileName) Then File.Delete(FileName)
        Dim swFile As StreamWriter = File.CreateText(FileName)
        swFile.Write(data)
        swFile.Flush()
        swFile.Close()
    End Sub
 
    Private Function ReadFile(ByVal FileName As String) As String
        Dim ret As String = ""
        If File.Exists(FileName) Then
            Dim TheFile As System.IO.StreamReader = New StreamReader(FileName, System.Text.Encoding.Default)
            ret = TheFile.ReadToEnd()
        End If
        Return ret
    End Function
 

descargar
 
    Private Function ReadStringResource(ByVal resource As String) As String
        Dim asm As Assembly = Assembly.GetExecutingAssembly()
        Dim stream As Stream = asm.GetManifestResourceStream(resource)
        Dim streamReader As StreamReader = New StreamReader(stream)
        Dim ret As String = streamReader.ReadToEnd
        Return ret
    End Function
 

descargar
 
        Dim diskClass As New System.Management.ManagementClass("Win32_LogicalDisk")
        Dim disks As System.Management.ManagementObjectCollection = diskClass.GetInstances()
        Dim disk As System.Management.ManagementObject
        Dim space As System.UInt64 = 0
        For Each disk In disks
            If disk("Description").ToString = "Local Fixed Disk" Then
                If disk("Description").ToString = "Local Fixed Disk" Then
                space += CType(disk("FreeSpace"), System.UInt64)
            End If
        Next disk
 

Ejecutar shell y capturar la salida

descargar
 
        Dim p As New Process
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.Arguments = "x.txt y.txt"
        p.StartInfo.WorkingDirectory = "E:\winnt\system32"
        p.StartInfo.FileName = "xcopy "
        p.Start()
        Dim sr As IO.StreamReader = p.StandardOutput
        Dim sb As New System.Text.StringBuilder("")
        Dim sinput As String = ""
        Do Until sinput = "-1"
            sb.Append(sr.ReadLine() & ControlChars.CrLf)
            sinput = sr.Read
        Loop
        Return sb.ToString
 

Este ejemplo usa el app.config

descargar
 
        Dim aConfig As Configuration.ConfigurationSettings
        Try
            Dim MailFrom As New MailAddress(aConfig.AppSettings("EmailFrom"))
            Dim MailTo As New MailAddress(aConfig.AppSettings("EmailTo"))
 
            Dim mailMsg As MailMessage = New MailMessage(MailFrom, MailTo)
 
            mailMsg.IsBodyHtml = True
            mailMsg.Priority = MailPriority.Normal
 
            mailMsg.Subject = "Subject for the mail"
            mailMsg.Body = ReadStringResource("Mail.htm")
 
            Dim SmtpMail As New Net.Mail.SmtpClient
            Dim theCredential As New Net.NetworkCredential("usuario", "contraseña")
            SmtpMail.Credentials = theCredential
            SmtpMail.Host = aConfig.AppSettings("EmailServer")
            SmtpMail.Send(mailMsg)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 

Esta funcion en V .net 2005 da formato a un numero que lo tienes como string y quieres regresarlo como string con pesos o numeros negativos. De ahi se puede partir para muchas otras cosas.!

descargar
 
    Private Function darFormato(ByVal numeroStr As String) As String
        Try
            If numeroStr = "" Or numeroStr = "0" Then
                Return ""
            Else
                Return CDbl(numeroStr).ToString("$#,###.##;($#,###.##);Zero")
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function
 

Con este código, para la transformación solo necesitamos llamarla mandándole un string con el contenido, otro string con el contenido del xsl y “Me.GetType().Assembly.Evidence” y regresará un string con el contenido de la transformación.

descargar
 
    Public Function ApplyXMLTransform(ByVal xslSDoc As String, ByVal xmlSDoc As String, ByVal evidence As System.Security.Policy.Evidence) As string
        Dim xmlDoc As XmlTextReader = New XmlTextReader(New StringReader(xmlSDoc))
        Dim xslDoc As XmlTextReader = New XmlTextReader(New StringReader(xslSDoc))
        Dim res As New Xml.XmlDocument
        Dim xslt As New Xml.Xsl.XslTransform
        xslt.Load(xslDoc, Nothing, evidence)
        res.Load(xslt.Transform(New Xml.XPath.XPathDocument(xmlDoc), Nothing, New Xml.XmlUrlResolver))
        Return res.OuterText
    End Function
 

Muchas veces tenemos tantas aplicaciones y en tantas versiones que no sabemos que o0nda con las que se estan correindo, asi que con este simple renglon podemos poner nombre compañia y version de nuestra aplicacion en el titulo de las forma que queramos. Espero les sea de utilidad.

descargar
 
     Me.Text = My.Application.Info.CompanyName & " - " & My.Application.Info.AssemblyName & " " & My.Application.Info.Version.ToString
 

A veces nos topamos con la necesidad de que solo se pueda ejecutar una instancia de nuestro sistema, con esta función lo evitamos.

descargar
 
Function PrevInstance() As Boolean
   If UBound(System.Diagnostics.Process.GetProcessesByName(System.Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
      Return True
   Else
      Return False
   End If
End Function
 

Se usa así

descargar
 
   if PrevExistance() = True Then Application.Exit()
 

nota los valores booleanos están implícitamente mostrados para facilidad de comprensión.

Para que validemos un url en un campo de texto

descargar
 
bool IsValidEmail(string strIn) 
{ 
    // Return true if strIn is in valid e-mail format. 
 
    return Regex.IsMatch(strIn, @"^([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0- 
9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$");  
}