Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Вывод всех значений из 1-го массива, кроме тех

Автор: Voldemar2004 9.11.2005, 11:14

На 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).

Автор: Akina 9.11.2005, 13:24

Код


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