 Autor
|
Tema: Nesecito eliminar registros negativos y cero (Leído 4,108 veces)
|
luis456
 Desconectado
Mensajes: 551
|
Otro de mis ligeros problemas tengo este codigo que me muestra : -2 -1 0 2 3 4 1 5 6 nesecito eliminar esto de los resultados, que no muestre o mejor elimine los numeros que tengan el signo negativo y el cero -2 -1 0 Dim Resultodo1 As IEnumerable(Of Integer) = ( From Value As Integer In (Result1.Concat(Result2)).Distinct Where (Value <= MAX)) ListBox1.Items.AddRange(Resultodo1.Cast(Of Object).ToArray)
Luis
|
|
|
|
« Última modificación: 14 Febrero 2015, 11:40 am por luis456 »
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
luis456
Desconectado
Mensajes: 551
|
M recorde de un codigo que me dio Elektro 'For Index As Integer = 0 To (Result1.Count - 1) Select Case Result1(Index) Case Is = 0 ' El valor es 0. ' Hacer algo con el número 0 aquí. ' Result1(Index) = Not 0 Case Is < 0 ' El valor es negativo. ' Lo convierto a positivo. Result1(Index) = Math.Abs(Result1(Index)) End Select '/ Result1(Index)
Funciona con los negativos pero no me elimina el 0 luis
|
|
|
|
« Última modificación: 11 Febrero 2015, 13:48 pm por Eleкtro »
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
Usuario Invitado
Desconectado
Mensajes: 625
|
- Recorrer lista o arreglo con un for.
- Dentro del for evaluar si el número actual es neutro o negativo.
- Si lo es, eliminar de la lista.
Si usas arrays es posible que no puedas eliminar una posición (realmente desconozco esto en VB.NET) como en otros lenguajes; si es así, puedes trabajar con un tipo de dato que te permita coleccionar objetos y eliminarlos también (se redimensiona automáticamente) como Listas.
Salu2.
|
|
|
|
|
En línea
|
"La vida es muy peligrosa. No por las personas que hacen el mal, si no por las que se sientan a ver lo que pasa." Albert Einstein |
|
|
nevachana
Desconectado
Mensajes: 61
|
Ahora mismo no me acuerno de nada de vb pero en c# yo lo haría asi ^^
foreach(string line in list)
{
if(int.parse(line)<=0)
{
list.remove(line);
}
}
No sé si está bien pero la idea es más o menos esa ^^
|
|
|
|
|
En línea
|
|
|
|
OscarCadenas_91
Desconectado
Mensajes: 27
|
hola, y si lo haces esta forma: Dim List As New List(Of String) For Each numeros As ListViewItem In ListView1.Items If CDbl(numeros.Text) > 0 Then List.Add(numeros.Text) End If Next ListView1.Items.Clear() For Each Data As String In List ListView1.Items.Add(Data) Next
|
|
|
|
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
 Conectado
Mensajes: 9.878
|
Joder Luis... ¿no se te ha ocurrido añadir una condición más a la query de LINQ?: ...Where (Value <= max AndAlso Value > 0) Dim values1 As IEnumerable(Of Integer) = {-2, -1, 0, 1, 2} Dim values2 As IEnumerable(Of Integer) = {-20, -10, 0, 10, 20} Dim max As Integer = 10 Dim result As IEnumerable(Of Integer) = (From Value As Integer In (values1.Concat(values2)).Distinct Where (Value <= max AndAlso Value > 0)) ListBox1.Items.AddRange(result.Cast(Of Object).ToArray)
PD ¿porque no aprendes en serio despues de tanto tiempo manejando VB.Net?, al menos lo básico ...como esto, saldrías de muchos apuros por ti mismo y eso te ayudaría a avanzar más rápido... Saludos! |
|
|
|
« Última modificación: 11 Febrero 2015, 13:47 pm por Eleкtro »
|
En línea
|
|
|
|
luis456
Desconectado
Mensajes: 551
|
Joder Luis... ¿no se te ha ocurrido añadir una condición más a la query de LINQ?: ...Where (Value <= max AndAlso Value > 0) Dim values1 As IEnumerable(Of Integer) = {-2, -1, 0, 1, 2} Dim values2 As IEnumerable(Of Integer) = {-20, -10, 0, 10, 20} Dim max As Integer = 10 Dim result As IEnumerable(Of Integer) = (From Value As Integer In (values1.Concat(values2)).Distinct Where (Value <= max AndAlso Value > 0)) ListBox1.Items.AddRange(result.Cast(Of Object).ToArray)
PD ¿porque no aprendes en serio despues de tanto tiempo manejando VB.Net?, al menos lo básico ...como esto, saldrías de muchos apuros por ti mismo y eso te ayudaría a avanzar más rápido... Saludos! Gracias Elektro recien lo pruebo. ya que estuve indispuesto por catarro y si me vale y cada dia aprendo un poco pero poco eee, Luis
|
|
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Eliminar registros repetidos dejando 1
Bases de Datos
|
Shell Root
|
2
|
3,500
|
20 Septiembre 2013, 05:11 am
por Shell Root
|
|
|
|
Eliminar y reemplazar registros en Array
.NET (C#, VB.NET, ASP)
|
luis456
|
3
|
3,865
|
15 Enero 2014, 20:40 pm
por Eleкtro
|
|
|
|
eliminar registros con ceros
.NET (C#, VB.NET, ASP)
|
luis456
|
5
|
3,860
|
12 Noviembre 2014, 12:35 pm
por luis456
|
|
|
|
eliminar filas valor cero
Programación Visual Basic
|
omarlext
|
1
|
2,112
|
17 Mayo 2015, 15:38 pm
por jefe1024
|
|
|
|
Eliminar numero negativos de una matriz ( sin librerías)
Programación C/C++
|
DamnSystem
|
5
|
4,473
|
14 Diciembre 2017, 14:30 pm
por Serapis
|
 |
