Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: MCKSys Argentina en 29 Marzo 2016, 16:12 PM
La subes a un sitio (por ej. http://s5.photobucket.com/) y luego colocas el link que te da entre tags [img] (usando el boton Insertar Imagen)
Sorry, you do not meet the criteria required by our Terms of Use. " o sea " 
y me pasa estando todo cerrado el visual y demás programas , ademas tengo configurado el inicio de windos solo con lo basico 
ListBox1.Items.Add("01 ,02 ,03")
ListBox1.Items.Add("03 ,04 ,05")
ListBox1.Items.Add("15 ,35 ,45")
ListBox1.Items.Add("15 ,35 ,55")
ListBox1.Items.Add("25 ,35 ,45")
ListBox1.Items.Add("45 ,55 ,65")
ListBox1.Items.Add("57, 58 ,59")
'//Elimina combinaciones correlativas
Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))
For Each Digito As String In ClearList
If CInt(Digito.Substring(4, 2)) = CInt(Digito.Substring(0, 2)) + 1 And
CInt(Digito.Substring(8, 2)) = CInt(Digito.Substring(4, 2)) + 1 Then
ListBox1.Items.Remove(Digito)
End If
Next Cita de: Lekim en 29 Marzo 2016, 03:31 AM
También valdría CInt, creo que mejor incluso ya que son números pequeños:Código (vbnet) [Seleccionar]ListBox1.Items.Add("1 ,2 ,3")
ListBox1.Items.Add("1 ,4 ,5")
ListBox1.Items.Add("1 ,3 ,4")
ListBox1.Items.Add("1 ,3 ,5")
ListBox1.Items.Add("2 ,3 ,4")
ListBox1.Items.Add("4 ,5 ,6")
ListBox1.Items.Add("6 ,7 ,8")
'//Elimina combinaciones correlativas
Dim ClearList As New List(Of String)
ClearList.AddRange(ListBox1.Items.OfType(Of String))
For Each Digito As String In ClearList
If CInt(Digito.Substring(3, 1)) = CInt(Digito.Substring(0, 1)) + 1 And
CInt(Digito.Substring(6, 1)) = CInt(Digito.Substring(3, 1)) + 1 Then
ListBox1.Items.Remove(Digito)
End If
Next
If CDbl(Digito.Substring(2, 1)) = CDbl(Digito.Substring(0, 1)) + 1 And
CDbl(Digito.Substring(4, 1)) = CDbl(Digito.Substring(2, 1)) + 1 Then usando mi visual 2010 y de pronto se sube a tope el gasto de memoria 98% sin haber tocado mas nada ,solo programando, he notado que esto pasa cada cierto tiempo de estar a 35 % de memoria se dispara a casi el 100% de gasto de memoria y se queda a si durante algún tiempo y de golpe regresa a lo normal unos 35 a 45 de % de gasto de memoria, y dentro de un rato a 45% ,ya resuelto el problema de los iguales ahora tengo otra incógnitaCita de: Eleкtro en 25 Marzo 2016, 21:56 PM
Bueno Luis... ya que necesitas ayuda con esos códigos que tienes mezclados a tu manera, que le vamos a hacer.
Teniendo un ListBox con los sigueintes items:
El supuesto resultado que creo que esperas obtener es el siguiente:
(Más te vale que sea así, por que no hay quien sea capaz de entender en que sentido son "iguales")
Pues, entonces, una forma sencillita de hacerlo seria implementando tu propio comparer para evaluar duplicados:Código (vbnet) [Seleccionar]Public NotInheritable Class CombinationComparer : Implements IEqualityComparer(Of String)
Public Shadows Function Equals(ByVal x As String, ByVal y As String) As Boolean _
Implements IEqualityComparer(Of String).Equals
' (temporalmente) Ordeno de forma ascendente los números de una cadena de texto delimitada por comas;
'
' e.g.:
' Una cadena de texto como "3, 1, 2" (con, o sin espacios en blanco),
' se transformaría en "1,2,3" (sin espacios en blanco).
x = String.Join(",", From value As String In x.Split({","c, " "c}, StringSplitOptions.RemoveEmptyEntries)
Order By value Ascending)
y = String.Join(",", From value As String In y.Split({","c, " "c}, StringSplitOptions.RemoveEmptyEntries)
Order By value Ascending)
#If DEBUG Then
Console.WriteLine(String.Format("x:{0}", x))
Console.WriteLine(String.Format("y:{0}", y))
Console.WriteLine()
#End If
Return (x = y)
End Function
Public Shadows Function GetHashCode(ByVal obj As String) As Integer _
Implements IEqualityComparer(Of String).GetHashCode
Return MyBase.GetHashCode()
End Function
End Class
Y lo emplearías de la siguiente manera:Código (vbnet) [Seleccionar]Dim items As String() = Me.ListBox1.Items.Cast(Of String)().ToArray()
items = items.Distinct(New CombinationComparer).ToArray()
With Me.ListBox1
.SuspendLayout()
.Items.Clear()
.Items.AddRange(items)
.ResumeLayout()
End With
( importante: no olvides de usar la extensión ".ToArray()" como en el ejemplo, para crear una copia de la colección de items del ListBox )
PD:
Si no es ese el resultado que esperas obtener, no te preocupes, te lo he puesto bien facilito al menos el 50% de la tarea, solo tienes que cojer el comparer de ejemplo y realizar las adaptaciones necesarias en la implementación del métobo base IEqualityComparer(Of String).Equals, en la variable "X" e "Y".
Saludos
Cita de: Eleкtro en 25 Marzo 2016, 21:11 PM
El mal llamado "Estilo Elektro" se denomina LINQ-to-Objects, es algo más expensivo que un FOR, pero más legible y manejable que un FOR.
Si le ofrezco soluciones basadas en LINQ, es por que supuestamente Luis en su día se puso a practicar con los 101 ejemplos de LINQ oficiales de la galería de código de Microsoft, por lo que está más acostumbrado a este estilo de sintaxis, lo cual, en mi opinión, le resultará de mucha utilidad, puesto que, lo bueno de LINQ, es su versatilidad con esa cantidad de útiles keywords disponibles para realizar típicas operaciones que nos tomarían más tiempo de escritura al traducirlas a un búcle For Range o For Each.
Saludos.
