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 Temas
Páginas: [1] 2 3 4 5 6 7 8 9
1  Foros Generales / Foro Libre / Así venden la Independencia en Cataluña en: 30 Agosto 2017, 13:01
Hola

Supongo que algunos recordaréis la consulta del  9N de 2014. Pues los independentistas  se dedicaron en plan "testigo de jehová" a repartir trípticos, folletos a domicilio que yo escanee con la idea de colgarlo en Internet pero por pereza al final no lo hice.

Con motivo del próximo 1-0 (1 de Octubre) cuelgo dicho folleto que muestra la forma desde mi punto de vista engañosa de conseguir votos por el SÍ.

Se repartió a modo de encuesta, pero en realidad es pura propaganda haciendo una serie de afirmaciones positivas con el fin de ganar votantes a favor.

Nótese el "SíoSí", si señor, eso si que es derecho a decidir.  :xD



Tamaño
1144 x 800 píxeles





Tamaño
1144 x 800 píxeles




Me llama la atención concretamente esta:
Código:
Si Cataluña fuera un estado tendría entre 8000 y 16000 millones de euros más
¿Cómo piensa que se debería gastar?
Me pregunto de donde sacan este dato y como van a saber tal cosa. Eso es imposible de saber.  

Otra afirmación más falsa que un billete del molopoli:
Código:
Cataluña forma parte de la UE desde 1986 y paga más de lo que recibe. Si es un estado independiente, cumple todos los criterios
para seguir siendo miembro de la UE. ¿Qué le parece más importante de la relación Cataluña-Europa?


Esta otra afirmación no me lo acabo de creer. Además hay que fijarse que no es realmente una afirmación pues no se confirma ni se desmiente simplemente lo deja caer como una posibilidad afirmativa pues según dice "los principales partidos que impulsan la consulta lo reclaman" pero no aclara ni que si ni que no.
Código:
Los principales partidos que impulsan la consulta reclaman que, en el nuevo país, el castellano sea oficial, además del catalán.
¿Qué opina?

Hay que tener en cuenta también que este folleto lo recibí  en una zona de Cataluña donde el porcentaje de castellano-hablantes es grande. Ignoro si sólo se repartió en esta zona, en otros barrios de castellano-hablantes o en toda Cataluña.


Saludos
2  Foros Generales / Foro Libre / No querer actualizar tu móvil te convierte en Ludita en: 19 Junio 2017, 16:50
Quería comentar esto en otro hilo, ya que surgió, pero por no desviar el tema abro este otro.

Resulta que yo no estoy en contra de usar la tecnología pero sí  a la constante actualización a la que estamos sometidos y  a como el sistema te obliga a usar una determinada tecnología que quizás, simplemente no quieras usar (o pagar).

Por ejemplo mi móvil es un trasto, pero puedo llamar por teléfono y recibir llamadas que para eso se supone que es, puedo hacer fotos e incluso tiene linterna, no es táctil. Os comento además que no uso twitter ni whatsapp, ni Facebook. Pues ahora descubro que algunas empresas obligan a sus trabajadores a tener whatsapp incluso de sus propios móviles y que empresas de ETT ahora prefieren usar este medio para informar y contactar con sus trabajadores temporales.  

Pues oye, la gente ya se pone las manos en la cabeza o saca una meda sonrisa cuando digo que no tengo watshapp, y al final si se da el caso se ponen en contacto conmigo por teléfono (voz), sms o correo electrónico.

También está el caso de buscar trabajo por Internet, que envíes el CV en PDF o DOC, que tengas que firmar contratos electrónicamente. Si no tienes ordenador o no tiene ni idea de como usarlo, por la razón que sea pues te las ves negra. Al final la gente ha tenido que ir adaptándose, comprarse un ordenador, una tablet o un iPhone, conectarse a Internet, quisiera o no porque el sistema nos obliga de algún modo.


Si algo funciona como un ordenador, televisor o un móvil, no veo porque tenemos que deshacernos de él porque a las X semanas, año y varios años a salido algo "mejor". Que tienes una super TV de tubo cuadrada y anda resulta que el amigo o el vecino se ha comprado una panorámica tu dices venga va, pues me compro una nueva, y al poco sale , de plasma o LCD, luego  que si 3D que si curvada, etc. Siempre creando cosas nuevas para vender, y OBLIGARNOS a comprar lo nuevo, generando toneladas y toneladas de basura cada año.

Veo niños con móviles de 200 o 400 €, sí, no vaya a ser que sea menos que sus compañeros y se rían de él. Mi hijo tiene que tener uno bueno ¿estamos locos o qué?

Yo de esto no soy partidario en absoluto. En este caso si me considero Ludita.

3  Foros Generales / Foro Libre / Debemos abandonar la Tierra en cien años (Stephen Hawking) en: 7 Mayo 2017, 11:02
Citar
05/05/2017 14:50 | Actualizado a 05/05/2017 15:53
Stephen Hawking: “Debemos abandonar la Tierra en cien años”

No es nuevo que el físico teórico Stephen Hawking advierta de que la especie humana un día deberá abandonar la Tierra para buscarse otro planeta para vivir. ¿Las razones? Siempre ha defendido que el ser humano va acabar con su propio planeta, y lo hará vía una guerra nuclear, el calentamiento global o una epidemia mundial... Tampoco descarta que sea el impacto de un gran asteroide el que nos acabe dando la puntilla. Pero ahora el científico británico ha ido más alá y ha puesto fecha a sus vaticinios. Esgrime que si no abandonamos el planeta en unos cien años estaremos condenados a la extinción.

Hawking hace esta advertencia en un nuevo documental llamado Expedition New Earth , que forma parte de la nueva temporada de la serie científica Tomorrow’s Worldque emite la BBC. Según la información que recogen medios británicos, el físico asegura que “el tiempo se agota para la Tierra” y que el ser humano no tendrá más remedio que enfrentarse a una catástrofe muy similar a la que extinguió, hace algo más de 60 millones de años, a los dinosaurios.

Stephen Hawking vaticina que a la Tierra no le queda mucho
Stephen Hawking vaticina que a la Tierra no le queda mucho (Ammar Abd Rabbo / ABACA / GTRES)
Los vaticinios de Hawking pueden sonar a ciencia ficción, pero él está convencido de lo que dice. En su nuevo documental se centra en descubrir si los humanos serán capaces de alcanzar las estrellas y cómo podrán hacerlo.

[La Vanguardia]

http://www.lavanguardia.com/vida/20170505/422305374889/stephen-hawking-debemos-abandonar-tierra-cien-anos.html





Citar
ABC.es Madrid04/05/2017 11:35h - Actualizado: 04/05/2017 17:50h. Guardado en: Ciencia
El físico teórico Stephen Hawking ha advertido numerosas veces de que la humanidad está obligada a abandonar la Tierra y colonizar otros mundos antes de que se autodestruya a consecuencia del mal empleo de los avances científicos y tecnológicos, como son la guerra nuclear, el calentamiento global y los virus producidos por la manipulación genética. Pero si en el pasado hablaba de mil años de margen, ahora el científico ha reducido (y mucho) el plazo para emprender el viaje más grande jamás realizado. A su juicio, o abandonamos el planeta en apenas cien años o estamos condenados a la extinción, según recogen distintos medios británicos.

El astrofísico hace esta llamada en un nuevo documental llamado «Expedition New Earth» (Expedición Nueva Tierra), que forma parte de la nueva temporada de la serie científica Tomorrow’s World (El mundo del mañana) que emite la BBC. En él afirmará que el tiempo se agota para la Tierra y que la humanidad terminará por enfrentarse sin remedio a alguna gran catástrofe, ya sea el cambio climático, el impacto de un gran asteroide, una epidemia global o la sobrepoblación.

Hawking respalda el ambicioso proyecto de exploración espacial con minisondas «Disparo Estelar» (Starshot), que pretende alcanzar el sistema estelar más cercano al nuestro, Alfa Centauri, a 4,37 años luz, en tan solo dos décadas.

La iniciativa, cuya finalidad última es buscar vida fuera de la Tierra, está impulsada por un grupo de empresarios multimillonarios, entre ellos el filántropo ruso Yuri Milner y el fundador de Facebook, Mark Zuckerberg. «Para sobrevivir como especie, a la larga debemos viajar hacia las estrellas, y hoy nos comprometemos con el próximo gran avance del hombre en el cosmos», dijo Hawking durante la presentación del proyecto en Nueva York.
[ABC]
http://www.abc.es/ciencia/abci-stephen-hawking-debemos-abandonar-tierra-cien-anos-201705041135_noticia.html


Buscando una nueva Tierra
https://www.youtube.com/watch?v=jgO3mkXupZ4
(Nota:no es el vídeo de Hawking de la BBC, solo ilustrativo )




Mucha gente con la que he hablado piensan o interpretan el alarmista titular difundido por los medios como  que hay que abandonar la Tierra en los próximos 100 años o nos extinguiremos pero que  detrás hay un afán de sensacionalismo periodístico para dar esa interpretación.

Me cuesta mucho creer que alguien como Stephen Hawking  se ponga a hacer vaticinios catastrofistas y en tan corto plazo. Claro es muy posible que ocurran catástrofes en los próximos 100 años como una guerra nuclear o terrorismo con uso de armas de destrucción masiva, superpoblación combinado con escasez de recursos, guerra energética, y más cosas. Pero sea lo que sea, no nos extinguiríamos en solo 100 años, a no ser que caiga un super-meteorito en la Tierra que acabara esto en cuestión de años. Así que  Hawing no va por esos lares.
(ver video)
https://www.usatoday.com/story/tech/nation-now/2017/05/04/stephen-hawking-test-his-theory-humans-must-leave-earth-lets-hope-hes-wrong/310545001/



4  Informática / Multimedia / Cambiar aspecto video Premiere CS5 en: 11 Abril 2017, 11:53
Quiero editar un vídeo pero no consigo cambiar el tamaño del fotograma en CS5. No lo he usado antes, acabo de empezar.

He  importado un vídeo y luego he creado nueva secuencia.

Propiedades de secuencia
Código:
1280 x 720
184371, 25,00 fps
48000 Hz - Estéreo



He probado de crear nuevas secuencias, seleccionar en el Modo de Edición el modo Esritorio y luego he cambiado el tamaño y cambia el cuadro pero la imagen sigue igual.

El vídeo se supone es panorámico pero su formato es 4:3 (cuadrado). Lo que quiero es poder modificar el tamaño hasta que se vea panorámico es decir poder estirar la imagen horzontalmente y si es necesario verticalmente hasta que se vea panorámico y se adapte al un cuadro panorámico.


También le he dado a Escalar a tamaño de fotograma y se adapta al cuadro pero solo a la parte superior e inferior pero no a los laterales derecho e izquierdo. De modo que la imagen se ve algo aplastada todavía



A ver si alguien me puede echar una mano, gracias de antemano

5  Foros Generales / Foro Libre / El calor o La calor en el habla castellana en: 26 Marzo 2017, 12:33
Tengo esa duda, si es correcto decir 'el calor' o 'la calor', o ambas son correctas.

He buscado en Google y he me quedo igual, con la duda.

Según www.diccionariodedudas.com es correcto decir 'el calor' pero no es correcto decir 'la calor' debido a un problema de concordancia. De igual forma que no dirías "la valor", sino "el valor", se debería decir "el calor".

En el lenguaje culto del castellano, prefiere decirse 'el calor'

https://www.diccionariodedudas.com/la-calor-o-el-calor/

Pero según Castellano Actual sería correcto ambas posibilidades.

http://udep.edu.pe/castellanoactual/duda-resuelta-la-calor-o-el-calor/


¿y esto por qué?
Si en tu página web o programa debes escribir  el/la calor ¿Qué pondrías?
6  Foros Generales / Foro Libre / Las mujeres en la informática en: 14 Enero 2017, 11:52
Si has tenido la suerte de estudiar en algún centro de informática, instituto o Universidad seguramente en tu clase había 3 mujeres por 20 hombres.  

¿Por qué tan pocas mujeres se dedican a la informática o programación? Personalmente yo creo que es por influencia de los medios de comunicación, especialmente el cine.  El estereotipo de que los informáticos o programadores son tipos raros con gafas, asociales, con camisa de cuadros, empollones y  encerrados todo el día en su habitación, jugando a videojuegos, hackeando, o lo que sea...  Aunque este estereotipo es más de los 80, en los 90  pintaba más así:

(Hackers 1995)

Y ahora llevan ropa deportiva, el pelo guay y tienen ese punto misterioso y molote:







y también el royo así como intelectual con gafas, enclenque, blancucho y superdotado(de arriba)


Por lo general siguen siendo raros, son niñatos imberbes, con ropa oscura, colecciona muñecos de manga o tiene algún fetiche extraño, tiene posters de videojuegos en las paredes, y el tema de su ordenador es oscuro o negro, con dibujos de fondo como para dar miedo https://images8.alphacoders.com/693/693176.jpg y muchas letritas a lo Matrix.

Lo curioso es que esto genera una especie de efecto imitación o reflejo hasta el punto que hay gente joven que empieza informática y la programación y copian este el estilo de lo que se considera que es un hacker informático o un genio de los ordenadores para socialmente ser identificado como tal dentro del gremio o de cara a los demás.

Pondré un ejemplo. Imagina que vas en un autobús, en verano y ves a un tipo de unos 25 años, sin gafas y físicamente parecido a Arndold Schwarzenegger, con tejanos y una camiseta blanca muy ceñida, ni se te ocurre pensar que pudiera ser un genio de la informática, un programador, o un hacker informático.  Pero si ves a un tipo así pues ya te lo piensas:




¿Pero que pasa con las mujeres? Como decía esta idealización y asociación de la informática con este estereotipo creo que aleja a las mujeres de este mundillo, y además la lesbiación de la chica "hacker".





(kate Libby - Piratas informáticos (Hackers) interpretado por Angelina Julie)
Creo que no era lesbiana, aunque lo parecía....

La imagen de chica rara, con el pelo corto, negro y/o lesbiana.




Mujeres en informática
7  Foros Generales / Foro Libre / Curso ocupacional de páginas Web ¿timo? en: 8 Enero 2017, 17:37
He recibido una carta del servicio ocupacional para realizar un curso, ya que estoy en paro,  que consiste en la confección y publicación de páginas web, obviamente no basado en programación, seguramente se use algún tipo de programa conocido para este fin.

Se menciona en la carta que  hay prácticas en  empresa.

Como ya he realizado timo cursos ocupacionales con anterioridad tengo dudas de si esto sirve realmente para algo. Uno de ellos era de logística por parte de una empresa municipal y consistía en un tipo sentado en una silla dictando las páginas de un libro para que lo escribiéramos en una libreta, libro que podía encontrar en la biblioteca de mi ciudad. Así un día tras otro y finalmente el certificado de haber realizado el curso. A saber qué dinero recibieron como subvención por parte del estado para realizar este curso y lo que gastaron, obviamente sólo en el sueldo del profesor que se limitaba a dictar las páginas del libro.

Por otro lado qué empresa contrata a alguien solo por haber hecho este curso. Además sin discapacidad. Porque hablamos de un trabajo sedentario de alguien sentado en una silla. Trabajo perfecto para alguien sin movilidad, por ejemplo. y que al menos pueda usar las manos. Yo tengo perfecta movilidad, así que no se.

¿Vale la pena hacer el curso? ¿O es una gilipollez?


Tengo que mencionar que a pesar que tengo conocimientos de programación, jamás he trabajado ni he estudiado en el campo de la programación o la informática.



8  Programación / .NET / ListView con salto de línea /multilinea en: 11 Diciembre 2016, 14:37
hola, me gustaría saber si se puede introducir ítems en un Listbox de modo que se vean verticales

del modo normal sería

12345678
45664555
78999999

Pero yo quiero hacerlo así

1 4 7
2 5 8
3 6 9
4 6 9
5 4 9
6 5 9
7 5 9
8 5 9



Si hago esto por ejemplo...
Código
  1.  
  2.        Dim Num() As String = {"1", "2", "3", "4"}
  3.        Dim strLinea As String = Nothing
  4.        strLinea = String.Join(Environment.NewLine, Num).Trim
  5.        ListBox1.Items.Add(strLinea)
  6.        Label1.Text= strLinea
  7.  

 el Label1 muestra correctamente:
Código:
1
2
3
4

Mientras que un Listbox o un ListView lo mostraría así
Código:
1234

El ListBox aunque lo mostrara como el label pondría uno debajo del otro. Con un Listview podría ponerlo en cada columna, pero también lo pone horizontal.

Lo he hecho con un FlowLayoutPanel1 Panel,  y añado Labels de forma automática pero no es lo que busco. Además que me ocupa mucho código y es tedioso de hacer.

¿Alguna idea?

Gracias



Acebo de darme cuenta que además con Panel, no puedo hacer multiselección
9  Programación / Programación General / Código simple para hacer La Quiniela (VBScript,VB, VB.Net, C#) en: 10 Diciembre 2016, 15:43
Hola amigos

Comparto aquí un sencillísimo código para hacer La Quiniela. Se trata de un código que genera variaciones de la quiniela de forma aleatoria. Es lo mismo que esos artilugios con daditos 1, X, 2  que venden en estancos, librerías o quioscos.



Es una versión virtual de los dados. El programita muestra una ventana como esta:




Para usuarios sin conocimientos de programación
Tan sólo necesitas el Bloc de Notas de Windows:

- Abre el Bloc de Notas (notepad.exe)

- Copia y pega el siguiente código VBSCRIPT

   
Código:
        Dim var(14)
Dim Rand
Dim Partido
        Dim P15(2)
Randomize
For Partido = 1 To 14
Rand = CStr(Int(Rnd * 3))
Rand = Replace(Rand, "1", "X")
Rand = Replace(Rand, "0", "1")

var(Partido) = _
"Partido " _
& Right("00" & Partido, 2) _
& ":..... " _
& Rand
Next
   For Partido = 1 To 2
       Rand = CStr(Int(Rnd * 4))
         P15(Partido) = Replace(Rand, "3", "M")
        Next

     MsgBox Join(var, vbCrLf) _
& vbCrLf & vbCrLf _
       & "[P15]" & vbCrLf _
& "Equipo A:  " & P15(1) _
& vbCrLf _
& "Equipo B:  " & P15(2), _
vbOKOnly, _
"Mi Quiniela"

-   Guarda con extensión *.VBS, por ejemplo miquiniela.vbs, haces doble clic sobre el archivo y ya tienes tu apuesta columna.

 Si has hecho alguna vez la quiniela sabrás que una apuesta consta de dos columnas. Este programa solo genera una columna por motivos estéticos. Para generar otra vuelve a hacer doble clic sobre el archivo VBS y generará otra distinta.

Existen 4782969 columnas posibles, así que es difícil que vuelva a salir otra idéntica.

Si deseas que genere las dos columnas usa este otro código:

   
Código:
        Dim var(14)
Dim Rand1
Dim Rand2
Dim Partido
        Dim P15(2)
Randomize
For Partido = 1 To 14
Rand1 = CStr(Int(Rnd * 3))
Rand1 = Replace(Rand1, "1", "X")
Rand1 = Replace(Rand1, "0", "1")
Rand2 = CStr(Int(Rnd * 3))
Rand2 = Replace(Rand2, "1", "X")
Rand2 = Replace(Rand2, "0", "1")
var(Partido) = _
"Partido " _
& Right("00" & Partido , 2) _
& ":..... " _
& Rand1 & vbTab _
& Right("00" & Partido , 2) _
& ":..... " & Rand2

Next
   For Partido = 1 To 2
       Rand = CStr(Int(Rnd * 4))
         P15(Partido) = Replace(Rand, "3", "M")
        Next

     MsgBox Join(var, vbCrLf) _
& vbCrLf & vbCrLf _
       & "[P15]" & vbCrLf _
& "Equipo A:  " & P15(1) _
& vbCrLf _
& "Equipo B:  " & P15(2), _
vbOKOnly, _
"Mi Quiniela"

Ejemplo de como se verá:





PARA VISUAL STUDIO
Aquí lo dejo en otros lenguajes de programación:

VB
 
Código
  1. Dim var(14) As String, P15(2) As String
  2. Dim Rand As String
  3. Dim Partido As Integer
  4.        Randomize
  5.        For Partido = 1 To 14
  6.            Rand = CStr(Int(Rnd * 3))
  7.            Rand = Replace(Rand, "1", "X")
  8.            Rand = Replace(Rand, "0", "1")
  9.            var(Partido) = "Partido " & Right("00" & Partido, 2) _
  10.            & ":..... " & Rand
  11.       Next
  12.        For Partido = 1 To 2
  13.        Rand = CStr(Int(Rnd * 4))
  14.        P15(Partido) = Replace(Rand, "3", "M")
  15.        Next
  16.      MsgBox Join(var, vbCrLf) & vbCrLf & vbCrLf & _
  17.      "[P15]" & vbCrLf _
  18.      & "Equipo A:  " _
  19.      & P15(1) & vbCrLf _
  20.      & "Equipo B:  " _
  21.      & P15(2), , vbOKOnly, "Mi Quiniela"
  22.  


VB.NET (Consola)

      
Código
  1.  
  2.        Dim Signo() As String = {"1", "X", "2"}
  3.        Dim P15(2) As String, Var(14) As String
  4.        Dim Rand As New Random
  5.        For Partido As Integer = 1 To 14
  6.            Var(Partido) = String.Format("Partido {0:00}:..... {1}",
  7.                                         Partido, Signo(Rand.Next(0, 3)))
  8.        Next
  9.        For Partido As Integer = 1 To 2
  10.            P15(Partido) = (CStr(Rand.Next(0, 4)).Replace("3", "M"))
  11.        Next
  12.  
  13.        Console.WriteLine(String.Format("{0}{1}{1}[P15]{1}Equipo A:  {2}{1}Equipo B:  {3}",
  14.                                      String.Join(Environment.NewLine, Var),
  15.                        Environment.NewLine,
  16.                        P15(1),
  17.                        P15(2)))
  18.        Console.ReadLine()
  19.  

NET C# (Consola)
     
Código
  1.            string[] Signo = { "1", "X", "2" };
  2.            string[] P15 = new string[3];
  3.            string[] Var = new string[15];
  4.            Random Rand = new Random();
  5.            for (int Partido = 1; Partido <= 14; Partido++)
  6.            {
  7.                Var.SetValue(string.Format("Partido {0:00}:..... {1}", Partido, Signo[Rand.Next
  8.  
  9. (0, 3)]), Partido);
  10.            }
  11.            for (int Partido = 1; Partido <= 2; Partido++)
  12.            {
  13.                P15.SetValue(Convert.ToString(Rand.Next(0, 4)).Replace("3", "M"), Partido);
  14.            }
  15.  
  16.           Console.WriteLine(string.Format("{0}{1}{1}[P15]{1}Equipo A:  {2}{1}Equipo B:  {3}",
  17.                string.Join(Environment.NewLine, Var),
  18.                Environment.NewLine, P15[1], P15[2]));
  19.           Console.ReadLine();
  20.  
  21.  

Citar
Advierto que es puramente aleatorio , este programa no hace milagros  :xD. Está pensado especialmente para personas que no sepan programar y quieran hacer la quinela  al azar, como con los dados, pero usando el ordenador.

Pues nada, suerte y que toque  :D



Personalmente considero que las Loterías y Apuestas del Estados son invento para recaudar dinero y quitárselo a los pobres.
10  Programación / .NET / Obtener el índice de un elemento obtenido con Split en: 7 Diciembre 2016, 20:41
Quiero obtener el índice de un elemento obtenido con Split utilizando IndexOf pero no lo consigo.

Si hago esto:

Código
  1. Dim P As String() = {"[Primero]", "a", "b", "c", "[Segundo]"}
  2.        MessageBox.Show(CStr(P.ToList.IndexOf("[Segundo]")))

Me devuelve el índice correctamente.


Si hago esto otro:
Código
  1. Dim P As New List(Of String)
  2.        P.AddRange({"[Primero]", "a", "b", "c", "[Segundo]"})
  3.        MessageBox.Show(CStr(P.IndexOf("[Segundo]")))

También me devuelve el índice correctamente

Sin embargo con un array obtenido con Split no funciona, me devuelve -1.


Código
  1.  
  2.  
  3. Dim Texto As String =
  4.               "[Primero]" & Environment.NewLine &
  5.               "a" & Environment.NewLine &
  6.               "b" & Environment.NewLine &
  7.               "c" & Environment.NewLine &
  8.               "[Segundo]"
  9.  
  10.        Dim P As New List(Of String)
  11.        P.AddRange((Texto.ToString.Trim.Split(CChar(Environment.NewLine))))
  12.  
  13.        MessageBox.Show(CStr(P.IndexOf("[Segundo]")))
  14.        MessageBox.Show(CStr(P(4)))


No acabo de entender porqué si al llamarlo con P(4), si que me devuelve el valor. O sea que el elemento está en la lista P, sin embargo no me devuelve el índice.

Gracias



Conseguí hacerlo:

Código
  1.        Dim Texto As String =
  2.               "[Primero]" & Environment.NewLine &
  3.               "a" & Environment.NewLine &
  4.               "b" & Environment.NewLine &
  5.               "c" & Environment.NewLine &
  6.               "[Segundo]"
  7.  
  8.        Dim spl() As String = Texto.Split(CChar(Environment.NewLine))
  9.        Dim Lista As New List(Of String)
  10.        For Each Item As String In spl
  11.                Lista.Add(Item.Trim)
  12.        Next
  13.  
  14.        MessageBox.Show(Lista.IndexOf("[Segundo]").ToString)

Pero sigo si entender porque no puedo obtenerlo directamente como puse antes o usando directamente el array String:

Código
  1. Dim spl() As String = Texto.Split(CChar(Environment.NewLine))
  2.        MessageBox.Show(spl.ToList.IndexOf("[Segundo]").ToString)

Parece que Split devuelve los valores con espacios, de ahí que haya añadido Trim, para eliminar los caracteres de espacio.

Si lo pusiera así:

Código
  1.  
  2. ...
  3. For Each Item As String In spl
  4.            Lista.Add(Item)
  5.        Next
  6.        MessageBox.Show(Lista.IndexOf("[Segundo]").ToString)
  7.  
me devolvería -1 nuevamente.



Encontré otra solución para quien le sirva. Consiste en reemplazar el espacio de cada elemento, sin necesidad de crear otro array

Código
  1.         Dim Texto As String =
  2.             "[Primero]" & Environment.NewLine &
  3.             "a" & Environment.NewLine &
  4.             "b" & Environment.NewLine &
  5.             "c" & Environment.NewLine &
  6.             "[Segundo]"
  7.  
  8.        Dim spl() As String = Texto.Split(CChar(Environment.NewLine))
  9.        For Index As Integer = 0 To spl.Count - 1
  10.            spl(Index) = spl(Index).Trim
  11.        Next
  12.        MessageBox.Show(spl.ToList.IndexOf("[Segundo]").ToString)


Lo suyo sería poder hacerlo todo en la misma línea, en esta:
Código
  1. Dim spl() As String = Texto.Split(CChar(Environment.NewLine))



Vale, pues este sería otro modo más reducido. Usando  Regex
Código
  1.        Dim Texto As String =
  2.             "[Primero]" & Environment.NewLine &
  3.             "a" & Environment.NewLine &
  4.             "b" & Environment.NewLine &
  5.             "c" & Environment.NewLine &
  6.             "[Segundo]"
  7.        Dim spl() As String = System.Text.RegularExpressions.Regex.Split(Texto, Environment.NewLine)
  8.        MessageBox.Show(spl.ToList.IndexOf("[Segundo]").ToString)




Páginas: [1] 2 3 4 5 6 7 8 9
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines