как сравнивать строки разной длины?

[moris]

Подскажите как сравнивать строки разной длины?
Есть файлы с названиями

CE3000S_01.jpg
CE3000S_02.jpg
CE3000SC_01.jpg
CE3000GR_01.jpg
CE3001S_01.jpg
CE3001SC_01.jpg
CE3001GR_01.jpg

К ним есть описание в файле index.txt


CE3000S Название 1
CE3000SC Название 2
CE3000GR Название 3
CE3001S Название 4
CE3001SC Название 5
CE3001GR Название 6


Все выводится в htm. (картинка и название к ней)

Пока я сделал так


ar = Split(st, vbCrLf)

' сравнение имени файла и названия в базе
For n = 0 To UBound(ar)
If Mid(ar(n), 1, 7) = Mid(flsrc, 1, 7) Then
tmp = Mid(ar(n), 1, 36)
End If
Next


В tmp выводится строка из index.txt
название файла Mid(flsrc, 1, 7)
Название из index.txt Mid(ar(n), 1, 7)


Если что-то непонятно написал - извиняйте...
Не знаю, что еще нужно указывать...

Если поможете разораться, то большое спасибо...

[GM]

Если я правильно понял:

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

dim l as long
For n = 0 To UBound(ar)
l = instr(ar(n)," ") -1
If Left$(ar(n),l) = Left$(flsrc,l) Then
tmp = Mid(ar(n), 1, 36)
End If
Next


[moris]

Спасибо