VPF::Вывод всех значений из 1-го массива, кроме тех

Voldemar2004

Дата 9.11.2005, 11:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

На http://forum.vingrad.ru/index.php?showtopic=70015 никто не понял, что мне нужно, теперь объясню попроще:

Код

Option Explicit

Private Sub Command1_Click()

Dim a(9) As String
Dim b(1) As String

a(0) = "ЗЕЛЕНАЯ"
a(1) = "111141 ДРУГОЕ ЗНАЧЕНИЕ"
a(2) = "111141 ЗЕЛЕНАЯ"
a(3) = "111141 ДРУГОЕ ЗНАЧЕНИЕ"
a(4) = "ДРУГОЕ ЗНАЧЕНИЕ"
a(5) = "111394 ДРУГОЕ ЗНАЧЕНИЕ"
a(6) = "ДРУГОЕ ЗНАЧЕНИЕ"
a(7) = "КУСКОВО"
a(8) = "НОВОГИРЕЕВО"
a(9) = "111394 КУСКОВА"


b(0) = "ЗЕЛЕНАЯ"
b(1) = "КУСКОВА"

Dim i  As Integer, j As Integer
For i = 0 To 9
    
    For j = 0 To 1
   
        If (InStr(1, a(i), b(j))) <> 0 Then
        Print i; a(i)
        End If
        
    Next j
    
Next i

End Sub

Сейчас выводит:
ЗЕЛЕНАЯ
ЗЕЛЕНАЯ
КУСКОВА.
Надо все наоборот - чтобы выводило все значения, кроме значений, указанных в массиве b(i).

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

i_i
(';')
(V)

user posted image

Akina

Дата 9.11.2005, 13:24 (ссылка)

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

Загрузка ...

Советчик

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

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

Код


Dim i  As Integer, j As Integer
Dim flag as boolean

For i = 0 To 9
    flag=true    
    For j = 0 To 1
        If InStr(a(i), b(j)) > 0 Then flag=false
    Next j    
    if flag then Print i, a(i)
Next i

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

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

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