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
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