@ECHO OFF & CHCP 1252 1>NUL & REM Modifico el código de ágina al CP WINDOWS-1252.
 
REM by .:: Elektro H@cker ::.
REM para los usuarios de ElHacker.net
REM
REM Asegurarse de guardar este script en codificación ANSI, no UTF, no Unicode.
REM
 
:: # WMI Class Win32_LogicalDisk Help
::
:: Drivetype 2: Removable
:: Drivetype 3: Local hard disk
:: Drivetype 4: Network disk
::
:: For Syntax: wmic logicaldisk get caption^,drivetype ^| FIND "(DriveType)      "
 
REM Filtro el output del comando WMIC.
For /F %%# in (
	'wmic logicaldisk get caption^,drivetype ^| FIND "3      "'
) Do (
	REM Saco las letras de los dispositivos disponibles.
	Call Set "Drives=%%DRIVES%%%%#"
)
 
REM Elimino el caracter ":".
Set "Drives=%DRIVES::=%"
 
REM Pregunto al usuario.
Choice /C %DRIVES% /M "Elige una unidad:"
 
REM Seteo la posición inicial del Substring para sacar la letra elegida por el usuario.
Set /A "DriveIndex=%ERRORLEVEL% - 1"
 
REM Finálmente seteo la letra elegida por el usuario.
Call Set "Drive=%%DRIVES:~%DriveIndex%,1%%"
 
REM Retiro todos los atributos de los archivos y carpetas.
Attrib -a -r -s -h -i /D /S "%Drive%:\*"
 
REM Proceso todas las carpetas de la unidad para renombrar las que contienen el caracter (ALT+255)
REM La expresión "%Drive%:\* " no contiene un simple caracter de Espacio, usa el caracter ALT+255.
For /D /R %%# in ("%Drive%:\* ") Do (
	(
          Rename "%%~#" "Recovered_Files"
        ) || (
          Call Rename "%%~#" "Recovered_Files %%RANDOM%%"
        )
)
 
Pause&Exit

attrib -s -r -h %UNIDAD%:\*.* /s /d

CHCP 1252 1>NUL
Set "DIRECTORY=."
IF Exist "%DIRECTORY%\á" (Rename "%DIRECTORY%\á" "Recovered_Files")

                Dim stack As New Stack(Of Char)
                'Dim input As String = ")((()))("
                Dim input As String = "(Hello) ) ( (World)?"
 
                Dim opened As Integer = 0
                Dim closed As Integer = 0
 
                For Each ch As Char In input
 
                    If ch = "(" Then
                        stack.Push("#")
 
                    ElseIf ch = ")" Then
 
                        If stack.Count = 0 Then
                            opened += 1
                        Else
                            closed += 1
                            stack.Pop()
 
                        End If
 
                    End If
                Next ch
 
                opened = opened + stack.Count
 
                Console.WriteLine("Opened:{0} Closed:{1}", opened, closed)
                MsgBox(String.Format("Opened:{0} Closed:{1}", opened, closed))

  Private ReadOnly Property TotalAgrupations As Dictionary(Of String, Integer)
        Get
            Return Count_Agrupations_In_String(TextBox_RegEx.Text)
        End Get
    End Property
 
    ' MsgBox(TotalAgrupations("Opened"))
    ' MsgBox(TotalAgrupations("Closed"))
 
    Private Function Count_Agrupations_In_String(ByVal str As String) As Dictionary(Of String, Integer)
 
        Dim stack As New Stack(Of Char)
 
        Dim opened As Integer = 0
        Dim closed As Integer = 0
 
        For Each ch As Char In str
 
            If ch = "(" Then
                stack.Push("#")
 
            ElseIf ch = ")" Then
 
                If stack.Count = 0 Then
                    opened += 1
                Else
                    closed += 1
                    stack.Pop()
 
                End If
 
            End If
 
        Next ch
 
        Return New Dictionary(Of String, Integer) From { _
            {"Opened", opened + stack.Count}, _
            {"Closed", closed} _
        }
 
    End Function

#Region " Replace All Characters "
 
    ' [ Replace All Characters Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Replace_All_Characters("Hello World!", {"e"c, "o"c}, "+")) ' Result: H+ll+ W+rld!
 
    Public Function Replace_All_Characters(ByVal str As String, _
                                           ByVal chars As Char(), _
                                           replaceWith As Char) As String
 
        For Each c As Char In chars
            str = str.Replace(c, replaceWith)
        Next
 
        Return str
 
    End Function
 
#End Region

#Region " Replace All Characters Except "
 
    ' [ Replace All Characters Except Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Replace_All_Characters("Hello World!", "eo", ".")) ' Result: ".e..o..o...."
 
    Public Function Replace_All_Characters_Except(ByVal str As String, _
                                                  ByVal chars As String, _
                                                  replaceWith As Char) As String
 
        Dim temp_str As String = String.Empty
 
        For Each c As Char In str
            If Not chars.Contains(c) Then
                temp_str &= c
            Else
                temp_str &= replaceWith
            End If
        Next c
 
        Return temp_str
 
    End Function
 
#End Region

#Region " Remove All Characters Except "
 
    ' [ Remove All Characters Except Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Remove_All_Characters_Except("Hello World!", "eo".ToCharArray)) ' Result: "eoo"
 
    Public Function Remove_All_Characters_Except(ByVal str As String, _
                                              ByVal chars As Char()) As String
 
        Dim temp_str As String = String.Empty
 
        For Each c As Char In str
            For Each cc As Char In chars
                If c = cc Then temp_str &= cc
            Next cc
        Next c
 
        Return temp_str
 
    End Function
 
#End Region

MsgBox(RichTextBox1.Lines.Where(Function(Line) String.IsNullOrEmpty(Line)).Count)
 
MsgBox({"a", "", "", "b"}.Where(Function(value) String.IsNullOrEmpty(value)).Count)

#Region " Count Blank Lines "
 
    ' [ Count Blank Lines ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Count_Blank_Lines(RichTextBox1.Lines))
    ' MsgBox(Count_Blank_Lines({"A", "", "", "B"})) ' Result: 2
 
    Private Function Count_Blank_Lines(ByVal str As String()) As Integer
        Return str.Where(Function(X) String.IsNullOrEmpty(X)).Count
    End Function
 
#End Region

#Region " Count Non Blank Lines "
 
    ' [ Count non blank lines ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Count_Non_Blank_Lines(RichTextBox1.Lines))
    ' MsgBox(Count_Non_Blank_Lines({"A", "", "", "B"})) ' Result: 2
 
    Private Function Count_Non_Blank_Lines(ByVal str As String()) As Integer
        Return str.Where(Function(X) Not String.IsNullOrEmpty(X)).Count
    End Function
 
#End Region

#Region " Get non blank lines "
 
    ' [ Get non blank lines ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(String.Join(Environment.NewLine, Get_Non_Blank_Lines(RichTextBox1.Lines)))
    ' MsgBox(String.Join(Environment.NewLine, Get_Non_Blank_Lines({"A", "", "", "B"}))) ' Result: {"A", "B"}
 
    Private Function Get_Non_Blank_Lines(ByVal str As String()) As String()
        Return str.Where(Function(X) Not String.IsNullOrEmpty(X)).ToArray
    End Function
 
#End Region

    Private CheckBoxes() As CheckBox
    Private CheckIt As Boolean
 
    Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs) _
    Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, _
            CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
 
        CheckBoxes = Me.GroupBox1.Controls.OfType(Of CheckBox)().ToArray
 
        Select Case CheckBoxes.Where(Function(x) x.Checked).Count
            Case Is >= 2 : CheckIt = False
            Case Is < 2 : CheckIt = True
        End Select
 
        For Each ctrl As CheckBox In CheckBoxes.Where(Function(x) Not x.Checked)
            ctrl.Enabled = CheckIt
        Next
 
        CheckBoxes = Nothing
 
    End Sub

si Checkeds es igual o mayor que 2...
  Enable = false
si checkeds es menor que 2...
  Enable = true

 
private void CheckBoxes_CheckedChanged(object sender, EventArgs e)
{
	dynamic Controls = this.GroupBox1.Controls.OfType<CheckBox>();
	dynamic Checkeds = Controls.Where(x => x.Checked).Count;
	bool Enable = false;
 
	switch (Checkeds) {
		case  // ERROR: Case labels with binary operators are unsupported : GreaterThanOrEqual
2:
			Enable = false;
			break;
		case  // ERROR: Case labels with binary operators are unsupported : LessThan
2:
			Enable = true;
			break;
	}
 
	foreach (CheckBox ctrl in Controls.Where(x => !x.Checked)) {
		ctrl.Enabled = Enable;
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================