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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
moris
Новичок
Новичок
Аватара пользователя
 
Сообщения: 36
Зарегистрирован: 21.01.2005 (Пт) 0:41
Откуда: Питер

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

Сообщение moris » 05.03.2005 (Сб) 23:59

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

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)


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

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

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 06.03.2005 (Вс) 8:04

Если я правильно понял:
Код: Выделить всё
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
Новичок
Новичок
Аватара пользователя
 
Сообщения: 36
Зарегистрирован: 21.01.2005 (Пт) 0:41
Откуда: Питер

Сообщение moris » 06.03.2005 (Вс) 12:58

Спасибо :D


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 17

    TopList