Pues eso… un artículillo "tesnico" para que no digas..

Esto lo publico a raíz de una pregunta en mis foros… y más que nada porque pensaba que ya lo tenía publicado, pero se ve que no… ya que tenía un ejemplo para acceder a un servidor FTP pero sólo para listar el contenido de un directorio FTP.

La cuestión es que en realidad ese código que publiqué con un par de añadidos sirve para poder descargar un archivo (o fichero) de un directorio FTP y aquí te los mostraré tanto para Visual Basic.NET como para Visual C#.

La clase en cuestión que nos sirve para hacer esto que te comento es FtpWebRequest que está definida en el espacio de nombres System.Net.

Y sin más preámbulos (ni rollos) aquí tienes el código de VB y C#.

¡Que lo descargues bien!

Código de VB

'------------------------------------------------------------------------------
' Descargar archivos de un FTP                                      (06/Dic/11)
'
' ©Guillermo 'guille' Som, 2011
'------------------------------------------------------------------------------
Option Strict On
Option Infer On

Imports System
Imports System.Net
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
        ' En este ejemplo usamos un FTP público y anónimo
        ' pero puedes indicar el que quieras
        descargarFic("ftp://ftp.rediris.es/welcome.msg", _
                     "anonimous@nadie.com", "", _
                     "E:\pruebas2")

        Console.WriteLine("descargado")
        Console.ReadLine()
    End Sub

    Private Sub descargarFic(ByVal ficFTP As String, _
                             ByVal user As String, ByVal pass As String, _
                             dirLocal As String)

        Dim dirFtp As FtpWebRequest = CType(FtpWebRequest.Create(ficFTP), FtpWebRequest)

        ' Los datos del usuario (credenciales)
        Dim cr As New NetworkCredential(user, pass)
        dirFtp.Credentials = cr

        ' El comando a ejecutar usando la enumeración de WebRequestMethods.Ftp
        dirFtp.Method = WebRequestMethods.Ftp.DownloadFile

        ' Obtener el resultado del comando
        Dim reader As New StreamReader(dirFtp.GetResponse().GetResponseStream())

        ' Leer el stream (el contenido del archivo)
        Dim res As String = reader.ReadToEnd()

        ' Mostrarlo.
        'Console.WriteLine(res)

        ' Guardarlo localmente con la extensión .txt
        Dim ficLocal As String = Path.Combine(dirLocal, Path.GetFileName(ficFTP) & ".txt")
        Dim sw As New StreamWriter(ficLocal, False, Encoding.Default)
        sw.Write(res)
        sw.Close()

        ' Cerrar el stream abierto.
        reader.Close()
    End Sub

    Sub listarFTP(ByVal dir As String, ByVal user As String, ByVal pass As String)
        Dim dirFtp As FtpWebRequest = CType(FtpWebRequest.Create(dir), FtpWebRequest)

        ' Los datos del usuario (credenciales)
        Dim cr As New NetworkCredential(user, pass)
        dirFtp.Credentials = cr

        ' El comando a ejecutar
        dirFtp.Method = "LIST"

        ' También usando la enumeración de WebRequestMethods.Ftp
        dirFtp.Method = WebRequestMethods.Ftp.ListDirectoryDetails

        ' Obtener el resultado del comando
        Dim reader As New StreamReader(dirFtp.GetResponse().GetResponseStream())

        ' Leer el stream
        Dim res As String = reader.ReadToEnd()

        ' Mostrarlo.
        Console.WriteLine(res)

        ' Cerrar el stream abierto.
        reader.Close()
    End Sub
End Module

Código de C#

//-----------------------------------------------------------------------------
// Descargar archivos de un FTP                                     (06/Dic/11)
//
// ©Guillermo 'guille' Som, 2011
//-----------------------------------------------------------------------------

using System;
using System.Text;
using System.Net;
using System.IO;

namespace descargar_archivos_FTP_cs
{
    class Program
    {
        static void Main(string[] args)
        {
            descargarFic("ftp://ftp.rediris.es/welcome.msg",
                "anonimous@nadie.com", "", @"E:\pruebas2");

            Console.WriteLine("descargado");
            Console.ReadLine();
        }

        static void descargarFic(string ficFTP, string user, string pass, string dirLocal)
        {
            FtpWebRequest dirFtp = ((FtpWebRequest)FtpWebRequest.Create(ficFTP));

            // Los datos del usuario (credenciales)
            NetworkCredential cr = new NetworkCredential(user, pass);
            dirFtp.Credentials = cr;

            // El comando a ejecutar usando la enumeración de WebRequestMethods.Ftp
            dirFtp.Method = WebRequestMethods.Ftp.DownloadFile;

            // Obtener el resultado del comando
            StreamReader reader =
                new StreamReader(dirFtp.GetResponse().GetResponseStream());

            // Leer el stream
            string res = reader.ReadToEnd();

            // Mostrarlo.
            //Console.WriteLine(res);

            // Guardarlo localmente con la extensión .txt
            string ficLocal = Path.Combine(dirLocal, Path.GetFileName(ficFTP) + ".txt");
            StreamWriter sw = new StreamWriter(ficLocal, false, Encoding.UTF8);
            sw.Write(res);
            sw.Close();

            // Cerrar el stream abierto.
            reader.Close();
        }

        static void listarFTP(string dir, string user, string pass)
        {
            FtpWebRequest dirFtp = ((FtpWebRequest)FtpWebRequest.Create(dir));

            // Los datos del usuario (credenciales)
            NetworkCredential cr = new NetworkCredential(user, pass);
            dirFtp.Credentials = cr;

            // El comando a ejecutar
            dirFtp.Method = "LIST";

            // También usando la enumeración de WebRequestMethods.Ftp
            dirFtp.Method = WebRequestMethods.Ftp.ListDirectoryDetails;

            // Obtener el resultado del comando
            StreamReader reader =
                new StreamReader(dirFtp.GetResponse().GetResponseStream());

            // Leer el stream
            string res = reader.ReadToEnd();

            // Mostrarlo.
            Console.WriteLine(res);

            // Cerrar el stream abierto.
            reader.Close();
        }
    }
}

Nos vemos.

Guillermo

…

El tema es el siguiente:

Cuando añades un campo a una tabla de SQL Server (en mi caso con el SQL Server Management Studio 2008 (Express)) y le indicas que es de tipo decimal, automáticamente te lo pone de esta forma:

decimal(18, 0)

El 18 es la precisión, o número de dígitos que puede tener este número, y el 0 es la "escala" o número de decimales que puede tener este número.

Como verás cero decimales no es algo que sea demasiado aceptable en valores de tipo moneda, que sí, que podía haber elegido el tipo "money" y me hubiese quitado de problemas, pero de haberlo hecho no te estaría contando esto y… puede que un día te diera por usar el tipo "decimal" por aquello de que es el más parecido al tipo "moneda" que tiene el punto net y lo mismo te preguntarías por qué narices me redondea el número cuando lo guarda en la base de datos… sí, podría ocurrirte esto… como le ocurrió a uno que me conozco…

La cuestión es que si quieres usar el tipo "decimal" de SQL Server para que acepte un número de decimales (por ejemplo cuatro decimales) tendrías que declararlo de esta otra forma:

decimal(18, 4)

Y debido a que a la hora de usar este valor desde la base de datos el número de dígitos decimales siempre se guarda (aunque sean todos ceros), me he creado una función que recibe un valor de tipo Object y lo convierte en cadena (String), pero quitando los ceros extras que tenga y en el caso de que el valor "total" sea cero, al menos deje un cero (pero siempre que esté a la izquierda del decimal).

Esta función para quitar los ceros extras que añade el SQL Server:

''' <summary>
''' Convierte un tipo Object en un valor Decimal,
''' pero se devuelve como cadena.
''' Ese objeto es el valor leído de la base de datos
''' Si el contenido es válido se devuelve el valor
''' si no, se devuelve una cadena vacía.
''' Se quitan los ceros que haya después del signo decimal,
''' si no tiene decimales, no se muestran los ceros.
''' </summary>
Friend Function dataDecimal(ByVal obj As Object) As String
    If obj Is Nothing OrElse obj.Equals(DBNull.Value) Then
        Return ""
    Else
        ' Conversión extra para evitar "sustos"                 (06/Oct/11)
        Dim d As Decimal = 0
        Decimal.TryParse(obj.ToString, d)
        Return d.ToString.TrimEnd("0"c).TrimEnd({"."c, ","c})

        'Return CDec(obj).ToString.TrimEnd("0"c).TrimEnd({"."c, ","c})

    End If
End Function

Como ves, no me fio de que el valor recibido sea un valor decimal válido, por eso hago algunas comprobaciones.

La primera es saber si el valor pasado como argumento a la función es un valor nulo, ya sea "nulo de punto net" o nulo de base de datos (DBNull.Value), en ese caso, la función devuelve una cadena vacía.

La segunda es usar TryParse para no producir una excepción (o error) en el caso de que el valor de ese objeto no sea "convertible" a un tipo Decimal.

La función TryParse recibe un valor de tipo cadena que será el valor a convertir (en este caso a un tipo Decimal) y en el segundo parámetro le indicamos un valor (por referencia) del mismo tipo al que queremos convertir, de forma que si la conversión falla, se utilice el valor que previamente tenga dicha variable.

En el caso de que la conversión NO falle, se asignará a la variable de ese segundo argumento el valor que de como resultado la conversión. Por eso debe ser por referencia, para que la variable se pueda modificar dentro de la función.

Como queremos quitar todos los ceros que "sobren" por el final, utilizo la función TrimEnd al valor convertido (el que tiene la variable d) indicándole el carácter que quiero quitar, esa función recibe como parámetro un valor de tipo Char indicando qué carácter queremos quitar del final, y como Visual Basic permite indicar los caracteres en la forma "cadena" seguida de la letra c, pues… eso es lo que he hecho, por tanto "0"c significa que es el carácter CERO (o valor 48).

Esto seguramente ya lo sabías, pero… no está de más una aclaración.

Si el valor almacenado en la base de datos no tiene decimales (por ejemplo el número 205) con el TrimEnd que hemos hecho se nos quedaría la coma (o el punto) que indica que hay decimales, por tanto volvemos a hacer un TrimEnd al resultado del TrimEnd anterior, pero en este caso queremos quitar tanto las comas como los puntos, es decir, queremos quitar "dos tipos de caracteres", en estos casos, la función TrimEnd permite indicar un array (o arreglo o matriz) de caracteres con cada uno de los caracteres a quitar del final de la cadena.

Los caracteres individuales ya sabes cómo indicarlos, y si lo que quieres indicar es un array, esos caracteres individuales los separas con comas y los incluyes entre llaves: {"."c, ","c}.

Y esto es todo.

Sólo me queda decirte cómo lo utilizo:

En mi caso (en este programa que estoy haciendo) lo hago de dos formas:

En una leo el valor de la tabla en un DataTable y accedo a cada valor por medio de un objeto que representa a la fila (DataRow) a la que estoy accediendo:

For Each r As DataRow In dt.Rows
    Dim lvi As New ListViewItem

...

lvi.SubItems.Add(dataDecimal(r("Importe")))

...

En la otra accedo a los valores por medio de un objeto SqlDataReader y básicamente hago lo mismo:

Dim re As SqlDataReader = cmd.ExecuteReader()

...

ImporteTextBox.Text = dataDecimal(re("Importe"))

...

Espero que te sea de utilidad.

Nos vemos.

Guillermo

…

Sí, es un tema técnico… pero eso no quiere decir que no lo empiece cómo "debe ser".

A lo que vamos, de lo que se trata es de tener, por ejemplo, un control PictureBox y ese mismo control mostrarlo (o usarlo) en controles diferentes.
En realidad en contenedores de controles o colecciones de controles, que para el caso es lo mismo, además de que en .NET todos los controles pueden tener otros controles dentro (al menos eso es lo que parece o hace suponer al existir en cada objeto de tipo Control una propiedad llamada Controls que es un objeto del tipo ControlCollection (para saber más pulsa en los enlaces y te llevará a la documentación de .NET Framework 4.0).

Para lograr eso lo que tenemos que hacer es añadir el control en cuestión a la colección Controls del contenedor al que lo queremos mover.
Por ejemplo, si tenemos un control del tipo TabControl y cuando pulsamos en la primera y/o la segunda ficha (TabPage), haremos que un control llamado PictureBox1 se añada a esa ficha.
Con el siguiente código (para Visual Basic) lo conseguiremos:

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, _
                                             ByVal e As EventArgs) _
                                            Handles TabControl1.SelectedIndexChanged

    Select Case TabControl1.SelectedIndex
        Case 0
            TabPage1.Controls.Add(PictureBox1)
        Case 1
            TabPage2.Controls.Add(PictureBox1)
    End Select
End Sub

Si prefieres usar C#, utiliza el siguiente código:

private void tabControl1_SelectedIndexChanged(object sender, EventArgs e)
{
    switch (tabControl1.SelectedIndex)
    {
        case 0:
            tabPage1.Controls.Add(pictureBox1);
            break;

        case 1:
            tabPage2.Controls.Add(pictureBox1);
            break;
    }
}

Si en lugar de añadirlo directamente a una ficha (tabControl) necesitas que esté en otro contenedor, por ejemplo, dentro de un GroupBox, simplemente sustituye el nombre del control que hay justamente antes de Controls.Add por el control que te convenga. Lo mismo ocurre con el control añadido (el que está entre paréntesis después de .Add), puedes añadir cualquier control.

Si al ver el código de ejemplo te preguntas algo así:

P: Guille, ¿no crees que sería necesario quitar el control antes de añadirlo a otra colección? ya que de esa forma tendríamos repetido el mismo control en más de una colección.

La respuesta podría ser como esta:

R: Buena pregunta, lo que indica que "has leído el código", pero no es necesario.

¿Por qué no es necesario eliminar un control de una colección antes de añadirla a otra?

Porque el propio .NET se encarga de eso, es decir, si un control se añade a una colección de controles, automáticamente se quita de la que ya estuviera.

Esto no es que lo haya "adivinado" yo, es que está en la documentación del método Add, que por cierto yo no lo había leído hasta después de hacer el proyecto de ejemplo, en el que me dio por probar a ver qué pasaba si no eliminaba previamente el control de la colección, y al ver que no ocurría "nada raro" (es decir, todo funcionaba como debería funcionar) me dio por leer la documentación y esa documentación tiene una nota que dice:

Un objeto Control sólo se puede asignar a una colección Control.ControlCollection a la vez. Si el Control ya es secundario de otro control, se quita de ese control antes de agregarlo a otro.

(el texto anterior está extraído de la ayuda en línea de .NET Framework 4.0 en castellano, concretamente de la definición del método Add de la clase Control.ControlCollection)

Espero que te sea de utilidad.

Nos vemos.

Guillermo

Publicado con fecha del lunes 16 de mayo a las 22:00, pero en realidad lo acabé de escribir (y publicar) el martes 17 de mayo a las 00:05

…

Nos vemos.
Guillermo

…

Espero que en esta ocasión lo pasemos igual o mejor que ayer lunes… creo que la gente se divirtió además de aprender algunas cosas nuevas… al menos los que estaban pendientes de la charla (que era la mayoría, todo hay que decirlo… y estamos hablando de que habría más de 1200 personas… sí, muchas)

Bueno… nos vemos allí y si no puedes asistir, pues… ya te contaré por aquí que tal ha ido o también te puedes enterar por mi página de "el Guille info en Facebook".

Nos vemos.
Guillermo

…

Aquí tienes el enlace y la descripción…

Espero que te sea de utilidad.

Nos vemos.
Guillermo

…

Aquí tienes el enlace y la descripción…

Espero que te sea de utilidad.

Nos vemos.
Guillermo

…

Aquí tienes el enlace y la descripción…

Espero que te sea de utilidad.

Nos vemos.
Guillermo

…

.NET/VB6: Código de ejemplo de cómo usar Fluent Interface en C#, Visual Basic .NET y Visual Basic 6.0

Como puedes ver por el título, están los ejemplos para C#, VB.NET y VB6, además el de VB.NET está para la versión 2010 (VB10) y 2008 (VB9) cuyo código también es válido para la versión 2005 (VB8) y supongo que también para las anteriores, aunque no lo he probado… aunque lo mismo algún día lo pruebo… al menos en el VS2003, es decir para VB7.1.

Nos vemos.
Guillermo

P.S.
Si quieres leer el artículo o post que publiqué hace un par de días en este mismo blog, lo puedes hacer desde este enlace:
Fluent Interface no es solo simular el WITH de VB

…

Después en la página que tiene CampusMVP en feisbúc se vuelve a comentar lo mismo, y en realidad es que ese ejemplo concreto es muy parecido al uso de un bloque With de VB (ya sea VB para .NET como el VB6, en ambos existe esa construcción).

El código de ejemplo

Sin entrar en demasiados detalles (y con el permiso de Gisela) te muestro el código de uso en C# del ejemplo de interfaz fluida (o fluent interface si lo prefieres en inglés -estos dos enlaces o links son de la wikipedia y en el de español sólo hay ejemplos para C# y C++, mientras que en inglés hay ejemplos para Object Pascal, PHP, Java, JavaScript, C#, etc., eso sí, para VB no hay… ¡faltaría más!-) que puso en su artículo, y después te muestro el correspondiente en Visual Basic usando un bloque With.

El código de uso de Fluent Interface en C#:

new Computer()
    .AddProcessor("Intel i7 920")
    .AddRAM(6)
    .TurnOn()
    .Test()
    .TurnOff();

El código de uso de Fluent Interface en VB

(pero sin crear la interfaz que implementa la clase Computer de C#, por eso en este ejemplo la clase se llama ComputerSimple):

With New ComputerSimple()
    .AddProcessor("Intel i7 920")
    .AddRAM(6)
    .TurnOn()
    .Test()
    .TurnOff()
End With

Como puedes comprobar, escribiendo el código de C# de esa forma es fácil confundirlo con una construcción (o bloque) With de Visual Basic, pero como comenté en la página de CampusMVP: sin End With y con punto y coma…

Aunque ese "parecido" con With es sólo por la forma de escribir ese código en C#, ya que si lo escribiésemos todo junto y sin cambios de líneas, sería lo que se conoce como encadenamiento de métodos, de forma que se puede llamar a un método de una clase partiendo de la llamada a otro método y esto no se puede hacer con un With, ya que esa instrucción lo que permite es hacer llamadas a diferentes miembros de un objeto (ya sean métodos, propiedades o cualquier cosa que se pueda usar en un objeto) sin necesidad de tener que indicar el objeto en cuestión, es decir, el With nos permite crear un bloque que hace referencia a un objeto, y al estar dentro del "bloque" podemos acceder a cualquier miembro de ese objeto.

El código de llamada a la clase "Computer" que simula un With en C# en realidad se podría escribir así:

// Todo en una línea:
new Computer().AddProcessor("Intel i7 920").AddRAM(6).TurnOn().Test().TurnOff();

Por tanto, si queremos una funcionalidad como la indicada en los ejemplos de encadenamientos de métodos, tendríamos que crear un código parecido al indicado en el artículo de Gisela, es decir, crear una interfaz en los que sus métodos devuelvan la propia interfaz en lugar de un tipo más concreto.

Fluent Interface no solo es encadenamiento de métodos

Pero si hacemos caso a Martin Fowler, a esta forma de usar Fluent Interface se conoce como method chaining (o encadenamientos de métodos), pero la "fluidez" no es sólo porque se puedan encadenar métodos… aunque yo aquí no te voy a contar lo que él ya te cuenta en su sitio, allí podrás leer más sobre nested functions (anidamiento de funciones) o de object scoping (alcance -cobertura- de los objetos) que son otras de las "gracias" de todo esto de las interfaces fluidas (fluent interface).

Reflexiones

En cualquier caso, todo esto está muy bien… y el que quiera usarlo que lo use y el que no, que haga como yo, que se va a dar una vuelta por la playa (o equivalente, también vale un parque o un banco en una esquina) o suda un poquillo corriendo o jugando al tenis… jejeje, que no, que es broma, es que después de un año casi sabático, tantas cosas nuevas, que no son tan nuevas, pero que ahora es cuando yo me estoy enterando de muchas de ellas, porque se usan en los lenguajes que me interesan: en general todos los incluidos en .NET Framework… la cuestión es que hay mucha información en poco tiempo y la verdad es que prefiero "emplear" sólo una parte de ese tiempo en cosas concretas o bien que me llamen la atención como ha sido la de este artículo de Gisela. ¡Gracias Gisela por hacer que le dedique un rato a esto de la programación en vez de estar pensando que podría estar en la playa refrescándome! (de todas formas esta tarde no tocaba playa, así que… bien empleado está el tiempo, jejeje)

Despedida y cierre

Bueno, voy a escribir el código de ejemplo y ponerlo más arriba, que sólo he dejado el espacio para que no se me fuera la idea, que con estas calores, hasta las ideas se evaporan… jejeje

Nos vemos.

Guillermo

P.S.

El código de ejemplo completo lo pondré en otro momento… ¿vale? pues eso… y además añadiré el correspondiente para usar esto mismo en Visual Basic .NET y si me da el punto -y se puede- también lo haré para Visual Basic 6.0

P.S.2 (23/Jul/2010 05.27)

Ya está el código de ejemplo para que lo puedas descargar desde mi sitio:

.NET/VB6: Código de ejemplo de cómo usar Fluent Interface en C#, Visual Basic .NET y Visual Basic 6.0

…

Pues eso… que hoy 23 de Abril es el día del libro y para que te regales uno (o dos) he conseguido que la editorial (SolidQ) haga un descuento del 75%

Es decir, que si el libro vale normalmente 15 euros, y le aplicamos el 75% de descuento (11,25), resulta que el libro te cuesta sólo 3,75 euros, que si le añades el 4% del IVA, resulta que por menos de 4 euros (3,9) tienes uno de estos dos libros:

Novedades de Visual Basic 9.0

Aprenda C# 3.0 desde 0.0 – Parte 3, lo nuevo

Pues ya sabes… pulsa en esos enlaces y te llevará a la página descriptiva del libro y te indicará qué cupón debes usar para tener ese magnifico descuento…

Muchas gracias.

Nos vemos.
Guillermo

Esta oferta finaliza a las 23.59 GMT+2 (hora de España peninsular) del domingo 25 de abril.

http://foros.elguille.org/Mensajes.aspx?IDForo=16

Espero que te sea de utilidad…

Nos vemos.
Guillermo
P.S.
POR FAVOR no uses este comentario para hacer preguntas sobre cómo convertir código de VB6a  VB.NET, para eso está ese foro, además de que allí he puesto unos cuantos enlaces de cosas que te pueden interesar sobre la conversión de VB6 a VB.NET, que encontrarás en mi sitio… incluso para funciones del API…

Este es el post en el que están esos enlaces:
http://foros.elguille.org/Mensajes.aspx?ID=52500

El descuento es aplicable tanto para el de Novedades de Visual Basic 9.0 como para el de Aprenda C# 3.0 desde 0.0 – Parte 3, lo nuevo, aunque el cupón a usar es diferente, para el libro de Visual Basic usa: elGuille20 y para el de C# tienes que usar este otro: elGuilleCS20.

Recuerda que estos libros son electrónicos, por tanto NO son en papel… si los quieres en papel… deberías imprimirlos tú mismo… pero mejor que no… que así ahorras tiempo y dinero… y los puedes leer mientras usas el ordenador (o computadora).

Pues eso… para que quedes avisado y no digas nada después de que no avisé…

Nos vemos.
Guillermo
P.S.
Esos dos links te llevarán a la página con la descripción de los libros y en esas páginas encontrarás los links que correspondan para hacer la compra.

Ya terminó… pero lo podéis ver en diferido

Pues eso, que los de UOC DotNetClub me han invitado para de una charla online sobre las novedades de la próxima versión de Visual Basic, la versión 10 que se incluirá en Visual Studio 2010 y que usará .NET Framework 4.0.

Este es el cartel del evento y más abajo te dejo el link (enlace) para que te registres como asistente, aunque también estará disponible de forma desconectada, pero eso será después del evento, que será el próximo martes 23 de febrero a las 20.00 (hora de la península, es decir GMT/UTC +1)

Pulsa en la imagen para registrarte para este evento

Esta es la dirección del registro:
http://msevents.microsoft.com/CUI/EventDetail.aspx?EventID=1032441987&Culture=es-ES

Y si quieres más información, puedes ir a la sección de eventos de UOC DotNetClub:
http://uoc.dotnetclubs.com/eventos

¿Te apuntas? Si es así… el 23-F nos “escucharemos” (bueno, tú me escucharás a mí, jeje)

Nos vemos.
Guillermo

Esta es la introducción de ese capítulo:

En este capítulo continuamos con las novedades de Visual Basic 9.0, pero en esta ocasión solo las podremos usar con la versión 3.5 .NET Framework.
Estas características (al igual que casi todas las novedades de Visual Basic 9.0) tienen su razón de ser en todo lo referente a LINQ; pero antes de ver qué es LINQ y cómo usarlo desde nuestro lengua-je favorito, veámoslas con detalle para que nos resulte más fácil comprender lo que he dejado para el final de este repaso en profundidad a las novedades de Visual Basic 9.0.
Las novedades que veremos en este cuarto capítulo son:
• Los tipos anónimos.
• Las expresiones lambda o funciones anónimas.

Como puedes comprobar, además de los tipos anónimos explico que son las expresiones lambda (o funciones anónimas), espero que te guste y te animes a comprar el libro que al ser en formato PDF el precio que tiene es bastante asequible… además de que suele haber algún que otro descuento (actualmente es un 10%), los cupones de descuento (si hay) los consigues desde la página del libro en mi sitio (el link que te puse arriba).

Capítulo 4 de Novedades de Visual Basic 9.0 (del Guille) (formato .pdf)

Y si quieres saber cuál es el contenido del libro, aquí tienes el índice en formato PDF:
Índice de Novedades de Visual Basic 9.0.

Ni que decir tiene que el contenido de estos dos PDF NO los puedes usar y/o publicar en ningún medio o forma, ni tan siquiera indicando de dónde lo has obtenido ya que están protegidos por copyright.
Lo que si puedes hacer es poner un link a esta entrada del blog, por lo cual te estaré muy agradecido.
Gracias.

Nos vemos.
Guillermo

Ahora a leerlas, analizarlas e intentar entenderlas, jejeje

Nos vemos.
Guillermo

¿Quieres saber las novedades Visual Basic en su última versión? ¡Tienes una cita que no puedes perderte! “El Guille” , uno de los MVP ( www.elguille.info , Microsoft Most Valuable Professional) más reconocidos de la comunidad y speaker de INETA nos enseñara todos los secretos de uno de los lenguajes más usados por todos. Material no nos va a faltar y calidad aún menos, nos daremos una vuelta por Visual Studio 2008 viendo todas las novedades de VB 2008! Acuérdate de apuntarte y no te lo pierdas, aprovecha la oportunidad de divertirte aprendiendo!

Puedes registrarte aquí:
http://msevents.microsoft.com/CUI/EventDetail.aspx?EventID=1032428029&Culture=es-ES

Te va a llegar un email con una URL una vez te registres y con esa misma URL el día del evento (unos 10 minutos antes) ya te loguearas en Live Meeting para asistir a la charla (os instalará un exe cliente para poder asistir a la charla).

¡Espero que os guste a todos!  ¡Próximamente más!

Pulsa aquí para ver esta nota en el sitio de lleida dotNetCamp.

Debido a que me he propuesto actualizar más a menudo este blog (mi blog) que mi sitio (elguille.info), lo que no quisiera es que la gente que visita mi sitio (por aquello de la costumbre que da todos los años que lleva funcionando o simplemente porque se lo han encontrado en Google o Bing (o como quiera que se llame el buscador de Microsoft, que ya llevan 3 nombres en menos de 5 años, así pasa lo que pasa, que la gente se lía: voy a buscar con MSN search, que no, que ahora se llama Live search, pos no estás desfasado tú, que se llama bing, pero si en la barra del Internet Explorer muestra windows live, pos que quieres que te diga, le habrán vuelto a cambiar el nombre, ya van 4 nombres en menos de 5 años y eso que sólo habré tardado en escribir este párrafo unos 2 minutos… si es que…).
A lo que iba, que si alguien entra en mi sitio, quisiera que tuviera a mano los últimos posts (entradas, artículos, cosas que he escrito, decide cómo llamar a los posts) y como en todas las páginas del blog se muestra una lista con los posts más recientes (por medio de un widget en el que yo le indico cuántos quiero que se muestren, a día de hoy se muestran 7, pero puedo poner hasta un máximo de 15), así que… mirando el código de la página generada, he pensado en extraer (aquí lo más fácil hubiera sido decir "coger", pero… no quiero que algunos de los que viven al otro lado del charco me hagan un chiste fácil… y es que los españoles no agarramos nada, lo cogemos todo, hasta la gripe la cogemos… en fin…).

Buscar un texto en una página web

Bien, sabiendo lo que quiero hacer: buscar un texto en el contenido de una página web.
Lo que necesito es: un código que haga eso.
Y eso está publicado en mi sitio publicado en Abril de 2008. concretamente en:

En particular lo que me interesa es este trozo: el mostrado en el listado 1.

Por supuesto, esto hay que modificarlo un poco, ya que lo voy a usar en una página Web.

Aunque habitualmente uso el Expression Web para editar las páginas de mi sitio (a día de hoy, estoy usando la versión 3), y con idea de no complicarme la vida (porque voy a usar código), lo que hago es abrir mi sitio web (la copia local de mi equipo) en Visual Studio 2008, de esa forma podré escribir el código de forma más sencilla que con el Expression Web, ya que el EW sabrá mucho de páginas y sitios Web, pero de Visual Basic .NET no sabe ni que existe la instrucción End.

Editar mi sitio con Visual Studio 2008

Abro mi sitio en el Visual Studio 2008 y modifico la página principal que es en la que quiero incluir esa lista de las cosas más recientes de este blog.
Me posiciono en la parte de la página que tengo para el código y pego el procedimiento del listado 1.
Por suerte, el Visual Studio 2008 detecta los fallos incluso de las páginas web como esta en la que tengo en el mismo fichero tanto la parte del código como la presentación (código HTML) y en este caso, los errores que me da es porque las clases WebRequest, WebResponse y StreamReader no están definidas, pero ya sabes que pulsando en el mismo error te da la posibilidad de arreglarlo, y en este caso es añadiendo las importaciones a los espacios de nombres System.Net y System.IO, que en código ASP.NET se hace como te muestro en el listado 2:

<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net" %>

Listado 2

Convertir el Sub en Function y detectar errores

Como no voy a usar la función Console y lo que me interesa es obtener una cadena de texto, convierto ese procedimiento Sub en una función y hago que devuelva la cadena leída (lo que está en la variable res).

Pero como se pueden producir errores, incluyo todo el código dentro de un bloque Try/Catch de forma que si se produce un error se devuelva una cadena con el error que se ha producido, si todo va bien, se devuelve la cadena con el texto leído de la página web generada por el acceso a (en este caso) el directorio raíz del blog (el IIS ya se encarga de mandar la página HTML que corresponda).

En el listado 3 tienes esta función modificada.

Llamar a la función desde otro método

Esa función necesita que se le indique qué página queremos leer y después tendremos que leer el contenido y buscar la parte que nos interese, en mi caso, después de haber "analizado" lo que genera el blog, detecto que necesito encontrar la cadena "widget widget_recent_entries" y una vez hallada, debo tomar todo lo que haya a partir del encabezado (<H2) que le da el título a ese bloque de links. Y como es un bloque de links, deben estar incluidos entre <ul> y </ul>, por tanto necesito el trozo de cadena (que haya después de la cadena esa del widget) desde el siguiente <h2 hasta encontrarse con </ul>.

Y eso es lo que hace el código del listado 4.

En ese listado verás que se modifica el contenido de pBlogGuille, es más, lo que se hace es asignar a la propiedad InnerHtml el texto obtenido. pBlogGuille es un div que hay en la página y que, como es de esperar, contendrá los links de los artículos recientes.

La variable divBlogGuille es otro div que contiene al anterior y que lo hacemos invisible de forma predeterminada (en el código HTML) y para que resulte evidente, también al principio de este último procedimiento. De esa forma, si se produce un error o no se obtiene lo que se espera, no se mostrará nada, ya que se oculta todo el div, que por supuesto debe ejecutarse en el lado del servidor. Para que lo tengas claro, en el listado 5 tienes ese código de la página .aspx en la que está todo este código.

Llamar al método desde el evento Page_Load de la página

Finalmente tenemos que saber desde dónde llamar al método mostrado en la sección anterior, y como lo que queremos es que esos links se muestren al cargar la página, hacemos una llamada en el evento Page_Load de la página (yo ya tengo ese método de evento declarado, si no, tendría que definirlo).

Aquí simplemente hacemos la llamada al método, es decir, incluimos esto en cualquier parte de ese método de inicio:

leerUltimosBlogGuille()

Y esto es todo, espero que te sea de utilidad y si tienes dudas sobre algo de lo aquí comentado, por favor haz lo siguiente:

-Primero busca en Internet sobre lo que tienes la duda, lo más fácil es buscar en Google o en Bing escribiendo la frase completa de lo que quieres saber.

-Segundo (si buscando no encuentras lo que quieres) pregunta en los foros (ya sean los míos o los de otros, por ejemplo los de MSDN/Microsoft)

-Si después de preguntar no tienes la solución, tienta a la suerte y pregunta en este mismo hilo, pero procura que sea algo relacionado con lo explicado y como no me creeré que tengas dudas después de dar los dos pasos anteriores, tendrás que decirme qué has preguntado y cómo has buscado y adema´s debes estar registrado ene este blog… jejeje, que no, que no tienes que explicarme nada, y menos justificar que has hecho los deberes, pero procura buscar antes de preguntarme, porque seguramente yo sabré si has buscado o no, y si detecto que vas buscando lo fácil  cómodo (que otro haga tu trabajo) pues… no te digo lo que haré o diré… ¡imagínatelo!

Nos vemos.

Guillermo

P.S.

Para que todo esto sea posible (para las pruebas que he hecho) he tenido que buscar otra cosa en mi sitio: Configurar un sitio Web en local con Windows Vista

' Acceder a una página Web usando WebRequest y WebResponse
Sub leerPaginaWeb(ByVal laUrl As String)

    ' Cear la solicitud de la URL.
    Dim request As WebRequest = WebRequest.Create(laUrl)

    ' Obtener la respuesta.
    Dim response As WebResponse = request.GetResponse()

    ' Abrir el stream de la respuesta recibida.
    Dim reader As New StreamReader(response.GetResponseStream())

    ' Leer el contenido.
    Dim res As String = reader.ReadToEnd()

    ' Mostrarlo.
    Console.WriteLine(res)

    ' Cerrar los streams abiertos.
    reader.Close()
    response.Close()
End Sub

' Acceder a una página Web usando WebRequest y WebResponse
Private Function strPaginaWeb(ByVal laUrl As String) As String
    Dim res As String = ""

    Try
        ' Cear la solicitud de la URL.
        Dim request As WebRequest = WebRequest.Create(laUrl)

        ' Obtener la respuesta.
        Dim response As WebResponse = request.GetResponse()

        ' Abrir el stream de la respuesta recibida.
        Dim reader As New StreamReader(response.GetResponseStream())

        ' Leer el contenido.
        res = reader.ReadToEnd()

        ' Mostrarlo.
        'Console.WriteLine(res)

        ' Cerrar los streams abiertos.
        reader.Close()
        response.Close()

    Catch ex As Exception
        res = "ERROR:<br/>" & ex.Message
    End Try

    Return res
End Function

Private Sub leerUltimosBlogGuille()
    divBlogGuille.Visible = False

    ' La URL a examinar
    Dim laUrl As String = "http://www.elguillemola.com/"
    ' Leemos el contenido
    Dim res As String = strPaginaWeb(laUrl)
    ' Salir si es una cadena vacía o dio error
    If String.IsNullOrEmpty(res) Then Exit Sub
    If res.StartsWith("ERROR:") = True Then Exit Sub

    ' Buscar el texto
    Dim sTarget As String = "widget widget_recent_entries"
    ' Si la posición es -1 es que no existe ese texto
    Dim i As Integer = res.LastIndexOf(sTarget)
    If i = -1 Then Exit Sub

    ' El formato de lo que quiero será:
    '  <h2 con el título><ul> y los <li> con las entradas
    ' por tanto, tomar desde el <h2 hasta el siguiente </ul>
    ' y recemos porque no se aniden posts en un <li>
    Dim j, k As Integer
    ' La posición del <h2
    j = res.ToLower().IndexOf("<h2 ", i + 1)
    If j = -1 Then Exit Sub
    ' La posición del </ul>
    k = res.ToLower().IndexOf("</ul>", j + 1)
    If k = -1 Then Exit Sub

    ' Usar el trozo entre j y k para mostrar una lista con los posts más recientes del blog
    ' el + 5 es para los caracteres del final: </ul>
    Dim listaPosts As String = res.Substring(j, k - j + 5)

    ' Para probar si no se accede
    'listaPosts = ""

    If String.IsNullOrEmpty(listaPosts) Then Exit Sub

    pBlogGuille.InnerHtml = listaPosts
    divBlogGuille.Visible = True
End Sub

<div id="divBlogGuille" runat="server" visible="false" class="NotaClaroMargin">
<div class="tdTituloPeq"><b>En el blog www.elguillemola.com</b></div>
<div id="pBlogGuille" runat="server"></div>
</div>
</div>