Hola amigos.. Necesito que me ayuden por favor! se los agradeceria demasiado!

Necesito descomponer un palabra grande y separar las palabras que contenga la palabra general con ';' y esto guardalas en un vector...

Ejm:

Palabra Grande: Hoy es martes
Palabras que la componen: Hoy, es y martes..


Esas 3 palabras poder guardalas en un vector donde esten sepadas por punto y coma( :

Vector(Hoy;es;martes)

Espero ser claro!! Agradeceria de mucho una mano o aunque sea parte de codigo para impulsarme! Gracias!

Código HTML:

[COLOR="#FFFF00"][SIZE=5]MANOS QUE DAN NUNCA ESTARAN VACIAS! [/SIZE][/COLOR]

Saludos:

Puedes usar String.Replace(). Aqui algunos ejemplos:

VB.NET Replace String Examples

Espero ayude.


JOSE LUIS

Gracias amigo talves serviria pero cuando tengo un texto espeficio, el problema es que es a lo que el usuario digite en un textBox.

Si el usuario digita Programacion VB El programa tiene que buscar entre los archivos esas 2 palabras y enlistar a los que la tenian dentro de su nombre.

Tengo una base pero me faltaria solo llenar el vector.

Sub BuscNombre()
Dim Archivos(), NombreArchivo As String : Dim InfoArchivo As FileInfo
Dim oListViewItem As ListViewItem
Dim nombre As String
Dim resultado As Integer = 0

Archivos = Directory.GetFiles(Directory.GetCurrentDirectory)

'Limpiamos el ListView1, de esta manera nos aseguramos de actualizarlo.
ListView1.Items.Clear()
Me.LstArchivos.Items.Clear()

Try

For Each NombreArchivo In Archivos
Dim conta As Integer = 0
InfoArchivo = New FileInfo(NombreArchivo)
Dim cantidad As String = Len(InfoArchivo.Name)
nombre = Mid(InfoArchivo.Name, 1, cantidad - 4)
Dim i As Integer
Dim a As String = ""


For i = 1 To nombre.Length
a = a + Mid(nombre, i, 1)
InStr(1, txtNom.Text, a)
Next


For i = 1 To a.Length

If a(i) = txtNom.Text Then

InfoArchivo = New FileInfo(NombreArchivo)
Me.LstArchivos.Items.Add(InfoArchivo.Name)
'Recuperamos y mostramos tan solo el nombre del archivo, de no ser así no tiene sentido mostrar la extensión

por separado.
oListViewItem = ListView1.Items.Add(Microsoft.VisualBasic.Left(Inf oArchivo.Name.ToString, Len

(InfoArchivo.Name.ToString) - 4))
'Mostramos la longitud del archivo en Bytes.
oListViewItem.SubItems.Add(InfoArchivo.Length.ToSt ring & " Bytes")
'Mostramos la fecha en la que fue creado el archivo.
oListViewItem.SubItems.Add(InfoArchivo.CreationTim e)
'Mostramos la extensión del archivo.
oListViewItem.SubItems.Add(InfoArchivo.Extension)
'Mostramos cantidad de atributos del archivo.
oListViewItem.SubItems.Add(InfoArchivo.Attributes)
'Mostramos la hora en la que se utilizó por última vez el archivo.
oListViewItem.SubItems.Add(InfoArchivo.LastAccessT ime)
'Mostramos la hora en la que se escribió por última vez en el archivo.
oListViewItem.SubItems.Add(InfoArchivo.LastWriteTi me)
resultado += 1
End If
a += 1
Next



Next

Catch

End Try
If resultado = 0 Then
MsgBox("No se encontraron resultados")
Else

MsgBox("Se econtraron " & resultado & " Archivos")
End If


End Sub

Aun me falta llenar el vector, pero no se como! :/