Función Split VB.NET

[R3Z]

Hola  como estan mi gente


tengo una pregunta   sobre esta funcion quiero sacer la primera palabra de texto

ejemplo : hola como estas  la primera palabra de ese texto seria "hola"

este es mi codigo

Código (vbnet) [Seleccionar] Expandir

texbox1.Text = H.Split(" ").First

solo tengo una duda como hago  que si le doy doble espacio me sale la primera palabra

Código (vbnet) [Seleccionar] Expandir

un ejemplo espacio hola como estas que me salga "hola"

[El Benjo]

Hola. No sé si soy yo o si no se entiende tu pregunta. ¿Podrías formularla de forma distinta? No se entiende donde tienes el doble espacio. Si lo que buscas es eliminar los espacios en blanco al inicio entones usa LTrim() para eliminar espacios en blanco al inicio de la cadena.

[R3Z]

tengo un textbox  con un boton


en ese boton tengo el lo siguiente

Código (vbnet) [Seleccionar] Expandir


lblprimerpalabra=textbox.text.split(" ").first


solo me encuentra la primera palabra si le doy  espacio

yo quiero que cuando le doy a la tecla espacio primero y pongo la frase "hola como estas" que me salga en lblprimerpalabra = hola

como me explico que si no es una palabra que no me la presenta en el textbox de lblprimerpalabra

Código (vbnet) [Seleccionar] Expandir

"Hola     Juan" (Hay 5 espacios)
"Hola","","","","","","Juan" Entonces hay habrian 2 palabras y descontaría cada "" que encuentre.

[Eleкtro]

Cuesta bastante entender lo que pretendes hacer en realidad...

Si lo que quieres es eliminar espacios al principio o al final del String, entonces utiliza la función String.TrimStart o String.TrimEnd respectivamente.

Si tu intención es crear un array a partir de un string, y evitar que hayan elementos en blanco/vacíos, entonces utiliza el overload de la función String.Split que sirve precisamente para ese propósito:

Código (vbnet) [Seleccionar] Expandir

Dim words As String() = "Hola     Juan".Split({" "c}, StringSplitOptions.RemoveEmptyEntries)

El array solamente contendrá "palabras", cero elementos vacíos (espacios en blanco), por lo que puedes hacer este tipo de evaluación de forma segura:

Código (vbnet) [Seleccionar] Expandir

If (words.Any) Then
   lblprimerpalabra.txt = words.First

Else
   ' El array no contiene elementos.

End If

Saludos

[R3Z]

Código (vbnet) [Seleccionar] Expandir


Dim f As Integer

       For Each Palabra As String In txtOración.Text.Split(" ")
           If Not Palabra = "" Then
               f= f + 1
           End If
       Next
       lblCantPalabras.Text = Z

como hago esta funcion para encontrar la primera palabra


textbox1.text.split(" ").first  esta  funcion me encuentra la palabra despues del espacio yo lo que quiero es cuando yo le multiple espacio que me sace la primera palabra que puse  ej:"" "" "" "" "" hola como estas  lblprimer=hola

[Eleкtro]

como hago esta funcion para encontrar la primera palabra

textbox1.text.split(" ").first  esta  funcion me encuentra la palabra despues del espacio

VUELVO A REPETIR:

Si tu intención es crear un array a partir de un string, y evitar que hayan elementos en blanco/vacíos, entonces utiliza el overload de la función String.Split que sirve precisamente para ese propósito:

Código (vbnet) [Seleccionar] Expandir

Dim words As String() = "Hola     Juan".Split({" "c}, StringSplitOptions.RemoveEmptyEntries)

...

Código (vbnet) [Seleccionar] Expandir

lblprimerpalabra.txt = words.First
...

Despues, para contar la cantidad de elementos del array puedes utilizar la propiedad Count, o seguir utilizando el For Each de tu ejemplo, pero sin la necesidad de evaluar elmentos vacíos.

Saludos.

[crack81]

Mira este ejemplo use un form y un boton, encuentra la primera palabra haya no espacio anteriormente

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim palabras As String

        palabras = "    HOla mundo *****"

        For Each palabra As String In palabras.Split(" ")

            If Not String.Compare(palabra, " ") Then
                MessageBox.Show(palabra)
                Exit For
            End If
        Next

    End Sub
End Class

[R3Z]

ahora si gracias crack





Gracias a todos lo que dieron su aporte