Mensajes

[Hey... pssst pssst...]

Esto no es un chiste textual pero me ha hecho mucha gracia xDDD

(Fox): Hey... pssst pssst...

[todos]

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:

Código [Seleccionar] Expandir

70341602815107;C:\archivo1
48242686216352;C:\archivo2
65562921929452;C:\archivo3
240062826615990;C:\archivo4
11032263219974;C:\archivo5
etc...

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:

Código [Seleccionar] Expandir

11032263219974;C:\archivo5
240062826615990;C:\archivo4
48242686216352;C:\archivo2
65562921929452;C:\archivo3
70341602815107;C:\archivo1
etc...

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

Código [Seleccionar] Expandir

C:\archivo5
C:\archivo4
C:\archivo2
C:\archivo3
C:\archivo1

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!

[[Enum].Parse]

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:

Parse(Type, String, Boolean)

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:

Código (vbnet) [Seleccionar] Expandir

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:

Código (vbnet) [Seleccionar] Expandir


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.

[de juegos específicos]

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!

[yo no lo recomiendo para nada.]

(...) freelancer.com yo no lo recomiendo para nada.  (...)

Si quieres buscar algo puedes visitar los enlaces (...) http://foro.elhacker.net/dudas_generales/cual_es_la_mejor_forma_de_ganar_dinero_en_internet_en_la_actualidad-t394849.15.html

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.

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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!

[LAS MISMAS]

Me encanta el criterio de " no me gusta a mi y generalizo y digo que es una ***** " . Llevo un par de años (casi 3) con Windows 8 y cada vez que tengo que usar el menu de Windows 7 me parece mucho peor. Y en Windows 8.1 las mejoras son sustanciales.

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:

Código (vbnet) [Seleccionar] Expandir

#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:

Código (vbnet) [Seleccionar] Expandir

   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!