file-io - TCL: ファイルを開き、データを抽出し、ファイルをコピーして後で操作する

Question

次のような内容のテキスト ファイルを開きたい:

    $  
    *include_path
    道
    $
    $
    *含む
    test.txt
    $
    $
    *含む
    test1.txt
    $
    *含む
    test1.txt
    $
    *含む
    test1.txt
    $

スクリプトは、パターン「include_path」の下に配置されたパスを検索し、それを変数に保存して、パターン「include」の下に配置されたすべてのテキスト ファイルを特定のフォルダーにコピーできる必要があります。

大文字の「INCLUDE」は、テキスト ファイルがメインのテキスト ファイルと同じディレクトリに配置されていることを示します。小文字の「include」は、「include_path」以下のパスのフォルダにテキスト ファイルがあることを示します。

すべてのテキスト ファイルを新しいフォルダにコピーした後、メインのテキスト ファイルを開き、「include_path」行と次のパスを削除またはコメント アウトする必要があります。