none
Como sacar el contenido en una cadena RRS feed

  • Pregunta

  • Buenas a tos@s.

    Como puedo hacer para sacar el contenido de una cadena donde haya un * seguido de caracteres hasta un espacio.

    Es decir, si yo tengo la siguiente cadena: hola me llamo *pepe y estoy malo.

    ¿Como puedo sacar el *pepe?

    después del * puede ir cualquier carácter.

    1000 gracias.

    lunes, 14 de octubre de 2019 15:35

Respuestas

  • Hola Juan, prueba con Split

       Dim text As String = "*Ramon me llamo *Pepe ssdfs dfd dd d fdf d *Juan dlkjsdfj djlsd sdldjsdl *Pedro dsdfsf sdfsfs *Saul"
            Dim Buscar As String()
            Dim Separar As String()
            Dim Resultado As String = ""
            Buscar = Split(text, "*")
            For i As Integer = 1 To Buscar.Count - 1
                Separar = Split(Buscar(i), " ")
                Resultado += Separar(0) & " "
            Next
            MessageBox.Show(Resultado)

    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    • Propuesto como respuesta Pablo Rubio lunes, 14 de octubre de 2019 22:44
    • Marcado como respuesta Juan Martinez F martes, 15 de octubre de 2019 7:57
    lunes, 14 de octubre de 2019 16:04
  • También puedes usar expresiones regulares:

            Dim regex As Regex = New Regex("(?<=\b \*)(\w+)")
            Dim match As Match = regex.Match("hola me llamo *pepe y estoy malo.")
            If match.Success Then
                Console.WriteLine(match.Value)
            End If

    • Propuesto como respuesta Pablo Rubio lunes, 14 de octubre de 2019 22:44
    • Marcado como respuesta Juan Martinez F martes, 15 de octubre de 2019 7:56
    lunes, 14 de octubre de 2019 16:20

Todas las respuestas

  • Hola Juan, prueba con Split

       Dim text As String = "*Ramon me llamo *Pepe ssdfs dfd dd d fdf d *Juan dlkjsdfj djlsd sdldjsdl *Pedro dsdfsf sdfsfs *Saul"
            Dim Buscar As String()
            Dim Separar As String()
            Dim Resultado As String = ""
            Buscar = Split(text, "*")
            For i As Integer = 1 To Buscar.Count - 1
                Separar = Split(Buscar(i), " ")
                Resultado += Separar(0) & " "
            Next
            MessageBox.Show(Resultado)

    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    • Propuesto como respuesta Pablo Rubio lunes, 14 de octubre de 2019 22:44
    • Marcado como respuesta Juan Martinez F martes, 15 de octubre de 2019 7:57
    lunes, 14 de octubre de 2019 16:04
  • También puedes usar expresiones regulares:

            Dim regex As Regex = New Regex("(?<=\b \*)(\w+)")
            Dim match As Match = regex.Match("hola me llamo *pepe y estoy malo.")
            If match.Success Then
                Console.WriteLine(match.Value)
            End If

    • Propuesto como respuesta Pablo Rubio lunes, 14 de octubre de 2019 22:44
    • Marcado como respuesta Juan Martinez F martes, 15 de octubre de 2019 7:56
    lunes, 14 de octubre de 2019 16:20
  • Muchas gracias
    martes, 15 de octubre de 2019 7:57
  • Muchas gracias
    martes, 15 de octubre de 2019 7:57