Hola

Estás equivocado, todos los archivos (todos, no los 5 primeros) se escriben de forma ordenada en el archivo Playlist.tmp, pero añadiéndole un número aleatorio a la izquierda, de esta manera:


Luego la lista se ordena de menor a mayor según los números aleatorios, consiguiende así un shuffle, los nombres de la derecha quedan desordenados:


Y por último se eliminan los números, y se toman los primeros 5 archivos de la lista:


Nunca tendrán el mismo orden, ni serán siempre los mismos archivos.

PD: He vuelto a probar el código por si acaso, pero no, no llevas razón, nunca obtengo los mismos archivos.

Si le has hecho alguna modificación al código original deberías postearla para buscar y corregir el error.

Saludos!

A ver, tengo un pequeño lio mental con el método [Enum].Parse, en el cual, según nos cuenta el MSDN, se le puede pasar un parámetro de IgnoreCase:


Bien, esto en un principio para mi no tiene lógica alguna, teniendo en cuenta que en VB.NET no se puede escribir una enumeración con nombres duplicados de esta manera:

Private Enum Test
    A
    a
End Enum

Pero según he leido, en C# si que es totálmente válido ese tipo de Enums, y entonces esto ya comienza a tener algo de sentido.

El caso es que según me han comentado también sería posible compilar ese tipo de enumeraciones en VB.NET, pero no me han especificado de que manera se podría hacer,
Aunque yo no estoy nada interesado en crear una Enum con valores duplicados la verdad, pero si esto es así de cierto entonces podría significar que las Enums internas del Framework podrían contener nombres de valores "duplicados"?

...en VB.NET, supongamos que hemos escrito una función genérica para parsear un valor de una Enum:

Private Function Enum_Parser(Of T)(Value As Object) As T
 
    Try
        Return [Enum].Parse(GetType(T), Value, True)
 
    Catch ex As ArgumentException
        Throw New Exception("Value not found")
 
    Catch ex As Exception
        Throw New Exception(String.Format("{0}: {1}}", ex.Message, ex.StackTrace))
 
    End Try
 
End Function

La pregunta es, ¿existe algún riesgo de que la función devuelva un falso positivo?.

O en otras palabras, ¿alguna de las Enums del Framework contiene valores que se diferencian en el StringCase pudiendo dar así un falso positivo?

También me atrevería a preguntar porque alguien sería tan estúpido de poner nombres duplicados en una Enum... pero bueno, imagino que habrá razones válidas y quizás no serán tan estúpidas como pienso.

Mirando por Google puedes encontrar unpackers para DLC's de Steam de juegos específicos, pero ningún unpacker universal, así que imagino que para cada juego debe ser distinto, de todas formas, no lo sé.

Saludos!

Es una buena recomendación para todos!

No se si lo ha comentado alguien ya, pero también se puede ganar dinero por la cantidad de visitas de Youtube.

Saludos!

· Seleccionar items en un Listbox sin que el Listbox salte a la posición del nuevo item seleccionado.

#Region " [ListBox] Select item without jump "
 
    ' [ListBox] Select item without jump
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Select_Item_Without_Jump(ListBox1, 50, ListBoxItemSelected.Select)
    '
    ' For x As Integer = 0 To ListBox1.Items.Count - 1
    '    Select_Item_Without_Jump(ListBox1, x, ListBoxItemSelected.Select)
    ' Next
 
    Public Enum ListBoxItemSelected
        [Select] = 1
        [Unselect] = 0
    End Enum
 
    Public Shared Sub Select_Item_Without_Jump(lb As ListBox, index As Integer, selected As ListBoxItemSelected)
        Dim i As Integer = lb.TopIndex ' Store the selected item index
        lb.BeginUpdate() ' Disable drawing on control
        lb.SetSelected(index, selected) ' Select the item
        lb.TopIndex = i ' Jump to the previous selected item
        lb.EndUpdate() ' Eenable drawing
    End Sub
 
#End Region

---

· Desactivar/Activar el Dibujado (Drawing) en un control

#Region " Enable-Disable Drawing on Control"
 
    ' Enable-Disable Drawing on Control
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' To disable drawing:
    ' Control_Drawing(ListBox1, DrawingEnabled.Disable)
    '  
    ' To enable drawing:
    ' Control_Drawing(ListBox1, DrawingEnabled.Enable)
 
    <System.Runtime.InteropServices.DllImport("user32.dll", _
    EntryPoint:="LockWindowUpdate", SetLastError:=True, CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Public Shared Function LockWindow(Handle As IntPtr) As IntPtr
    End Function
 
    Private Enum DrawingEnabled
        Enable
        Disable
    End Enum
 
    Private Sub Control_Drawing(ByVal ctrl As Control, ByVal DrawingEnabled As DrawingEnabled)
 
        Select Case DrawingEnabled
 
            Case DrawingEnabled.Enable
                LockWindow(ctrl.Handle)
                LockWindow(IntPtr.Zero)
 
 
            Case DrawingEnabled.Disable
                LockWindow(ctrl.Handle)
 
        End Select
 
    End Sub
 
#End Region

-> Indian Programmers vs. American Programmers: Whose Code Is Best?

Los indios no son los mejores en todos los aspectos de la programación.

Saludos!

De acuerdo, está claro que tenemos gustos diferentes como consumidores del producto, pero no me puedes negar, desde cualquier punto de perspectiva, que añadir un botón de inicio sólamente para que el usuario pueda elegir LAS MISMAS opciones que ese usuario puede encontrar moviendo el ratón hacia una esquina del PC o pulsando una combinaciónd e teclas... como "nueva y esperada" caracteristica de Windows ...¿es una basura, o no lo es?, creo que no generalizo en ningún aspecto.

Yo de verdad no le encuentro ninguna lógica a que Microsoft no quiera satisfacer a sus consumidores con un clásico botón de inicio en Windows 8, Microsoft en su día puso como excusa que la mayoría de los usuarios no usaban el botón de inicio... y bueno, me imagino que algún topo infiltrado de Apple fue el que redactó esas estadísticas, porque de verdad, no tiene lógica alguna.

Y en mi opinión Microsoft ahora ha encontrado un punto debil del que se quiere aprovechar, de  la ignorancia de todos aquellos usuarios inexpertos que lean la noticia de que "el botón de inicio vuelve en Windows 8.1" como una táctica de marketing para vender más productos, pero cuando ese usuario vea que en realidad no es un botón de inicio lo que le han metido... pues se va a quedar con cara de tonto, y con 200 € menos en el bolsillo.

Saludos!

Para obtener la linea número 13 puedes usar este snippet de una función genérica que hice hace tiempo:

#Region " Read TextFile Line Function "
 
    ' [ Read TextFile Line Function ]
    '
    ' Examples :
    '
    ' MsgBox(Read_TextFile_Line("C:\File.txt", 1))
    ' Dim str As String = Read_TextFile_Line("C:\File.txt", 3)
 
    Private Function Read_TextFile_Line(ByVal File As String, ByVal Line_Number As Long) As String
 
        Dim Lines() As String = {String.Empty}
        Dim Line_Length As Long = 0
 
        Try
            Lines = IO.File.ReadAllLines(File)
            Line_Length = Lines.LongLength - 1
            Return Lines(Line_Number - 1)
 
        Catch ex As IO.FileNotFoundException
            MessageBox.Show(String.Format("File not found: ""{0}""", _
                                          File), _
                            Nothing, _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
 
        Catch ex As IndexOutOfRangeException
            MessageBox.Show(String.Format("Attempted to read line {0}, but ""{1}"" has {2} lines.", _
                                          Line_Number, _
                                          File, _
                                          Line_Length + 1), _
                            Nothing, _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
 
        Catch ex As Exception
            Throw New Exception(String.Format("{0}: {1}", _
                                              ex.Message, _
                                              ex.StackTrace))
 
        Finally
            Lines = Nothing
            Line_Length = Nothing
 
        End Try
 
        Return Nothing
 
    End Function
 
#End Region

Saludos!

Yo no se mucho sobre la estructura xml, xmnls, y esas variantes que existen, pero si no me equivoco al fin y al cabo todos son XML y se pueden leer las propiedades/atributos/nodos de la misma manera, repito, en caso de que no me esté equivocando, y en ese caso te puedes servir de las Classes de .NET para leer archivos XML.

De todas formas, por si las moscas, te enseño el modo de obtener el valor usando expresiones regulares:

    Sub Main()
 
        Dim str = <a><![CDATA[<param key="CATEGORY" fmt="utf8" max_len="4">SD</param>]]></a>.Value
 
        Dim Value As String = _
            System.Text.RegularExpressions.Regex.Match(str, "CATEGORY.+>(.*)<") _
            .Groups(1).Value
 
        Console.WriteLine(Value)
 
    End Sub

saludos!

La excepción segúramente es porque estás usando una "O" de Oviedo en lugar de un Cero  

PD: (ya estamos de nuevo usando los wrappers de las funciones de vb... (VAL) ¿no hay manera de cambiar eso he? xD)

---

dim MIN as integer = 0
dim MAX as integer = 100
 
Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TextBox7.TextChanged
 
  select case cint(sender.text)
 
    case not MIN to MAX:sender.text = cstr(MAX)
 
  end Select
 
End Sub  

el código lo he escrito al vuelo, si el número no está en el rango MIN-MAX entonces se escribe el valor MAX en el textbox, creo que es lo que querías hacer

fíjate lo facil que era

un saludo!