Hola, tengo este problemilla... tengo un textbox con algunas palabras y necesito sacar las palabras repetidas.
hice este code:
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
Mira asi:
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
Cita de: Tesis en 20 Diciembre 2006, 01:55 AM
Mira asi:
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
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