Строка поиска существует в списках

Question

Как искать в каждой строке существует в списках.

set Listing [list AB ZS FR WQ GY GT DA PP YT PW] 
set strings {ZS RW DA PW} 

if { in each $strings no exists in the $listing} { 
    lappend strNoExitst $get 
} 

Заранее благодарен!

Answer 1

set Listing [list AB ZS FR WQ GY GT DA PP YT PW] 
set strings {ZS RW DA PW} 

set in_list {} 
set not_in_list {} 

foreach string $strings { 
    if {$string in $Listing} { 
     lappend in_list $string 
    } else { 
     lappend not_in_list $string 
    } 
} 

Документация: foreach, if, in (operator), lappend, set