Tcl 列表中存在搜索字符串

如何搜索列表中存在的每个字符串

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
}

提前谢谢

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
    }
}

文件： , , , ,

文件： , , , ,