Mensajes

[IEnumerable(Of T) Extensions]

IEnumerable(Of T) Extensions, cómo su propio nombre indica, expone varias extensiones de método para utilizarlas con una colección genérica.

Las extensiones son las siguiente, si alguna no es lo suficientemente aclaratoria entonces pueden usar IntelliSense o el ObjectInspector para conocer el propósito de cada una:

Código (VBNET) [Seleccionar] Expandir

IEnumerable(Of T)().ConcatMultiple(IEnumerable(Of T)()) As IEnumerable(Of T)
IEnumerable(Of T)().StringJoin As IEnumerable(Of T)
IEnumerable(Of T).CountEmptyItems As Integer
IEnumerable(Of T).CountNonEmptyItems As Integer
IEnumerable(Of T).Duplicates As IEnumerable(Of T)
IEnumerable(Of T).Randomize As IEnumerable(Of T)
IEnumerable(Of T).RemoveDuplicates As IEnumerable(Of T)
IEnumerable(Of T).SplitIntoNumberOfElements(Integer) As IEnumerable(Of T)
IEnumerable(Of T).SplitIntoNumberOfElements(Integer, Boolean, T) As IEnumerable(Of T)
IEnumerable(Of T).SplitIntoParts(Integer) As IEnumerable(Of T)
IEnumerable(Of T).UniqueDuplicates As IEnumerable(Of T)
IEnumerable(Of T).Uniques As IEnumerable(Of T)

Puse ejemplos de uso para cada extensión en la documentación XML del código fuente.

Source:

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 10-September-2015
' ***********************************************************************
' <copyright file="IEnumerableExtensions.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Public Members Summary "

#Region " Functions "

' IEnumerable(Of T)().ConcatMultiple(IEnumerable(Of T)()) As IEnumerable(Of T)
' IEnumerable(Of T)().StringJoin As IEnumerable(Of T)
' IEnumerable(Of T).CountEmptyItems As Integer
' IEnumerable(Of T).CountNonEmptyItems As Integer
' IEnumerable(Of T).Duplicates As IEnumerable(Of T)
' IEnumerable(Of T).Randomize As IEnumerable(Of T)
' IEnumerable(Of T).RemoveDuplicates As IEnumerable(Of T)
' IEnumerable(Of T).SplitIntoNumberOfElements(Integer) As IEnumerable(Of T)
' IEnumerable(Of T).SplitIntoNumberOfElements(Integer, Boolean, T) As IEnumerable(Of T)
' IEnumerable(Of T).SplitIntoParts(Integer) As IEnumerable(Of T)
' IEnumerable(Of T).UniqueDuplicates As IEnumerable(Of T)
' IEnumerable(Of T).Uniques As IEnumerable(Of T)

#End Region

#End Region

#Region " Option Statements "

Option Strict On
Option Explicit On
Option Infer Off

#End Region

#Region " Imports "

Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Linq
Imports System.Runtime.CompilerServices

#End Region

#Region " IEnumerableUtil "

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Contains custom extension methods to use with an <see cref="IEnumerable(Of T)"/>.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
Public Module IEnumerableExtensions

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Get All Duplicates.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col As IEnumerable(Of Integer) = {1, 1, 2, 2, 3, 3, 0}
   ''' Debug.WriteLine(String.Join(", ", col.Duplicates))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Gets all the duplicated values of the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of T)"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function Duplicates(Of T)(ByVal sender As IEnumerable(Of T)) As IEnumerable(Of T)

       Return sender.GroupBy(Function(value As T) value).
                     Where(Function(group As IGrouping(Of T, T)) group.Count > 1).
                     SelectMany(Function(group As IGrouping(Of T, T)) group)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Get Unique Duplicates.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col As IEnumerable(Of Integer) = {1, 1, 2, 2, 3, 3, 0}
   ''' Debug.WriteLine(String.Join(", ", col.UniqueDuplicates))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Gets the unique duplicated values of the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of T)"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function UniqueDuplicates(Of T)(ByVal sender As IEnumerable(Of T)) As IEnumerable(Of T)

       Return sender.GroupBy(Function(value As T) value).
                     Where(Function(group As IGrouping(Of T, T)) group.Count > 1).
                     Select(Function(group As IGrouping(Of T, T)) group.Key)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Get Unique Values.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col As IEnumerable(Of Integer) = {1, 1, 2, 2, 3, 3, 0}
   ''' Debug.WriteLine(String.Join(", ", col.Uniques))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Gets the unique values of the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of T)"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function Uniques(Of T)(ByVal sender As IEnumerable(Of T)) As IEnumerable(Of T)

       Return sender.Except(IEnumerableExtensions.UniqueDuplicates(sender))

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Remove Duplicates.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col As IEnumerable(Of Integer) = {1, 1, 2, 2, 3, 3, 0}
   ''' Debug.WriteLine(String.Join(", ", col.RemoveDuplicates))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Removes duplicated values in the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of T)"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function RemoveDuplicates(Of T)(ByVal sender As IEnumerable(Of T)) As IEnumerable(Of T)

       Return sender.Distinct

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Split Collection Into Number Of Parts.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   '''  Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
   '''  Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = mainCol.SplitIntoParts(amount:=2)
   '''  splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
   '''                                  Debug.WriteLine(String.Join(", ", col))
   '''                              End Sub)
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Splits the source <see cref="IEnumerable(Of T)"/> into the specified amount of secuences.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   '''
   ''' <param name="amount">
   ''' The target amount of secuences.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of IEnumerable(Of T))"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function SplitIntoParts(Of T)(ByVal sender As IEnumerable(Of T),
                                        ByVal amount As Integer) As IEnumerable(Of IEnumerable(Of T))

       If (amount = 0) OrElse (amount > sender.Count) OrElse (sender.Count Mod amount <> 0) Then
           Throw New ArgumentOutOfRangeException(paramName:="amount",
                                                 message:="value should be greater than '0', smallest than 'col.Count', and multiplier of 'col.Count'.")
       End If

       Dim chunkSize As Integer = CInt(Math.Ceiling(sender.Count() / amount))

       Return From index As Integer In Enumerable.Range(0, amount)
              Select sender.Skip(chunkSize * index).Take(chunkSize)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Split Collection Into Number Of Elements.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   '''  Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
   '''  Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = mainCol.SplitIntoNumberOfElements(amount:=4)
   '''  splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
   '''                                  Debug.WriteLine(String.Join(", ", col))
   '''                              End Sub)
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Splits the source <see cref="IEnumerable(Of T)"/> into secuences with the specified amount of elements.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   '''
   ''' <param name="amount">
   ''' The target amount of elements.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of IEnumerable(Of T))"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function SplitIntoNumberOfElements(Of T)(ByVal sender As IEnumerable(Of T),
                                                   ByVal amount As Integer) As IEnumerable(Of IEnumerable(Of T))

       Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(sender.Count() / amount)))
              Select sender.Skip(index * amount).Take(amount)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Split Collection Into Number Of Elements.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   '''  Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
   '''  Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = mainCol.SplitIntoNumberOfElements(amount:=4, fillEmpty:=True, valueToFill:=0)
   '''  splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
   '''                                  Debug.WriteLine(String.Join(", ", col))
   '''                              End Sub)
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Splits the source <see cref="IEnumerable(Of T)"/> into secuences with the specified amount of elements.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   '''
   ''' <param name="amount">
   ''' The target amount of elements.
   ''' </param>
   '''
   ''' <param name="fillEmpty">
   ''' If set to <c>true</c>, generates empty elements to fill the last secuence's part amount.
   ''' </param>
   '''
   ''' <param name="valueToFill">
   ''' An optional value used to fill the last secuence's part amount.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of IEnumerable(Of T))"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function SplitIntoNumberOfElements(Of T)(ByVal sender As IEnumerable(Of T),
                                                   ByVal amount As Integer,
                                                   ByVal fillEmpty As Boolean,
                                                   Optional valueToFill As T = Nothing) As IEnumerable(Of IEnumerable(Of T))

       Return (From count As Integer In Enumerable.Range(0, CInt(Math.Ceiling(sender.Count() / amount)))).
               Select(Function(count)

                          Select Case fillEmpty

                              Case True
                                  If (sender.Count - (count * amount)) >= amount Then
                                      Return sender.Skip(count * amount).Take(amount)

                                  Else
                                      Return sender.Skip(count * amount).Take(amount).
                                                 Concat(Enumerable.Repeat(Of T)(
                                                        valueToFill,
                                                        amount - (sender.Count() - (count * amount))))
                                  End If

                              Case Else
                                  Return sender.Skip(count * amount).Take(amount)

                          End Select

                      End Function)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Randomize Collection.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
   ''' Debug.WriteLine(String.Join(", ", col.Randomize))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Randomizes the elements of the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collection.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of T)"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function Randomize(Of T)(ByVal sender As IEnumerable(Of T)) As IEnumerable(Of T)

       Dim rand As New Random

       Return From item As T In sender
              Order By rand.Next

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Concatenate Multiple Collections.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col1 As IEnumerable(Of Integer) = {1, 2, 3}
   ''' Dim col2 As IEnumerable(Of Integer) = {4, 5, 6}
   ''' Dim col3 As IEnumerable(Of Integer) = {7, 8, 9}
   ''' Debug.WriteLine(String.Join(", ", {col1, col2, col3}.ConcatMultiple))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Concatenates multiple <see cref="IEnumerable(Of T)"/> at once into a single <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''
   ''' <param name="sender">
   ''' The source collections.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="IEnumerable(Of T)"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function ConcatMultiple(Of T)(ByVal sender As IEnumerable(Of T)()) As IEnumerable(Of T)

       Return sender.SelectMany(Function(col As IEnumerable(Of T)) col)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Join Multiple Collections Into Single String.
   ''' Author: Elektro
   ''' Date  : 08-March-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim col1 As IEnumerable(Of Integer) = {1, 2, 3}
   ''' Dim col2 As IEnumerable(Of Integer) = {4, 5, 6}
   ''' Dim col3 As IEnumerable(Of Integer) = {7, 8, 9}
   ''' Debug.WriteLine({col1, col2, col3}.StringJoin(", ")))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Joins multiple <see cref="IEnumerable(Of T)"/> at once into a single string.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <typeparam name="T">
   ''' </typeparam>
   '''    
   ''' <param name="separator">
   ''' The string to use as a separator.
   ''' </param>
   '''
   ''' <param name="sender">
   ''' The source collections.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' <see cref="String"/>.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function StringJoin(Of T)(ByVal sender As IEnumerable(Of T)(),
                                    ByVal separator As String) As String

       Dim sb As New System.Text.StringBuilder

       For Each col As IEnumerable(Of T) In sender
           sb.Append(String.Join(separator, col) & separator)
       Next col

       Return sb.Remove(sb.Length - separator.Length, separator.Length).ToString

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Count empty items of collection.
   ''' Author: Elektro
   ''' Date  : 16-June-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example>
   ''' Dim emptyItemCount As Integer = {"Hello", "   ", "World!"}.CountEmptyItems
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Counts the empty items of the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="sender">
   ''' The source <see cref="IEnumerable(Of T)"/>.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' The total amount of empty items.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function CountEmptyItems(Of T)(ByVal sender As IEnumerable(Of T)) As Integer

       Return (From item As T In sender
               Where (item.Equals(Nothing))).Count

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <remarks>
   ''' Title : Count non-empty items of collection.
   ''' Author: Elektro
   ''' Date  : 16-June-2015
   ''' </remarks>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example>
   ''' Dim nonEmptyItemCount As Integer = {"Hello", "   ", "World!"}.CountNonEmptyItems
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Counts the non-empty items of the source <see cref="IEnumerable(Of T)"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="sender">
   ''' The source <see cref="IEnumerable(Of T)"/>.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' The total amount of non-empty items.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   <DebuggerStepThrough>
   <DebuggerHidden>
   <Extension>
   Public Function CountNonEmptyItems(Of T)(ByVal sender As IEnumerable(Of T)) As Integer

       Return (sender.Count - IEnumerableExtensions.CountEmptyItems(sender))

   End Function

End Module

#End Region











IEnumerable(Of String) Extensions, cómo su propio nombre indica, expone varias extensiones de método para utilizarlas con una colección de strings.

Las extensiones son las siguiente, si alguna no es lo suficientemente aclaratoria entonces pueden usar IntelliSense o el ObjectInspector para conocer el propósito de cada una:

Código (vbnet) [Seleccionar] Expandir

IEnumerable(Of String).BubbleSort As IEnumerable(Of String)
IEnumerable(Of String).CountEmptyItems As Integer
IEnumerable(Of String).CountNonEmptyItems As Integer
IEnumerable(Of String).FindByContains(String, Boolean) As IEnumerable(Of String)
IEnumerable(Of String).FindByLike(String, Boolean) As IEnumerable(Of String)
IEnumerable(Of String).FindExact(String, StringComparison) As IEnumerable(Of String)
IEnumerable(Of String).RemoveByContains(String, Boolean) As IEnumerable(Of String)
IEnumerable(Of String).RemoveByLike(String, Boolean) As IEnumerable(Of String)
IEnumerable(Of String).RemoveExact(String, StringComparison) As IEnumerable(Of String)


Puse ejemplos de uso para cada extensión en la documentación XML del código fuente.

Source:
http://pastebin.com/6XfLcMj8










Array Extensions, cómo su propio nombre indica, expone extensiones de método para utilizarlas con Arays.

Aunque realmente, por el momento solo puse una extensión, pero de igual modo comparto el código para que puedan extender su funcionalidad o tomar la idea como base.

La extensión es la siguiente, sirve para redimensionar el tamaño del array de forma automatizada y más veloz que la habitual.

Código (vbnet) [Seleccionar] Expandir

T().Resize As T()

Source:

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 10-September-2015
' ***********************************************************************
' <copyright file="Array Extensions.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Public Members Summary "

#Region " Functions "

' T().Resize As T()

#End Region

#End Region

#Region " Option Statements "

Option Strict On
Option Explicit On
Option Infer Off

#End Region

#Region " Imports "

Imports System
Imports System.Diagnostics
Imports System.Runtime.CompilerServices

#End Region

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Contains custom extension methods to use with an <see cref="Array"/>.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
Public Module ArrayExtensions

#Region " Public Extension Methods "

    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' Title : Resize Array.
    ''' Author: Elektro
    ''' Date  : 10-September-2015
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <example> This is a code example.
    ''' <code>
    ''' Dim myArray(50) As Integer
    ''' Console.WriteLine(String.Format("{0,-12}: {1}", "Initial Size", myArray.Length))
    '''
    ''' myArray = myArray.Resize(myArray.Length - 51)
    ''' Console.WriteLine(String.Format("{0,-12}: {1}", "New Size", myArray.Length))
    ''' </code>
    ''' </example>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Resizes the number of elements of the source <see cref="Array"/>.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <typeparam name="T">
    ''' </typeparam>
    '''
    ''' <param name="sender">
    ''' The source <see cref="Array"/>.
    ''' </param>
    '''
    ''' <param name="newSize">
    ''' The new size.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' The resized <see cref="Array"/>.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="System.ArgumentOutOfRangeException">
    ''' newSize;Non-negative number required
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <DebuggerHidden>
    <Extension>
    Public Function Resize(Of T)(ByVal sender As T(),
                                 ByVal newSize As Integer) As T()

        If (newSize <= 0) Then
            Throw New System.ArgumentOutOfRangeException(paramName:="newSize", message:="Value greater than 0 is required.")
        End If

        Dim preserveLength As Integer = Math.Min(sender.Length, newSize)

        If (preserveLength > 0) Then
            Dim newArray As Array = Array.CreateInstance(sender.GetType.GetElementType, newSize)
            Array.Copy(sender, newArray, preserveLength)
            Return DirectCast(newArray, T())

        Else
            Return sender

        End If

    End Function

#End Region

End Module

NetworkUtil.vb, esta class expone varias funcionalidades relacionadas con los adaptadores de red, desde un evento compartido, NetworkUtil.NetworkStatusChanged, el cual se puede utilizar para monitorizar el estado de la conexión, hasta las classes NetworkUtil.NetworkTrafficMonitor, y NetworkUtil.ProcessTrafficMonitor
que, con sus respectivos eventos a los que uno se puede suscribir, sirven para monitorizar el consumo de tráfico de una red, o el de un proces en particular. Realmente tiene poco más que lo que acabo de mencionar xD.

Source:
http://pastebin.com/byCZSqGc

Ejemplo para monitorizar el estado de la red:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Form1_Shown() Handles MyBase.Load

       AddHandler NetworkUtil.NetworkStatusChanged, AddressOf DoNetworkStatusChanged

   End Sub

   Private Sub DoNetworkStatusChanged(ByVal sender As Object, e As NetworkUtil.NetworkStatusChangedArgs)

       If e.IsAvailable Then
           Console.WriteLine("Network is available.")

       Else
           Console.WriteLine("Network is not available.")

       End If

   End Sub

End Class

Ejemplo para monitorizar el tráfico de red:

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class Form1 : Inherits Form

    Dim WithEvents netMon As NetworkUtil.NetworkTrafficMonitor

    Private Sub Form1_Load() Handles MyBase.Load

        Me.netMon = New NetworkUtil.NetworkTrafficMonitor(NetworkUtil.NetworkTrafficMonitor.GetAvaliableInterfaceNames.First)
        Me.netMon.UpdateBehavior = NetworkUtil.NetworkTrafficMonitor.UpdateBehaviorEnum.FireAlwaysAfterTick
        Me.netMon.UpdateInterval = 1000 ' 1 sec
        Me.netMon.Start()

    End Sub

    '''  ----------------------------------------------------------------------------------------------------
    '''  <summary>
    '''  Handles the <see cref="NetworkUtil.NetworkTrafficMonitor.TrafficChanged"/> event of the netMon instance.
    '''  </summary>
    '''  ----------------------------------------------------------------------------------------------------
    '''  <param name="sender">T
    '''  The source of the event.
    '''  </param>
    '''  
    '''  <param name="e">
    '''  The <see cref="NetworkUtil.NetworkTrafficMonitor.TrafficChangedEventArgs"/> instance containing the event data.
    '''  </param>
    '''  ----------------------------------------------------------------------------------------------------
    Private Sub NetMon_TrafficChanged(ByVal sender As Object, ByVal e As NetworkUtil.NetworkTrafficMonitor.TrafficChangedEventArgs) _
    Handles netMon.TrafficChanged

        Me.LabelBytesReceived.Text = String.Format("Bytes received: {0} kb", (e.BytesReceived / 1024).ToString("n2"))
        Me.LabelDlSpeed.Text = String.Format("DL Speed: {0} kb/sec", (e.DiffBytesReceived / 1024).ToString("n2"))

        Me.LabelBytesSent.Text = String.Format("Bytes sent: {0} kb", (e.BytesSent / 1024).ToString("n2"))
        Me.LabelUlSpeed.Text = String.Format("UL Speed: {0} kb/sec", (e.DiffBytesSent / 1024).ToString("n2"))

    End Sub

    Private Sub BtDownloadUrl_Click() Handles BtDownloadUrl.Click

        Dim url As String = "http://download.thinkbroadband.com/10MB.zip"
        Dim client As New WebClient()
        client.DownloadFileAsync(New Uri(url), Path.GetTempFileName())

    End Sub

    Private Sub BtPauseMon_Click() Handles BtPauseMon.Click

        If Me.netMon.IsActive Then
            Me.netMon.Stop()
        Else
            Me.netMon.Start()
        End If

    End Sub

End Class

Ejemplo para monitorizar el tráfico de una aplicación .Net (que tenga los contadores de rendimiento habilitados):

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class Form1 : Inherits Form

   Dim WithEvents procNetMon As NetworkUtil.ProcessTrafficMonitor

   Private Sub Form1_Load() Handles MyBase.Load

       Me.procNetMon = New NetworkUtil.ProcessTrafficMonitor(Process.GetCurrentProcess.Id)
       Me.procNetMon.UpdateBehavior = NetworkUtil.ProcessTrafficMonitor.UpdateBehaviorEnum.FireAlwaysAfterTick
       Me.procNetMon.UpdateInterval = 1000 ' 1 sec
       Me.procNetMon.Start()

   End Sub

  ''' ----------------------------------------------------------------------------------------------------
  ''' <summary>
  ''' Handles the <see cref="NetworkUtil.ProcessTrafficMonitor.TrafficChanged"/> event of the procNetMon instance.
  ''' </summary>
  ''' ----------------------------------------------------------------------------------------------------
  ''' <param name="sender">T
  ''' The source of the event.
  ''' </param>
  '''
  ''' <param name="e">
  ''' The <see cref="NetworkUtil.ProcessTrafficMonitor.TrafficChangedEventArgs"/> instance containing the event data.
  ''' </param>
  ''' -----------------------------------------------------------------------------------------------------
   Private Sub ProcNetMon_TrafficChanged(ByVal sender As Object, ByVal e As NetworkUtil.ProcessTrafficMonitor.TrafficChangedEventArgs) _
   Handles procNetMon.TrafficChanged

       Me.LabelBytesReceived.Text = String.Format("Bytes received: {0} kb", (e.BytesReceived / 1024).ToString("n2"))
       Me.LabelDlSpeed.Text = String.Format("DL Speed: {0} kb/sec", (e.DiffBytesReceived / 1024).ToString("n2"))

       Me.LabelBytesSent.Text = String.Format("Bytes sent: {0} kb", (e.BytesSent / 1024).ToString("n2"))
       Me.LabelUlSpeed.Text = String.Format("UL Speed: {0} kb/sec", (e.DiffBytesSent / 1024).ToString("n2"))

   End Sub

   Private Sub BtDownloadUrl_Click() Handles BtDownloadUrl.Click

       Dim url As String = "http://download.thinkbroadband.com/10MB.zip"
       Dim client As New WebClient()
       client.DownloadFileAsync(New Uri(url), Path.GetTempFileName())

   End Sub

   Private Sub BtPauseMon_Click() Handles BtPauseMon.Click

       If Me.procNetMon.IsActive Then
           Me.procNetMon.Stop()
       Else
           Me.procNetMon.Start()
       End If

   End Sub

End Class

[IsPerformanceCountersEnabled]

AppConfigUtil, es una class que expone un simple parser de uso genérico para comprovar el valor de una propiedad declarada en la configuración de aplicación (appconfig), el cual no he optimizado para los tipos de estructura del árbol de nodos del appconfig ...podría ser ineficiente en ciertos escenarios, pero es un comienzo.

Por ejemplo, para saber si los contadores de rendimientos están activados en el appconfig de una aplicación .Net, lo podriamos utilizar de la siguiente manera:

Código (vbnet) [Seleccionar] Expandir

Dim isPerfCountersEnabled As boolean = GetAppConfigSetting(Of Boolean)("system.net", "settings", "performanceCounters", "enabled")

O utilizar el método IsPerformanceCountersEnabled definido expresamente para esa labor.

Source:

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 18-September-2015
' ***********************************************************************
' <copyright file="AppConfigUtil.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Public Members Summary "

#Region " Functions "

' GetAppConfigSetting(Of T)(String, String, String, String, Optional:String) As T
' GetAppConfigSetting(Of T)(String, String, String, String) As T
' IsPerformanceCountersEnabled(Optional:String) As Boolean

#End Region

#End Region

#Region " Option Statements "

Option Strict On
Option Explicit On
Option Infer Off

#End Region

#Region " Imports "

Imports System
Imports System.Configuration
Imports System.Linq
Imports System.Net.Configuration

#End Region

#Region " AppConfig Util "

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Contains related AppConfig utilities.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
Public NotInheritable Class AppConfigUtil

#Region " Public Methods "

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the value of a setting declared in the application configuration file (app.config)
    ''' of the specified application.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <example> This is a code example.
    ''' <code>
    ''' Dim isPerfCountersEnabled As boolean = GetAppConfigSetting(Of Boolean)("system.net", "settings", "performanceCounters", "enabled")
    ''' </code>
    ''' </example>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <typeparam name="T">
    ''' </typeparam>
    '''
    ''' <param name="sectionGroupName">
    ''' The name of the section group.
    ''' </param>
    '''
    ''' <param name="sectionName">
    ''' The name of the section.
    ''' </param>
    '''
    ''' <param name="elementName">
    ''' The name of the element.
    ''' </param>
    '''
    ''' <param name="propertyName">
    ''' The name of the property.
    ''' </param>
    '''
    ''' <param name="exePath">
    ''' The executable path of the current or an external .Net application.
    ''' If any path is specified, it assumes the current application.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' If the SectionGroup, the Section, the Element, or the Property doesn't exist, the return value is <see langword="Nothing"/>,
    ''' otherwise, the value.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <DebuggerHidden>
    Public Shared Function GetAppConfigSetting(Of T)(ByVal sectionGroupName As String,
                                                     ByVal sectionName As String,
                                                     ByVal elementName As String,
                                                     ByVal propertyName As String,
                                                     Optional ByVal exePath As String = "") As T

        Dim appConfig As Configuration
        Dim group As ConfigurationSectionGroup
        Dim section As ConfigurationSection
        Dim sectionPropInfo As PropertyInformation
        Dim element As ConfigurationElement
        Dim elementPropInfo As PropertyInformation

        If Not String.IsNullOrEmpty(exePath) Then
            appConfig = ConfigurationManager.OpenExeConfiguration(exePath)
        Else
            appConfig = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        End If

        group = appConfig.GetSectionGroup(sectionGroupName)
        If group Is Nothing Then
            Return Nothing
        End If

        section = group.Sections(sectionName)
        If section Is Nothing Then
            Return Nothing
        End If

        sectionPropInfo = section.ElementInformation.Properties(elementName)
        If sectionPropInfo Is Nothing Then
            Return Nothing
        End If

        element = DirectCast(sectionPropInfo.Value, ConfigurationElement)
        If element Is Nothing Then
            Return Nothing
        End If

        elementPropInfo = element.ElementInformation.Properties(propertyName)
        If elementPropInfo Is Nothing Then
            Return Nothing
        End If

        Return DirectCast(elementPropInfo.Value, T)

    End Function

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the value of a setting declared in the application configuration file (app.config)
    ''' of the specified application.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <typeparam name="T">
    ''' </typeparam>
    '''
    ''' <param name="sectionName">
    ''' The name of the section.
    ''' </param>
    '''
    ''' <param name="elementName">
    ''' The name of the element.
    ''' </param>
    '''
    ''' <param name="propertyName">
    ''' The name of the property.
    ''' </param>
    '''
    ''' <param name="exePath">
    ''' The executable path of the current or an external .Net application.
    ''' If any path is specified, it assumes the current application.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' If the Section, the Element, or the Property doesn't exist, the return value is <see langword="Nothing"/>,
    ''' otherwise, the value.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <DebuggerHidden>
    Public Shared Function GetAppConfigSetting(Of T)(ByVal sectionName As String,
                                                     ByVal elementName As String,
                                                     ByVal propertyName As String,
                                                     Optional ByVal exePath As String = "") As T

        Dim appConfig As Configuration
        Dim section As ConfigurationSection
        Dim sectionPropInfo As PropertyInformation
        Dim element As ConfigurationElement
        Dim elementPropInfo As PropertyInformation

        If Not String.IsNullOrEmpty(exePath) Then
            appConfig = ConfigurationManager.OpenExeConfiguration(exePath)
        Else
            appConfig = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        End If

        section = appConfig.GetSection(sectionName)
        If section Is Nothing Then
            Return Nothing
        End If

        sectionPropInfo = section.ElementInformation.Properties(elementName)
        If sectionPropInfo Is Nothing Then
            Return Nothing
        End If

        element = DirectCast(sectionPropInfo.Value, ConfigurationElement)
        If element Is Nothing Then
            Return Nothing
        End If

        elementPropInfo = element.ElementInformation.Properties(propertyName)
        If elementPropInfo Is Nothing Then
            Return Nothing
        End If

        Return DirectCast(elementPropInfo.Value, T)

    End Function

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Determines whether the performance counters feature is enabled in the application configuration file (app.config)
    ''' of the specified application.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="exePath">
    ''' The executable path of the current or an external .Net application.
    ''' If any path is specified, it assumes the current application.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' Returns <see langword="False"/> if the performance counters feature is disabled or if the "system.net" section is not defined;
    ''' otherwise, <see langword="True"/>.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <DebuggerHidden>
    Public Shared Function IsPerformanceCountersEnabled(Optional ByVal exePath As String = "") As Boolean

        Dim appConfig As Configuration
        Dim group As NetSectionGroup

        If Not String.IsNullOrEmpty(exePath) Then
            appConfig = ConfigurationManager.OpenExeConfiguration(exePath)
        Else
            appConfig = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        End If

        group = DirectCast(appConfig.GetSectionGroup("system.net"), NetSectionGroup)

        Return (group IsNot Nothing AndAlso group.Settings.PerformanceCounters.Enabled)

    End Function

#End Region

End Class

#End Region

[GetCredits]

Despues de un tiempo sin actualizar, volvemos a la carga con un par de snippets.



Ejemplo de uso de la librería CodeScales:
http://www.codescales.com/

Es un simple, muy simple cliente http que encapsula el código/miembros necesarios de la librería de classes de .Net para realizar peticiones Post con MultiPart, y otras, de forma muy sencilla:

Código (vbnet) [Seleccionar] Expandir



       ' *********************
       ' Get Method
       ' http://www.google.com
       ' *********************
       '
       ' Dim client As New HttpClient
       ' Dim getMethod As New HttpGet(New Uri("http://www.google.com/search"))
       '
       ' With getMethod
       '     .Parameters.Add("q", "Hello")
       '     .Parameters.Add("lr", "lang_en")
       ' End With
       '
       ' Dim response As HttpResponse = client.Execute(getMethod)
       ' Dim text As String = EntityUtils.ToString(response.Entity)



       ' **************************
       ' Post Method with MultiPart
       ' http://9kw.eu/
       ' **************************
       '
       ' Dim apiKey As String = "XXXXXXXXXXXX"
       ' Dim filepath As String = "C:\File.png"
       '
       ' Dim client As New HttpClient
       ' Dim postMethod As New HttpPost(New Uri("http://www.9kw.eu/index.cgi"))
       '
       ' Dim multipartEntity As New MultipartEntity
       ' postMethod.Entity = multipartEntity
       '
       ' With multipartEntity
       '     .AddBody(New StringBody(Encoding.UTF8, "apikey", apiKey))
       '     .AddBody(New StringBody(Encoding.UTF8, "action", "usercaptchaupload"))
       '     .AddBody(New StringBody(Encoding.UTF8, "source", "vbapi"))
       ' End With
       '
       ' Dim fileBody As New FileBody("file-upload-01", filepath, New IO.FileInfo(filepath))
       ' multipartEntity.AddBody(fileBody)
       '
       ' Dim response As HttpResponse = client.Execute(postMethod)
       ' Dim text As String = EntityUtils.ToString(response.Entity)




9KW Captcha Helper
http://9kw.eu/
(veanse otros ejemplos de uso en el apartado de la API en la página oficial)

Es una class para utilizar el servicio de solución de captchas de 9KW. Este servicio es de pago, se necesita una API key para podr utilizarlo.

Por el momento cumple las dos labores más esenciales, la función GetCredits devuelve los créditos actuales del usuario, y el método SolveCaptcha soluciona el captcha especificado.

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 18-September-2015
' ***********************************************************************
' <copyright file="KWCaptchaHelper.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Public Members Summary "

#Region " Properties "

' KWCaptchaHelper.ApiKey As String

#End Region

#Region " Functions "

' KWCaptchaHelper.GetCredits As String

#End Region

#Region " Methods "

' KWCaptchaHelper.SolveCaptcha(String)

#End Region

#End Region

#Region " Usage Examples "

' Dim captchaSolver As New KWCaptchaHelper(apiKey:="XXXXXXXXXXXXXXXXXXX")
' Dim imagePath As String = "C:\captcha.png"
' Dim result As String = String.Empty

' Console.WriteLine(String.Format("User Credits: {0}", captchaSolver.GetCredits()))
' Console.WriteLine(String.Format("Captcha Img.: {0}", imagePath))

' Console.WriteLine("Solving Captcha, please wait...")
' result = captchaSolver.SolveCaptcha(imagePath)
' Console.WriteLine(String.Format("Result: {0}", result))

'Console.ReadKey()

#End Region

#Region " Imports "

Imports CodeScales.Http
Imports CodeScales.Http.Entity
Imports CodeScales.Http.Methods
Imports CodeScales.Http.Entity.Mime

Imports System
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Threading

#End Region

#Region " KWCaptchaHelper "

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' 9KW Captcha service. Helper Class.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <remarks>
''' Visit <see href="http://9kw.eu/"/> for further info.
''' </remarks>
''' ----------------------------------------------------------------------------------------------------
Public NotInheritable Class KWCaptchaHelper

#Region " Properties "

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Gets the 9KW's API user key.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <value>
   ''' The 9KW's API user key.
   ''' </value>
   ''' ----------------------------------------------------------------------------------------------------
   Public ReadOnly Property ApiKey As String
       Get
           Return Me.apiKeyB
       End Get
   End Property
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' ( Backing field )
   ''' The 9KW's API user key.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   Private ReadOnly apiKeyB As String

#End Region

#Region " Constructors "

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Initializes a new instance of the <see cref="KWCaptchaHelper"/> class.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="apiKey">
   ''' The 9KW's API user key.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   Public Sub New(ByVal apiKey As String)

       Me.apiKeyB = apiKey

   End Sub

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Prevents a default instance of the <see cref="KWCaptchaHelper"/> class from being created.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   Private Sub New()
   End Sub

#End Region

#Region " Private Methods "

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="data">
   ''' The data.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' System.String.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   Private Function Get9kwApi(ByVal data As String) As String

       Return Me.Get9kwHttp(String.Format("http://www.9kw.eu/index.cgi?source=vbapi&debug=0&apikey={0}&action=" & data, Me.apiKeyB))

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="url">
   ''' The URL.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' System.String.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   Private Function Get9kwHttp(ByVal url As String) As String

       Dim httpClient As New HttpClient
       Dim httpGet As New HttpGet(New Uri(url))
       Dim httpResponse As HttpResponse = httpClient.Execute(httpGet)

       Return EntityUtils.ToString(httpResponse.Entity)

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="data">
   ''' The data.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' System.String.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   Private Function Get9kwApiUpload(ByVal data As String) As String

       Dim client As New HttpClient
       Dim postMethod As New HttpPost(New Uri("http://www.9kw.eu/index.cgi"))

       Dim multipartEntity As New MultipartEntity
       postMethod.Entity = multipartEntity

       Dim stringBody As New StringBody(Encoding.UTF8, "apikey", Me.apiKeyB)
       multipartEntity.AddBody(stringBody)

       Dim stringBody3 As New StringBody(Encoding.UTF8, "source", "vbapi")
       multipartEntity.AddBody(stringBody3)

       Dim stringBody2 As New StringBody(Encoding.UTF8, "action", "usercaptchaupload")
       multipartEntity.AddBody(stringBody2)

       Dim fileInfo As New FileInfo(data)
       Dim fileBody As New FileBody("file-upload-01", data, fileInfo)
       multipartEntity.AddBody(fileBody)

       Dim response As HttpResponse = client.Execute(postMethod)
       Return EntityUtils.ToString(response.Entity)

   End Function

#End Region

#Region " Public Methods "

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Gets the current remaining credits.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' The current remaining credits.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   Public Function GetCredits() As String

       Return Me.Get9kwApi("usercaptchaguthaben")

   End Function

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Solves the specified captcha image.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="imagePath">
   ''' The image path.
   ''' </param>
   '''
   ''' <param name="checkInterval">
   ''' The interval to check whether the captcha is solved.
   ''' </param>
   '''
   ''' <param name="totalTries">
   ''' The total intents. ( <paramref name="totalTries"/> * <paramref name="checkInterval"/> ).
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <returns>
   ''' The solved text.
   ''' </returns>
   ''' ----------------------------------------------------------------------------------------------------
   Public Function SolveCaptcha(ByVal imagePath As String,
                                Optional ByVal checkInterval As Integer = 2000,
                                Optional ByVal totalTries As Integer = 100) As String

       Dim newCaptchaID As String = Me.Get9kwApiUpload(imagePath)
       Dim checkdata As String = String.Empty
       Dim counter As Integer = 0

       Do Until Not String.IsNullOrEmpty(checkdata)

           If Interlocked.Increment(counter) = totalTries Then
               Exit Do
           Else
               Thread.Sleep(checkInterval)
           End If

           checkdata = Me.Get9kwApi("usercaptchacorrectdata&id=" & newCaptchaID)

       Loop

       Return checkdata

   End Function

#End Region

End Class

#End Region

Los moderadores globales no entran a trapo, se quedan mirando...

Tengo un mal despertar , de todas formas tiene tela que precisamente tu digas eso.

Saludos!

[tolay]

Así que, pitoloko, creo que deberías replantearte tu modo de vida, sino seguirás sin novia y morirás virgen.

Ay, ¡qué facil es juzgar a la gente sin conocerla!, tolay.

No soy un sex symbol, eso está claro, pero a mis 29 años ya he tenido bastantes más novias y rollos de una semana o de una noche en discotecas de las que probablemente tu tendrás, la razón es simple, achacas lo contrario mientras que yo siempre he sabido buscármelas, e incluso me casé (casi 2 veces), tontito, ahora estoy divorciado, se lo que son las relaciones y lo que implican por ese motivo no me apetece más que un tipo de relación (la sexual).

Y si, por que no decirlo también, a mi no me importa que los demás caigan en la hipocresía con tópicos machistas, sexuales o demás, pero yo he tenido la ocasión de estar con prostitutas (precisamente asiáticas, españolas nunca), más de una vez, tanto solo y con amigos (los cuales son mucho más agraciados que yo ligando), por disfrutar "la cultura", es algo normal.

Intenta ver la realidad de alguien que habla con conoimiento de causa y que solo está dando una opinión crítica, que prejuzgar comparando con un abuelete que se queja por todo sin argumentos.

Y mira, ya me has hecho hablar cuando dije que era el fin de mi opinión respecto a este tema, pero es que no se que cojones tienes que juzgar de los demás haciéndolo con tono ofensivo, así te irá muy mal.

¿Qué, te ha interesado mi vida? ...¿no?, pues entonces no vayas intentando provocar calificando a la gente por un juicio incorrecto sin conocerlos.

El próximo comentario que haga alusiones a la vida personal sexual o de noviazgo o de lo que sea hacia otra persona, será censurado.
Por favor, hablen de los chinos y sus costumbres, que ese es el tema. Dejen a un lado prejuicios.

Saludos!

[sin querer hacerlo]

Y sera que cada vez que entran esas azafatas buenotas a la cabina de los aviones, los pilotos pierden la concentración y por eso se caen los aviones???...

Pero las azafatas están ejerciendo su trabajo, mientras que las "cheerleaders" (por no llamarlas señoritas de compañia en el caso de la oficina) estarian zorreando sin querer hacerlo (calentando los bajos de los empleados...), y eso desconcentra, vaya.

A mi me parece que es MUY distinto.

Traducción de "mejora de la eficiencia" :  están mas tiempo en la oficina.

Claro que pasarían más tiempo en la oficina, pero más que para trabajar para ver si pueden mojar el churro .

Recordemos que no se habla precisamente de pausas de los trabajadores para ir a una zona de entretenimiento (al parecer), sino de mujeres deambulando por la oficina constantemente que, además de pasearse por ahí mostrándo todos sus pares de encantos, de tanto en cuanto también harían actividades "sociales" para desestresar, vamos, para desconcentrar.

Que lo llamen "cheerleaders" o como quieran pero eso son Geishas modernas adoptadas del estilo japonés ...sin maquillaje, tan simple como eso.

PD: Fin de mi opinión respecto a esto xD.

Saludos!

[Elektro]

Elektro que se vaya a programar a un monasterio budista (se que se baña en la playa con pantalón y camisa)... yo me quedo programando con las chinitas esas... jejejejeeee... lastima que no tengo ni idea de como programar, pero por unas chinas así puedo aprender...

Imaginemos que una compañia que fabrica productos alimenticios, o albañiles que estén construyendo un edificio, o coches o aviones donde el factor humano necesario en la fábrica sea de un 80%, o cualquier otro oficio que se nos ocurra, pues van y les parezca una buena idea empezar a contratar a "animadoras" para subir la moral y la productividad de sus empleados al fabricar el producto (ilusos...), bien, sabiendo como somos los hombres, los empleados estarían pensando más en otras cosas que en asegurarse de que el producto sea de calidad. Creo que esto es indiscutible, el porcentajo de "fallos humanos" aumentaría con creces.

¿Tú te arriesgarías a comprar un coche de esa compañia que tiene unos controles de seguridad más que dudosos?, yo por supuesto no lo haría.

Pues así con la programación lo mismo (calidad de software, compañias que contraten servicios web, etc, lo que tú quieras poner cómo ejemplo). Quizás exagero un poco, pero si esa "moda" se empieza a extender entre los distintos oficios y oficinas de todo el mundo ...al final acabariamos con productos mediocres, lamentables, y peligrosos en algunos casos.

Yo solo digo eso. Si a mi me pones unas asiáticas en una playa, te diría todo lo contrario.

Saludos!

1. La programación requiere completa concentración en lo que haces, hasta el zumbido de una mosca puede estropear ideas espontaneas que surgen durante el desarrollo, por ende, lo que cuentan en la imagen es más falso que una moneda de 10€, yo no me creo que mujeres tan provocativas y sexys cómo la de la última imagen, que solo por mirarla ya se te empalma hasta el día siguiente, pues no me creo que poner a chicas así desfilando en la oficina sea un método eficiente para aumentar la productividad de los empleados, sino más bien para todo lo contrario, ¿pero a quien quieren engañar?, y mucho menos si son chinos salidos, ¿salidos dije?, si, un tópico pero bien real ...ya que su sociedad parece estar "reprimida sexualmente" (aunque realmente yo no he ido a China para comprobarlo, pero todos lo hemos visto muchas veces en la TV/Documentales) así que tal vez todo eso de lucir mujeres con pechos grandes simplemente sea una excusa para saciar su sed de erotismo, para pasarlo bien y nada más, normal que digan que la idea es buena y demás (¿qué hombre diria lo contrario si le llenan su oficina de teens con escotes y minifaldas?), ya pueden inventar lo que quieran diciendo que ahora son más productivos... ja!.

2. No me estoy quejando, ya me gustaría a mi trabajar así (aunque poco iba a trabajar entonces) simplemente digo la verdad sobre algo que en la imagen pretenden transmitir como una idea prometedera y productiva, cuando es una simple excusa para seguir haciendo lo que hacen, una imagen con unos comentarios muy estúpidos y falsos. A ver quien iba a ser capaz de hacer un trabajo bien hecho con "animadoras" paseando el culo por su cara cada 5 minutos y haciendo grupitos para pegarse unos karaokes o tomarse unos chupitos con ellas, ¡en fin!,

3. Las feminazis tienen que estar muy, pero que muy contentas con esto... .

Saludos!

Fecha de modificación

hmmm, pues siento decepcionarte por el tiempo que hayas invertido buscando la solución, pero ahora que me doy cuenta creo que me equivoqué al recomendarte el RoboCopy, lo siento, pero al parecer RoboCopy no permite filtrar por fecha de modificación.

"minage" y "maxage" se refieren a la fecha de creación del archivo.
"minlad" y "maxlad' se refieren a la última marca de acceso al archivo.

No parece haber nada para la fecha de modificación.



Te mostraría algún ejemplo en puro Batch pero con las filtraciones de días y patrones de búsqueda y demás se hace ddemasiado tedioso (una pérdida de tiempo).

Lo mejor tal vez sería que utilizases otra herramienta, u otro lenguaje que no sea Batch, eso también sería una solución efectiva.

En VBS se puede enumerar los archivos del árbol y comparar por fechas, se puede hacer de manera sencilla, sin embargo, si es para algún tipo de backup importante sería preferible utilizar una herramienta especializada en lugar de desarrollar el algoritmo, ¿tienes algún inconveniente en utilizar XXCOPY?, este programa si que permite filtrar por modificación de archivo de una manera bastante sofisticada, este podría ser el comando:

Código [Seleccionar] Expandir

XXCOPY.exe "\\192.168.0.13\Audios\" "D:\Audioprueba\" /CK /CoPY /CR1 /ER /H /I /JV0 /K /NW /PD0 /PW0 /R /S /SC /TC /V /Y /DA#72H /X"*\*-1229*\*" "*\*-1230*\*" "*\*-1231*\*"
(las exclusiones no estoy seguro de si lo hice siguiendo la sintaxis correcta que indica el programa, tendrías que testearlo)

Este es el significado de cada parámetro que utilicé:

/CK        Checks remaining space before copy (default).
/CoPY      Copies files specified in the src specifier to the dst directory.
/CR<n>     Sets the retry period (n seconds, default = 3) on failed copy.
/ER        Emulates XCOPY's exit code (for ERRORLEVEL check in batch files).
/H         Copies hidden and/or system files also.
/I         If destination does not exist and copying more than one file, assumes that destination must be a directory (no prompting).
/JV0       Disables versioning by simply overwriting the existing file
/K         Keeps the source attributes including read-only (same as /KS).
/NW        Uses the new (Win32) wildcard matching scheme.
/PD0       Suppresses prompt before processing each directory.
/PW0       Disables Prompt with Dialog Window (default).
/R         Allows overwrite/delete of read-only files.
/S         Copies directories and subdirectories except empty ones.
/SC        Copies all security info when file is copied.
/TC        Copies all three types of timestamps.
/V         Verifies after copy; default.
/Y         Overwrites existing files without prompt.

/DA#<n>    Copies files that were changed on or after <n> days ago.
          Note: With /DA#<val> the parameter <val> will be treated as the number of Days unless it is appended with a
          one-letter suffix (D, H, M, or S which stand for Days, Hours, Minutes, or Seconds, respectively).  
          When <val> is given in the number of days, the exact time is midnight of the day.

/X<xspec>  Adds an exclusion specifier (xspec) (see below for exclusion).
<xspec>   Exclusion item for /X.
          . The text file may contain an arbitrary number of xspecs which are separated by space, tab, or newline characters.
          . An xspec with embedded spaces must be surrounded by a pair of double-quote characters(").

          Exclusion specifier (xspec) syntax:
          . You may use any number of wildcard characters (* or ?) anywhere in an exclusion specifier (Wild-Wildcard).
          . An xspec for directories must be followed by a backslash.
          . An xspec not followed by a backslash is for files.
          . The regular syntax (directorY_template\?*\*) be used.
          . A bare file template applies to all directories. E.g., *.mp3 is treated as *\*.mp3 (*\ is implicitly assumed).

PD: Si no lo usaste por que ves que es de pago entonces te lo puedo pasar sin problemas, lo tengo craqueado desde hace mucho (pero no lo uso para nah), mándame un mp si lo quieres.

Saludos