Поиск строки по названию

[Saturn.65]

Помогите, кто может!
Даны два ListBoxa. В один загружается список из текстового файла. В другой загружается список файлов( например Кино.avi), находящихся в папке . Как сделать так, чтоб при совпадении названий в одном ListBoxе и в другом выводилось сообщение. Т.е. если в одном и другом ListBoxе будет один и тот же текст (Кино) или совпадающая строка( по названию а не по расширению), то выводилось бы сообщение.
Я просто не знаю по каким пораметрам сравнить.
Заранее благодарен!

[BV]

Например...

Код: Выделить всё

Option Explicit

Public Function GetTitle(ByVal strObject As String) As String
    If strObject = vbNullString Then Exit Function
    Dim intPos As Integer
    intPos = InStrRev(strObject, Chr$(46))
    If intPos > 0 Then
        GetTitle = Left$(strObject, intPos - 1)
    Else
        GetTitle = strObject
    End If
End Function

Public Function GetObjectName(ByVal strFullPath As String) As String
    If strFullPath = vbNullString Then Exit Function
    Dim intPos As Integer
    intPos = InStrRev(strFullPath, Chr$(92))
    If intPos > 0 Then
        GetObjectName = Right$(strFullPath, Len(strFullPath) - intPos)
    Else
        GetObjectName = strFullPath
    End If
End Function

Private Sub cmdCheck_Click()
    Dim i As Long, j As Long
    For i = 0 To lstOne.ListCount - 1
        For j = 0 To lstTwo.ListCount - 1
            If GetTitle(GetObjectName(lstOne.List(i))) = GetTitle(GetObjectName(lstTwo.List(j))) Then
                MsgBox lstOne.List(i) & vbCrLf & lstTwo.List(j)
            End If
        Next j
    Next i
End Sub

[neic]

Saturn.65
LIst1.text - сравнивай эти свойства у обоих листов

[Saturn.65]

Спасибо всем кто откликается. Я сейчас выложу свой листинг этой программы для поиска одного названия в списках. Например есть список(txt), например кино. Есть папка куда закачиваются из инета фильмы. Программа должна сравнить оба списка. Если есть два одинаковых названия, то вывести сообщение. Есстественно два одинаковых кино не нужно, поэтому сразу будет это видно и кино можно просто удалить.
----------------------------------------------------------------------------------
Private Sub Form_Load()
Dim nFile As Integer
aaa = FreeFile

'выводит в List1 данные из текстового блокнота
Open "D:\База_данных_txt.TXT" For Input As aaa
While Not EOF(1)
Line Input #1, aaa
List1.AddItem aaa
Wend
Close #1

'ищет все файлы всех расширений в Папка_закачки и выводит их в List2
SSpat = "D:\Папка_закачки" & "\" & "*.*" & RaS
sFile = Dir$(SSpat)
While sFile <> ""
List2.AddItem sFile 'сюда добавит имена файлов
sFile = Dir$
Wend

End Sub
............................................................................

Private Sub List2_Click()
Dim Папка_закачки, База_данных_txt
Папка_закачки = List2.Text
База_данных_txt = List1.Text

' Выводит совпавшее имя в Text1
If Папка_закачки = База_данных_txt Then
Text1.Text = List2.Text
End If

End Sub
...........................................................
Дело в том, что оба списка конечно не совпадут, а как сравнивать построчно? Если кликнуть сперва в одно название потом в другое такое же, то выводится сообщение об одинаковости.Но не будешь же так кликать по спискам.
Вот проблема. По какому принципу сравнивать?
Пробовал код BV, не получилось соеденить с моим кодом.
Если я что- то не так написал - поправте.

[BV]

Во-первых, за русские названия переменных я бы ручки отрывал вместе с ножками.
Во-вторых, вместо слепого копипаста попробуй вникнуть в приведенный мною код.
И наконец, оцени тег [CODE].

[Saturn.65]

Виноват! Пепеменные по русски я специально написал для Вас, чтоб понятнее было, откуда куда загружается. Здесь ведь форму не покажешь. Вместо lstOne я подставлял List1. А вот как пути прописать к своему txt. Может вместо GetObjectName? Попробую. ты уж не ругайся. Я еще начинающий.

[BV]

А вот как пути прописать к своему txt. Может вместо GetObjectName?

А причем тут твой файл? Ты заполняй списки отдельно, я привел только код сравнения.