tcl - ファイルからの TCL 文字列の一致

Question

TCL でファイル内の文字列を検索しようとしています。ウィッシュ コンソールを使用して、2 つの文字列を一致させることができました。ファイルから文字列を読み取り、それを正確なコピーと照合すると、失敗します。変数にまったく同じ文字列が含まれていることを Eclipse で確認できます...つまり、末尾に目に見えない文字がない限りです。次のコードは、変数にまったく同じ文字列が含まれている場合でも、1 を返しません。

set fileId [open $::InputFile "r"]
set file_data [read $fileId]
#  Process data file
set data [split $file_data "\n"]
#search for string
foreach line $data {
     set x $::StringToFind
     set y $line
    set z [string match x y]
    puts $z
     if [ string match $::StringToFind line ] {
         return 1
     }
}