Hola chicos
bueno suelo estar por net jejej saludos a Elektro buen profe..medio programo ya que a veces npi de lo que hago.

Bien al tema quiero hacer un buscador que trabaje por mi aunque este durmiendo la idea basica es crear un programita que segun le ponga las meta palabras este busque en la red y si encuentra me envie a un email los datos. solo quiero una orientacion o por donde tengo que empezar .si es posible para hacerlo en visual net me defiendo bien con este lenguaje gracias a mi amigo elektro pero ni modo si es en otro método

saludos
Luis

Me gustaría saber que opinión tenéis sobre este personaje ? 

luis

No se si me estoy volviendo senil o que ?   pero creia que seria facil ,pero por mas que busco en el foro o en san google no doy con la respuesta   poner desde una variable a un listbox si se hacerlo pero al contrario no

Como C,, paso los registros de un listbox a una variable integer ?

los registros van de esta forma o se muestran en listbox de esta manera y son en cantidad que van desde 10 al infinito de combinaciones de ese estilo

01 02 03
02 05 08
04 08 09
01 22 25

necesito meterlos en una variable integer para poder después trabajar con ellos


Luis

Hola de nuevo

Bien sigo con mis rollos sobre combinatorias  me cuesta jejeje

Bueno tengo este codigo

Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
        Dim EleX As Integer = 0
        Dim EleX2 As Integer = 0
        ListBox1.Items.Clear() 'Limpia el ListBox
        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
            For I2 As Integer = EleX To Elementos.Count - 1
                For I3 As Integer = EleX To Elementos.Count - 1
                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
                    End If
 
                Next
            Next
        Next
        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count) 

esto me entrega los siguientes resultados (pongo solo algunos ya que son 55)


01 03 04
01 03 05
01 03 08
01 03 13 ********* 03 y 13
01 04 34 *********04  y 34
03 05 08
03 05 13 *********03 y 13

lo que quiero es eliminar los que tengan la misma terminación ejemplo los que marco con asterisco llevan dos números donde son iguales la terminación.

Con linq: ya lo tengo Hecho pero necesito saber como hacerlo con este método

ejemplo en Liq: por si le sirve a alguien ( Funciona )

 

Dim Bz986 As IEnumerable(Of Integer) =
(
From Value As Integer In split(12).Concat(split(15).Concat(split(16)))
Where (Value <= MAX AndAlso Value > 0)).Distinct
 
         Dim selectedValues11 As IEnumerable(Of Integer) =
          From value As Integer In Bz909
          Group By CStr(value).Last Into Group
         Select Group.First()
         Take(16())
        Dim Sl986 As IEnumerable(Of Integer) = Bz986
        Dim SM986 As List(Of Integer) = Bz986.Take(16).ToList
        SM986.Sort() 

Luis

 Bien no soy tonto jejej como el la publi esa mala de los que venden pc de segunda categoria, los medios tontos creo que se llama  

Bueno no en serio .tengo un Pc windos 7, cuatro gigas de memoria rand y un tera de disco
esta casi full jejje mucha (porno) jejje no programación ,bueno el caso es que estoy currando de lo mas normal, face + face  ,  No en serio   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,

Bien que he hecho antes que lo digan
entro al administrador de tareas veo lo que esta y todo Ok (ningún nombre estraño )

reinicio paso a F8 ya sabéis modo seguro y le paso una cantidad de antivirus y antiadwares conocidos, nada de nada solo algunos viejos conocidos troyanos (eliminados)

archivo host bloqueando una enorme base de datos de paginas spamer (el que lo quiera que me lo pida )

entro a msd miro la integridad de los archivos de sistema todo Ok

antivirus al dia ( claro el gratis de windos jejje )

regreso a windose normal desconecto la red ya el % de memoria a 45% espero un rato y otra ves a 98% y dentro de un rato a 45%


ALGUNA IDEA ????

No quiero darle el gusto de formatear  

Luis




 

Sigo con mis eternos rollos de los listbox   ,ya resuelto el problema de los iguales ahora tengo otra incógnita

si tengo un listbox con estos registros


1 2 3 *********correlativos
1 4 5
1 3 4
1 3 5
2 3 4*********correlativo
4 5 6 ********correlativo
6 7 8 ********correlativo

Y quiero eliminar los números correlativos como lo puedo hacer ya he visto 100 ejemplos de linq jejje pero solo son para bases de datos

luis

Tengo un listbox que tiene registros de esta forma

20, 24, 34
20, 24, 44
20, 24, 45
20, 34, 24
20, 34, 44
20, 45 ,24

necesito ordenarlos para saber cuantas lineas son iguales y haci poder eliminar duplicados explico:

si ordenamos los números de arriba estos quedarían así

ordenados vemos que se repiten
20, 24, 34
20, 24, 44
20, 24, 45****
20, 24, 34****
20, 34 ,45
20, 24, 45 ***

tengo este  código pero lo ordena de menor a mayor

 Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        ListBox1.Sorted = True
        ListBox1.Sorted = False
        Dim i As Integer
        Dim count = ListBox1.Items.Count
        For i = ListBox1.Items.Count - 1 To 0 Step -1
            ListBox1.Items.Add(ListBox1.Items(i))
        Next
        For i = 0 To count - 1
            ListBox1.Items.RemoveAt(ListBox1.SelectedItem)
        Next
    End Sub 

 alguna sugerencia o ejemplos que pueda conseguir

Luis

Esto no acaba nunca

Esto ya funciona pero me repite las combinaciones y necesito números o combinaciones únicas ya que  1, 2, 3 es lo mismo que  3, 2, 1 o  2, 1, 3... solo debe quedar uno de ellos
he probado con poner " .Distinct().ToArray " pero como siempre

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 37}
 
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
 
        For Each pairs As String In pairsCol
 
 
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
                ' MsgBox(pairs.Count)
                ' MsgBox(line.Count)
 
                Me.ListBox1.Items.Add(line)
            Next line
 
        Next pairs
 
 
    End Sub 

salida

20, 24, 34***
20, 24, 37
20, 34, 24***
20, 34, 37
20, 37, 24
20, 37, 34****
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20***
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24****
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24

si os dais cuenta las combinaciones se repiten pero con el orden de los numeros cambiados como podria dejar solo una de ellas ???

Luis


 

Hola ya de nuevo por acá con mis números raros para combinar, esto también le puede servir a quien le guste sacar o crear claves de logins y cosas por el estilo  

Bien aunque he logrado modificar algunas cosas de este código me gustaría saber como funciona,  ahora combina una cadena de números de dos en dos y ahora busco combinar la cantidad que sea o de tres o de cuatro o mas combinaciones bajo el mismo concepto que tiene ahora

 Dim intCol As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 24, 35, 44, 49 ,55 ,77 ,88}
 
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value2 As Integer In intCol
                               Where (value2 <> value1)
                               Select String.Format("{0:00}, {1:00}", value1, value2)))
 
        For Each pairs As String In pairsCol
            Console.WriteLine(pairs)
            Console.WriteLine("------")
            MessageBox.Show(pairs)
 
        Next
    End Sub 

Luis

 

Hola estoy creando este codigo para combinar numeros de dos en dos pero me sale un error que no habia visto antes

" No se puede inferir el tipo de 'k' porque los límites del bucle y la cláusula step no se convierten en el mismo tipo "

Public Class Form1
 
 
 
    Dim NumElementos As IEnumerable(Of Integer) =
            {0, 3, 4, 5, 8}
        {01, 13, 34, 55, 84}
 
 
    Sub Combinaciones()
 
        For k = 2 To NumElementos
 
            i = i + 1
 
            For j = k To NumElementos
 
 
            Next j
 
        Next k
 
    End Sub
 
End Class 

Luis