Mensajes

maemiah! 5 páginas de post? xD, ¿Quien es el listo que ha sobornado a los moderadores?

Cada vez escribiis comentarios más largos, de aquí ya puede salir un libro o una nueva versión de la biblia para la posteridad, como no... yo votaría como autor del libro a BinaryDeath por sus ideales

...Como decían los del anuncio de MediaMark... "Yo no soy tonto!", y si existe algo parecido a un Dios está claro que no quiere saber nada de nosotros, así que tontos son para mí aquellos que creen .

Saludos!

Prácticamente te lo he dado todo hecho sin que tengas que hacer ningún esfuerzo mayor,
solo tienes que colocar cada cosa en su sitio, lee un poco sobre el lenguaje para aprender lo básico, o espera la respuesta de algún otro compañero.

Saludos!

¿Puedes explicar mejor lo que intentas hacer?.

Además podrías aclarar esto otro:

. ¿Que lenguaje estás usando?

. ¿Bajo que versión de Framework trabajas?


De todas formas contesto a tu pregunta:

quiero saber como depositar lo que tiene el list box en variables

Código (vbnet) [Seleccionar] Expandir

ListBox1.Items.AddRange("1 2 3 4 5".Split(Convert.ToChar(Keys.Space)))

Dim Variable As String = _
String.Join(Environment.NewLine, ListBox1.Items.Cast(Of IEnumerable).ToList)

MsgBox(Variable)

Saludos

debería ser de un experto en threads, q sería una de las siguientes mejoras para la app q me podria dar problems

Cuesta un poquito de aprender su funcionamiento al principio pero desde luego no es necesario ser todo un experto en el lenguaje para manejarse con los hilos y el backgroundworker, ¿Y si posteas tus dudas en el foro .NET? para eso estamos allí ayudando a la gente!

Asi que ya se puede bajar de aqui tb
http://spidercoco.softonic.com/

Súbelo a SourceForge (si no lo has hehco todavía) es mucho más profesional, Softonic es muy conocido pero en fin tiene una mala fama de spam tanto en su web como en sus instaladores... y bien mala fama merecida, a mi personálmente me dan asco los sitios como ese, nunca descargaré algo de allí.

expresiones regulares

No me gusta tirarme flores a mi mismo pero lo cierto es que los RegEx y la manipulación de texto en general es una de las cosas más sencillas de llevar a cabo para mi, ya que por necesidad me toca practicarlo varias veces cada día,
quizás mi aplicación te pueda ayudar un poco para crear y/o testear tus expresiones regulares:



...Aunque todavía no está acabada, si te fijas bien le faltan unos detalles informativos xD, pero mañana o pasado mañana la compartiré ene l subforo de .NET.

PD: Si quieres el nombre de aplicaciones más profesionales te puedo decir (aunque también son mucho más complejas)... pero primero hago publicidad de mi propia app xD.

Saludos

[EDITO:]

¿Cómo adapto entonces eso siguiendo este código?[/size]

Código (dos) [Seleccionar] Expandir

@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

Saludos




EDITO:

Código [Seleccionar] Expandir

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

Eso no sé donde lo habrás visto pero es un fallo muy típico de todos los novatos,
tu intentas procesar carpetas y archivos pero ese patrón de búsqueda no procesa carpetas, pues solo procesará carpetas que contengan un punto "." en el nombre.

Lee sobre los asteriscos, las wildcards.

Saludos

¿cómo es que detecto ese caracter y cambio el nombre?[/size]

Código (dos) [Seleccionar] Expandir

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

-> Code Page Identifiers

Saludos

[Orbit downloader]

En resumen que el video además de la restricción regional también está protegido por el nuevo tipo de streams de youtube,
en ese caso JDownloader sólamente te será útil hasta que youtube vuelva a cambiar su sistema (lo hacen cada mes o así) y vuelva a jodernos a todos con ese tipo de videos "protegidos".

Mantén JD actualizado cada día, si un día ves que ya no te funciona lo de bajar videos protegidos de Youtube con JD, espera hasta que el JD-Team actualicen el plugin de Youtube.

PD: No busques otros programas milagrosos teniendo JD, los que hay están en la misma situación desde hace muchos meses ya, aunque una buena solución alternativa para descargar esos videos es Orbit downloader, pero como ya digo, el tema es el mismo.

Saludos!

[EDITO:]

Contar todas las agrupaciones en un string:

PD: Para quien no sepa, una agrupación empieza con el caracter "(" y acaba con el ")"

Código (vbnet) [Seleccionar] Expandir

               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))


EDITO:

Lo he modificado un poco para usarlo a mis necesidades:

Código (vbnet) [Seleccionar] Expandir

  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





Los siguientes códigos he testeado su velocidad de ejecución usando métodos distintos con LINQ, RegEx y For, ha ganado For y con mucha diferencia de ms así que aquí tienen:


Reemplaza (o elimina) todos los caracteres que indiquemos en un string

Código (vbnet) [Seleccionar] Expandir

#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





Reemplazar todos los caracteres en un string, menos los caracteres que indiquemos.

Código (vbnet) [Seleccionar] Expandir

#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





Eliminar todos los caracteres en un string, menos los caracteres que indiquemos.

El snippet de arriba se puede usar para esta misma función, pero traducido a milisegundos este código es más rápido.

Código (vbnet) [Seleccionar] Expandir

#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

[EDITO:]

Contar las líneas en blanco o valores vacios de un array usando LINQ:

Código (vbnet) [Seleccionar] Expandir

MsgBox(RichTextBox1.Lines.Where(Function(Line) String.IsNullOrEmpty(Line)).Count)

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


EDITO:

Unas funciones genéricas muy cortas:

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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

[NUEVA VERSIÓN DISPONIBLE]

NUEVA VERSIÓN DISPONIBLE

Versión 1.2

Cambios:

· Soporte para arrastrar y soltar una cantidad indefinida de archivos REG a la ventana principal.

· Algunos bugs de conversión corregidos.