VPF::Сравнение строк - Форум программистов

ПЛЗВТЛ

Дата 24.1.2006, 06:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Помогите пожалуйста!

У меня в листбоксе есть много записей, а мне нужно найти записи по маске (например, "*slov?o*"). Может кто подскажет, как это сделать???

___заранее благодарен___

СВА

Дата 24.1.2006, 06:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.1.2006

Репутация: нет
Всего: нет

Сделай примерно такую функцию для того что бы учитывать "?"

Код


Function Srav(str1 As String, str2 As String) As Boolean
str1 = UCase(str1)
str2 = UCase(str2)
If Len(str1) <> Len(str2) Then Srav = False: Exit Function
For i = 1 To Len(str2)
If Mid(UCase(str2), i, 1) = Mid(str1, i, 1) Or Mid(str2, i, 1) = "?" Then Else Srav = False: Exit Function
Next
Srav = True
End Function

str1 - это с чем сравниваешь
str2 - это что ты сравниваешь вместо неизвестных букв можно использовать "?"
Srav возврашает истину если два слова похожи

Akina

Дата 24.1.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

ПЛЗВТЛ
Откуда они в листбоксе? выбраны из таблицы в БД? перезапроси RowSource, добавив фильтр Where [Field] LIKE "*slov?o*"

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

ПЛЗВТЛ

Дата 24.1.2006, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

СВА, спасибо! smile

Akina, записи в листбоксе - это имена файлов.
Мне надо только выбрать нужные! smile

А расскажите пожалуйста, что такое "RowSource" и "фильтр Where [Field] LIKE "*slov?o*"" smile

Akina

Дата 24.1.2006, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(ПЛЗВТЛ @ 24.1.2006, 13:53

)

записи в листбоксе - это имена файлов

А откуда они там взялись??? ветром надуло, что ли?

--------------------

BorisVorontsov

Дата 24.1.2006, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Код


Private Sub Form_Load()

    Dim i As Long
    
    lstMain.AddItem "program"
    lstMain.AddItem "visual basic"
    lstMain.AddItem "hello world"
    
    For i = 0 To lstMain.ListCount - 1
        If lstMain.List(i) Like "visua*" Then _
            MsgBox "Найдено: " & lstMain.List(i)
    Next i
        
End Sub

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

ПЛЗВТЛ

Дата 25.1.2006, 07:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Akina, ХАРЕ ИЗДЕВАТЬСЯ.

Невидишь, я тормаз... smile

Всё гениальное ПРОСТО! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »