Tuesday, August 08, 2006

Buscar Palabra Especifica en un String

Aqui pongo un codigo que devuelve una palabra segun el número que le pasemos a la función, teniendo en cuenta los espacios:

Private Function Search(ByVal x As Integer) As String ´

'Busca palabras entre los espacios'

Dim con As Integer = 0

Dim texto As String = ""

Dim pos1, pos2 As Integer

Dim i As Integer = 0

While i <= c.Length

If Not i = c.Length Then

If c.Chars(i) = " " Then con += 1

If con = x - 1 Then

pos1 = i

End If

If con = x Then

pos2 = i

Exit While

End If

End If

Else pos2 = c.Length - 1

Exit While

End If

i += 1

End While

For i = pos1 To pos2 Step 1

texto = texto & c.Chars(i)

Next

Return texto

End Function

Este algoritmo toma la cadena de una variable declarada previamente, pero facilmente "c" puede ser un string pasado a la funcion

No comments: