elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 ... 55
131  Programación / .NET (C#, VB.NET, ASP) / Aburrido harto de la publicidad a ver si se puede hacer esto en: 29 Octubre 2015, 17:35 pm
Hola de nuevo , hoy no vengo con numeros jejejje

me estoy haciendo un programita para ir blokeando las paginas basura que
me saltan de ves en cuando y pense que seria facil cojer un testbox una
variable y ya , la idea es blokear (ahora lo hago a mano ) las direcciones
de estas molestas paginas en el archivo Host .pero me encontre con otros
problemas y despues de mirar y remirar no veo como hacerlo.


Problema 1: escribir en el archivo sin sobreescribir lo ya puesto y que continue en el ultimo registro

problema 2: hay que poner 127.0.0.1 y un margen de tabulacion

problema 3: no se poner tampoco la ruta del archivo  "C:\WINDOWS\system32\drivers\etc\hosts"

problema 4: como este archivo es de sistema lo unico que lo habre es el notepad yo lo hago de esta manera con icono directo

C:\Windows\notepad.exe "C:\WINDOWS\system32\drivers\etc\hosts" por lo tanto no se me ocurre para que no salte el notepad


Formato
a si queda escrito el archivo pero no se como hacer para solo escribir la pagina en el testbox ,
esto es que deberia estar escrito siempre el 127.0.0.1 para solo poner la pagina mala jeje

la salida o el archivo Host debe de quedar asi

127.0.0.1       http//   es aliexpress  com
127.0.0.1       www p wntg2x  com
127.0.0.1       http  activities   aliexpress   com
127.0.0.1       http  n4uzz  super-promo  boundaryspot   biz /
127.0.0.1       http  qjozz    super-promo.boundaryspot biz

esto es lo que llevo hecho hasta el momento

Código
  1.  Imports System.IO
  2.  
  3. Public Class Form1
  4.     Private TextBoxes As TextBox() = {Nothing}
  5.     Private N1 As Int32()
  6.     Private Result1 As Int32()
  7.     Private _textBox As Object
  8.  
  9.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  10.         Get
  11.             Return _textBox
  12.         End Get
  13.         Set(ByVal value As Object)
  14.             _textBox = value
  15.         End Set
  16.     End Property
  17.     ReadOnly Property Num1 As Int32
  18.         Get
  19.             Return CInt(TextBox1.Text)
  20.         End Get
  21.     End Property
  22.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  23.  
  24.         Result1 = {Num1} _
  25.  
  26.         Dim rutaFichero As String
  27.         Dim i As Integer
  28.         rutaFichero = Path.Combine(Application.StartupPath, "hts.txt")
  29.         Dim fichero As New IO.StreamWriter(rutaFichero)
  30.         fichero.Close()
  31.     End Sub
  32.  
  33.     '--------------------------------
  34.     Private Sub PaginasBlokeadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaginasBlokeadasToolStripMenuItem.Click
  35.         Process.Start(Path.Combine(Application.StartupPath, "C:\WINDOWS\system32\drivers\etc\hosts"))
  36.     End Sub
  37.  
  38.     Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
  39.         If MessageBox.Show("Esta seguro que desea Cerrar ", "Cerrar Stop Spam ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
  40.  
  41.             Me.Close()
  42.  
  43.         End If
  44.     End Sub
  45. End Class

Saludos
Luis
132  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo con los numeros :) en: 17 Octubre 2015, 09:40 am
Probando pude hacer que lo haga pero no me sirve  :¬¬

este post lo doy  por cerrado


Luis
133  Programación / .NET (C#, VB.NET, ASP) / De nuevo con los numeros :) en: 16 Octubre 2015, 19:16 pm
Hola

Bien gracias a nuestro querido amigo Elektro (que jaleti soy  )   :silbar:

tengo este codigo o funcion que funciona bien.pero ahora se me ocurre que en ves de un solo digito con los que se combinan ahora lo quiero hacer de dos digitos .

Ahora es con estos

{0, 3, 4, 5, 8}

pero si pongo

{01, 13, 34, 55, 84}


No logro hacer lo mismo que con los digitos solos he modificado trasteado pero nada


Código
  1.  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.  
  3.         Dim valuesInt As IEnumerable(Of Integer) =
  4.             {0, 3, 4, 5, 8}
  5.         {01, 13, 34, 55, 84} <---------usar esto ????
  6.  
  7.         Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  8.             Form1.GetPairs(valuesInt, maxValue:=90)
  9.  
  10.         For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  11.  
  12.             '  ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  13.  
  14.         Next pair
  15.  
  16.  
  17.  
  18. Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
  19.                                     Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
  20.  
  21.         If (col.Max >= 10) Then
  22.             Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")
  23.  
  24.         Else
  25.  
  26.             Return From value As Integer In col
  27.                    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  28.                           key:=value,
  29.                           value:=From index As Integer In col
  30.                                  Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  31.                                  Select CInt(value & index))
  32.  
  33.  
  34.         End If


Luis
134  Programación / .NET (C#, VB.NET, ASP) / Re: Error en variable ??? en: 9 Octubre 2015, 15:41 pm
SOLUCIONADO   :silbar:


Código
  1.  
  2.  
  3. Public Class Form1
  4.  
  5.     Dim maxo As Integer = 7
  6.  
  7.     Dim valuesInta As IEnumerable(Of Integer)
  8.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  9.  
  10.         Dim valuesInt As IEnumerable(Of Integer) =
  11.             {0, 1, 2, 3, 4, 5, 6, 9}
  12.  
  13.         Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  14.             Form1.GetPairs(valuesInt, maxValue:=80)
  15.  
  16.         For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  17.  
  18.             ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  19.  
  20.         Next pair
  21.  
  22.         MsgBox(String.Join(", ", pairs(0).Value))
  23.         MsgBox(String.Join(", ", pairs(1).Value))
  24.         MsgBox(String.Join(", ", pairs(2).Value))
  25.         MsgBox(String.Join(", ", pairs(3).Value))
  26.  
  27.  
  28.         Dim M1 As IEnumerable(Of Integer) = pairs(0).Value.ToList
  29.         Dim juntos2 As List(Of Integer) = M1
  30.         juntos2.Sort()
  31.         'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
  32.  
  33.         Dim M2 As IEnumerable(Of Integer) = pairs(1).Value.ToList
  34.         Dim juntos3 As List(Of Integer) = M2
  35.         juntos3.Sort()
  36.  
  37.  
  38.         'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
  39.         Dim M3 As IEnumerable(Of Integer) = pairs(2).Value.ToList
  40.         Dim juntos4 As List(Of Integer) = M3
  41.         juntos4.Sort()
  42.  
  43.         Dim M4 As IEnumerable(Of Integer) = pairs(3).Value.ToList
  44.         Dim juntos5 As List(Of Integer) = M4
  45.         juntos5.Sort()
  46.  
  47.         Dim cols As IEnumerable(Of IEnumerable(Of String)) =
  48.        From col As IEnumerable(Of Integer) In {juntos2, juntos3, juntos4, juntos5}.Distinct.ToList Where (col.Count() = maxo)
  49.       Group By String.Join("", col).AsEnumerable
  50.         Into Group
  51.       Select From value As Integer In Group.First.Distinct
  52.              Select value.ToString(format:="0#")
  53.  
  54.         ListBox2.Items.AddRange((From col As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray)
  55.  
  56.         MsgBox(cols.Count)
  57.  
  58.  
  59.  
  60.  
  61.  
  62.     End Sub
  63.  
  64.     Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
  65.                                     Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
  66.  
  67.         If (col.Max >= 10) Then
  68.             Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")
  69.  
  70.         Else
  71.  
  72.             Return From value As Integer In col
  73.                    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  74.                           key:=value,
  75.                           value:=From index As Integer In col
  76.                                  Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  77.                                  Select CInt(value & index))
  78.  
  79.  
  80.         End If
  81.  
  82.  
  83.  
  84.  
  85.     End Function
  86.  
  87.  
  88. End Class


Luis
135  Programación / .NET (C#, VB.NET, ASP) / Error en variable ??? en: 9 Octubre 2015, 10:41 am
Estoy trabajno este codigo y me da error en cols y no descubro el porque ? ya que lo declaro ??

Error   2   'cols' no está declarado. Puede que esté inaccesible debido a su nivel de protección.


 
Código
  1. Public Class Form1
  2.  
  3.     Dim maxo As Integer = 7
  4.  
  5.     Dim valuesInta As IEnumerable(Of Integer)
  6.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.  
  8.         Dim valuesInt As IEnumerable(Of Integer) =
  9.             {0, 1, 2, 3, 4, 5, 6, 9}
  10.  
  11.         Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  12.             Form1.GetPairs(valuesInt, maxValue:=80)
  13.  
  14.         For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  15.  
  16.             ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  17.  
  18.         Next pair
  19.  
  20.         MsgBox(String.Join(", ", pairs(0).Value))
  21.         MsgBox(String.Join(", ", pairs(1).Value))
  22.         MsgBox(String.Join(", ", pairs(2).Value))
  23.         MsgBox(String.Join(", ", pairs(3).Value))
  24.  
  25.  
  26.         Dim M1 As IEnumerable(Of Integer) = pairs(0).Value.ToList
  27.         Dim juntos2 As List(Of Integer) = M1
  28.         juntos2.Sort()
  29.         Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
  30.  
  31.         Dim M2 As IEnumerable(Of Integer) = pairs(1).Value.ToList
  32.         Dim juntos3 As List(Of Integer) = M2
  33.         juntos3.Sort()
  34.  
  35.  
  36.         'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
  37.         Dim M3 As IEnumerable(Of Integer) = pairs(2).Value.ToList
  38.         Dim juntos4 As List(Of Integer) = M3
  39.         juntos4.Sort()
  40.  
  41.         Dim M4 As IEnumerable(Of Integer) = pairs(3).Value.ToList
  42.         Dim juntos5 As List(Of Integer) = M4
  43.         juntos5.Sort()
  44.  
  45.     End Sub
  46.  
  47.     Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
  48.                                     Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
  49.  
  50.         If (col.Max >= 10) Then
  51.             Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")
  52.  
  53.         Else
  54.  
  55.             Return From value As Integer In col
  56.                    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  57.                           key:=value,
  58.                           value:=From index As Integer In col
  59.                                  Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  60.                                  Select CInt(value & index))
  61.  
  62.  
  63.         End If
  64.  
  65.  
  66.  
  67.  
  68.     End Function
  69.  
  70.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  71.  
  72.          Dim cols As IEnumerable(Of IEnumerable(Of String)) =
  73.       From col As IEnumerable(Of Integer) In {juntos2, juntos3, juntos4, juntos5}.Distinct.ToList Where (col.Count() = maxo)
  74.          Group By String.Join("", col).AsEnumerable
  75.         Into(Group)
  76.         Select From value As Integer In Group.First.Distinct
  77.              Select value.ToString(format:="0#")
  78.  
  79.         Me.ListBox2.Items.AddRange((From cols As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray) [color=red]<-----ACA ME DA EL ERROR[/color]
  80.  
  81.         ' MsgBox(cols.Count)
  82.     End Sub
  83. End Class

se supone que ya lo declaro y en otro codigo si me funciona bien

luis
136  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo con los filtros en: 8 Octubre 2015, 16:35 pm
Creo a si van los tiros  :silbar:


Código
  1. Dim M1 As IEnumerable(Of Integer) = pairs(1).Value.ToList
  2.         Dim juntos2 As List(Of Integer) = M1
  3.         juntos2.Sort()
  4.         Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)  


Ya listo

Luis
137  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo con los filtros en: 7 Octubre 2015, 15:08 pm
Cita de: Eleкtro en  7 Octubre 2015, 14:47 pm
Lo tienes perfecto tal y como está, es más productivo así.

Creo que solo necesitas un ejemplo de cómo usar el índice (no deberías necesitar un ejemplo a estas alturasss), como el siguiente, por que yo no le veo ninguna dificultad de accesibilidad adicional entre hacer esto:
Código
  1. ' Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = ...
  2. MsgBox(String.Join(", ", pairs(0).Value))

...o hacer esto otro:
Código
  1. ' Dim col As IEnumerable(Of IEnumerable(Of Integer)) = ...
  2. MsgBox(String.Join(", ", col(0)))

Para hacer lo segundo, cosa que repito ...es innecesario, pero bueno, tendrías que modificar el tipo de objeto que maneja la función, para devolver un IEnumerable(Of IEnumerable(Of Integer)) claro está...

Saludos!

Hola
bien es que la idea de tener cada key o valor dentro de una variable es por ejemplo pongamos el 0 :

Key: 0    Values: 1, 2, 4, 5, 6, 7, 8

nesecitaria dado el caso hacer combinaciones  con la clave o key 2

key 2     values:  20, 21, 24, 25, 26, 27, 28

ejemplo
si los concateno key 0 + key 2 = 1, 2, 4, 5, 6, 7, 8 ,20, 21, 24, 25, 26, 27, 28


No nesecito que esten todos los numeros en una variable, si no cada grupo en su respectiva
variable para yo poder hacer calculos con cada una o entre ellas  :)


Luis
138  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo con los filtros en: 7 Octubre 2015, 13:58 pm
Bueno sigo con mis enredos aunque ya esta resuelta la pregunta ahora me encuentro en otra dimension desconocida jejej se como se convierten ya las variables pero no de este tipo


codigo

Código
  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.  
  3.         Dim valuesInt As IEnumerable(Of Integer) =
  4.             {0, 1, 2, 4, 6, 7, 8}
  5.  
  6.         Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  7.             Form1.GetPairs(valuesInt, maxValue:=80)
  8.  
  9.         For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  10.  
  11.             ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  12.  
  13.         Next pair
  14.  
  15.     End Sub
  16.  
  17.     Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
  18.                                     Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
  19.  
  20.         If (col.Max >= 10) Then
  21.             Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.")
  22.  
  23.         Else
  24.  
  25.             Return From value As Integer In col
  26.                    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  27.                           key:=value,
  28.                           value:=From index As Integer In Enumerable.Range(1, 9)
  29.                                  Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  30.                                  Select CInt(value & index))
  31.         End If
  32.  
  33.     End Function
  34.  
  35. End Class


esto entrega estos resultados y quiero pasarlos a unas variables normalitas jejje

Key: 0    Values: 1, 2, 4, 5, 6, 7, 8
Key: 1    Values: 10, 12, 14, 15, 16, 17, 18
Key: 2    Values: 20, 21, 24, 25, 26, 27, 28
Key: 4    Values: 40, 41, 42, 45, 46, 47, 48
Key: 5    Values: 50, 51, 52, 54, 56, 57, 58
Key: 6    Values: 60, 61, 62, 64, 65, 67, 68
Key: 7    Values: 70, 71, 72, 74, 75, 76, 78
Key: 8    Values: 80, 81, 82, 84, 85, 86, 87


 como puedo meter en cada variable los valores de cada key
ejemplo
variable 0 = 1, 2, 4, 5, 6, 7, 8
variable 1= 10, 12, 14, 15, 16, 17, 18
variable 2= 20, 21, 24, 25, 26, 27, 28


Luis
139  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo con los filtros en: 4 Octubre 2015, 21:57 pm
Cita de: Eleкtro en  4 Octubre 2015, 14:59 pm
Retomando la función que te mostré aquí:
http://foro.elhacker.net/net/formar_pares_de_numeros-t442316.0.html;msg2041620#msg2041620

Le puedes añadir un parámetro opcional para limitar el valor máximo que se debe devolver.

Código
  1. Public Class Form1
  2.  
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.         Dim [color=yellow]valuesInt[/color] As IEnumerable(Of Integer) =
  6.             {0, 1, 4, 6, 2, 8, 7}
  7.  
  8.         Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  9.             Form1.GetPairs(valuesInt, maxValue:=50)
  10.  
  11.         For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  12.  
  13.             ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  14.  
  15.         Next pair
  16.  
  17.     End Sub
  18.  
  19.     Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
  20.                                     Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
  21.  
  22.         If (col.Max >= 10) Then
  23.             Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.")
  24.  
  25.         Else
  26.  
  27.             Return From value As Integer In col
  28.                    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  29.                           key:=value,
  30.                           value:=From index As Integer In Enumerable[color=red].Range(1, 9)[/color]
  31.                                  Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  32.                                  Select CInt(value & index))
  33.         End If
  34.  
  35.     End Function
  36.  
  37. End Class

Saludos


Hola Elektro

No te habia respondido porque me quede dormido jejej ,bien tengo el siguiente problema con esto, ya en el anterior lo habia resuelto pero en este no se, como sabes los numeros de la variable valuesIn no mantienen la misma cantidad de numeros en cada ejecucion y estos varian. en donde esta lo de Range(1, 9) aunque en la variable haya menos numeros me toma como que si hubieran los 9 siempre


Como siempre gracias

Luis


edicto jejej creo lo resolvi pero corrigeme si estoy pelado

Código
  1.  
  2.             Return From value As Integer In col
  3.                    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  4.                           key:=value,
  5.                           value:=From index As Integer In col
  6.                                  Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  7.                                  Select CInt(value & index))













140  Programación / .NET (C#, VB.NET, ASP) / De nuevo con los filtros en: 4 Octubre 2015, 12:33 pm
Hola

Recien resolvi o mejor dicho me resolvieron unas dudas gracias a como siempre elektro jejej ahora vengo de nuevo con algo que lo mejor es una bobera pero ya me volvi loco buscando la solucion

Explico

tengo este codigo

Código
  1. Public Class Form1
  2.  
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         Dim valuesInt As IEnumerable(Of Integer) =
  5.     {0, 1, 4, 6, 2, 8, 7}
  6.  
  7.         Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  8.             From value As Integer In valuesInt
  9.             Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  10.                    key:=value,
  11.                    value:=From index As Integer In valuesInt
  12.                           Where index <> Integer.Parse(CStr(value).Last)
  13.                           Select CInt(value & index))
  14.  
  15.         For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  16.  
  17.             ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  18.  
  19.         Next pair
  20.     End Sub
  21. End Class


lo que no puedo hacer una limitacion de los resultados o sea que si los numeros muestran del 01 al 89 y yo quiera mostrar solo desde el 01 al 50 ,no se ya que tampoco he logrado pasar estos resultados a otra variable que yo pueda o conosca manejar ya que con "pair.Key " no tengo ide de como manejar esto .


Luis
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines