2

Встретился с проблемой что tcl не может найти файлы в директории. Как настроить так, чтобы он искал файлы в одной папке с самим tcl файлом?(надо найти все файлы png) Вот код, который был изначально указан:

proc LoadImages {imgdir} {
    variable I
    foreach file [glob -directory  *.png] {
        set img [file tail [file rootname $file]]
        set I($img) [image create photo -file $file -format png]
    }
}
LoadImages [file join [file dirname [info script]] breeze]

Проблема в том, что задан поиск png файлов в папке breeze, которая находится вместе с tcl файлом. Но он почему-то не видит файлы.

1 ответ 1

1

Если вы запускаете скрипт из той же директории, в которой он находится, то всё проcто:

foreach file [glob *.png] {
    puts $file
}

Если же скрипт запускается из другого места, то придётся повозиться:

set scriptDir [file dirname [file normalize [info script]]]
set globString [file join $scriptDir *.png]
foreach file [glob $globString] {
    puts $file
}
3

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.