Este código muestra como capturamos las cadenas salientes del simbolo del sistema. El código esta en visual basic y comprueba un x ping, comprueba el mando de paquetes y esas cosas, vemos como esto lo lleva a un textbox.

Private Sub Ejecutar()
      Dim strArgumentos As String = "127.0.0.1"
      Dim strExe As String = "ping"

      'Armar el proceso a ejecutar
      Dim startInfo As ProcessStartInfo = New ProcessStartInfo(strExe, strArgumentos)

      'Para poder manupular la salida indicamos que no se ejecute el shell
      startInfo.UseShellExecute = False

      '(...)UseShellExecute debe ser true si se desea establecer ErrorDialog en true(...)
      startInfo.ErrorDialog = False

      'Sin ventana...
      startInfo.CreateNoWindow = True

      'Deseamos manipular la salida del proceso, para ello debemos establecer que se redirija la salida
      startInfo.RedirectStandardOutput = True

      Try
          Dim p As Diagnostics.Process = System.Diagnostics.Process.Start(startInfo)

          'Leemos la salida (objeto StreamReader)
          Dim sr As System.IO.StreamReader = p.StandardOutput
          Dim cadenaSalida As String = sr.ReadToEnd()
          sr.Close()

          'La visualizamos en el textbox. Un ejemplo basico ;)...
          TextBox1.Text = cadenaSalida
      Catch ex As Exception
          TextBox1.Text = (ex.Message)
      End Try
  End Sub

Este procedimiento necesita el textbox1 y correra muy bien

Espacio de nombres: System.Diagnostics
Ensamblado: System (en system.dll)

 ' Información sobre el ejecutable
 Dim start_info As New _
        ProcessStartInfo("C:\WINDOWS\NOTEPAD.EXE" )
    start_info.UseShellExecute = False ' Usar el shell del sistema operativo
    start_info.CreateNoWindow = True ' Crear una ventana para el proceso (obvio)

    ' Ordenando el proceso y dando la información
    Dim proc As New Process
    proc.StartInfo = start_info

    proc.Start()

    ' Establecer tiempo de espera de nuestro programa para que se ejecute
    'el notepad
    proc.WaitForExit()

    MessageBox.Show("Exit Code: " & proc.ExitCode, "Exit " & _
        "Code", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)

Cuando programamos, solemos utilizar operadores aritméticos, de asignación, comparación, sobrecargados y más. Sin embargo, cuando manipulamos fechas y datos de tipo similar, estos no se pueden tratar sin tener en cuenta, un segundo tipo de dato, necesario para algunas operaciones entre fechas. Tomando por ejemplo, queremos encontrar los dias de estadía de un cliente en un hotel. Obviamente sería restando la fecha actual, con la fecha que ingreso al hotel; es que si!, el problema no es el operador, sino el resultado. Los días de estadía no serán una fecha, sino un valor tipo TimeSpan.

Tipos Date y tipo TimeSpan

Existe más de una situación, donde estos tipos de datos forman parte de una ecuación, para encontrar un dato determinado. A continuación, las ecuaciones que nos permiten saber cuando tener en cuenta el tipo Date y TimeSpan, te recomiendo que las veas con la lógica del caso.

• Date – Date = TimeSpan
• Date + TimeSpan = Date
• TimeSpan + TimeSpan = TimeSpan
• TimeSpan – TimeSpan = TimeSpan

Téngase en cuenta, que el tipo de dato TimeSpan, no solo albergará día como en el ejemplo anterior, puede ser años, meses, dias y todo junto.

Manos al código (Visual Basic)

Código en Visual Basic

Manejo básico, para originar un TimeSpan.

    Sub Main()
        Dim date1 As Date = "8-8-2008"
        Dim date2 As Date = Date.Today
        Dim res As TimeSpan = date2 - date1
        Console.WriteLine("Total de  días: " & res.TotalDays.ToString)
        Console.WriteLine("Total de horas: " & res.TotalHours.ToString)
        Console.WriteLine("Total de segundos: " & res.TotalSeconds.ToString)
        Console.ReadLine()
    End Sub

Como puedes ver, los comandos que comiencen con op_xxxx (Ej.op_GreaterThan), pueden no estar reconocidos por el intellisense. Es por el origen del operador, pero ese es otro cantar.

        Dim date0 As Date = Date.Today 'Fijar la fecha de hoy
        Dim date1 As Date = "9/9/2009"
        Dim date2 As Date = "8/8/2008"
        Dim date3 As Date = "10/10/2010"
        Dim date4 As Date = "7/7/2007"
        Dim ts1 As TimeSpan = date3 - date1 'Resta manual de fechas
        Dim ts2 As TimeSpan = date3 - date0
        Dim date5 As Date = Date.op_Addition(date1, ts1) 'Añadir TS a una fecha
        Dim iguales1 As Boolean = Date.op_Equality(date1, date2) 'True si son iguales
        Dim mayor1 As Boolean = Date.op_GreaterThan(date3, date1) ' True si es mayor
        Dim mayorigual As Boolean = Date.op_GreaterThanOrEqual(date0, date2) ' True si es > igual
        Dim diferente1 As Boolean = Date.op_Inequality(date1, date2) 'true si son distintos
        Dim ts3 As TimeSpan = Date.op_Subtraction(date3, date2) 'Resta automatica de fechas
        Dim menor1 As Boolean = Date.op_LessThan(date1, date0) 'True si es menor
        Dim menorigual1 As Boolean = Date.op_LessThanOrEqual(date1, date2) 'True si es < igual
        Dim COMPARAR As Integer = Date.Compare(date1, date2) 'Devuelve un valor relativo (ver abajo)
        ''Si date1 < date2, COMPARAR SERA MENOR QUE 0
        ''Si date1 = date2, COMPARAR SERA IGUAL A 0
        ''Si date1 > date2, COMPARAR SERA MAYOR QUE 0

Eso sería todo por esta entrega. Salu2

Diego.