Imprimir Página - Sacar palabras repetidas de un textbox

Título: Sacar palabras repetidas de un textbox
Publicado por: USUARIO_DE_SOFTWARE_LIBRE en 20 Diciembre 2006, 01:27 am

Hola, tengo este problemilla... tengo un textbox con algunas palabras y necesito sacar las palabras repetidas.
hice este code:

Código:

Dim a, b As Integer
dim url() as string
url() = Split(Text2.Text, vbCrLf)

For a = 0 To UBound(url)
For b = 1 To UBound(url)
If url(a) = url(b) Then
MsgBox "palabra repetida: " & url(a)
End If
Next b
Next a

por ejemplo en el textbox tengo esto:
linux
windows
windows
unix
windows
rojo
blanco
rojo
y me debería decir que palabras están repetidas... pero me dice cualquier cosa...
¿Cuál puede ser el problema?
ah, y otra cosa, como puedo hacer para sacar el texto repetido?
saludos

Título: Re: Sacar palabras repetidas de un textbox
Publicado por: ReViJa en 20 Diciembre 2006, 01:55 am

Mira asi:

Código:

Dim a, b As Integer
Dim url() As String
url() = Split(Text1.Text, " ")

For a = 0 To UBound(url)
  For b = a + 1 To UBound(url)
    If url(a) = url(b) Then
      MsgBox "palabra repetida: " & url(a)
    End If
  Next b
Next a

Título: Re: Sacar palabras repetidas de un textbox
Publicado por: VirucKingX en 20 Diciembre 2006, 01:58 am

Cita de: Tesis en 20 Diciembre 2006, 01:55 am

Mira asi:

Código:

Dim a, b As Integer
Dim url() As String
url() = Split(Text1.Text, " ")

For a = 0 To UBound(url)
  For b = a + 1 To UBound(url)
    If url(a) = url(b) Then
      MsgBox "palabra repetida: " & url(a)
    End If
  Next b
Next a

funciona excelente, tambien estaba buscando eso

Bye y gracias

Título: Re: Sacar palabras repetidas de un textbox
Publicado por: USUARIO_DE_SOFTWARE_LIBRE en 20 Diciembre 2006, 02:20 am

mil gracias Tesis !
las cosas simples son las que siempre cuestan mas xD
que bueno que te sirve a vos tambien VirucKingX
:D
tengo otra cosa que no me sale... tengo que sacar las palabras repetidas del textbox (pero dejar una), por ejemplo que esta lista:
linux
windows
windows
unix
windows
rojo
blanco
rojo
quede así:
linux
windows
unix
blanco
rojo

feliz navidad :D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: USUARIO_DE_SOFTWARE_LIBRE en 20 Diciembre 2006, 01:27 am