Durchsuchen des Verzeichnisses und Speichern des Pfads als Variable in einer Datei mit tcl/tk

Question

Gibt es ein Beispiel zum Durchsuchen und Suchen des Verzeichnisses und Speichern dieses als Variable in der Datei.

Ich habe ein Beispiel gefunden, kann es aber nicht zum Laufen bringen, aber ich bin mir nicht sicher, ob ich in die richtige Richtung gehe oder ob es einen besseren Weg gibt, das oben genannte zu tun.

Hilfe/Beratung wird geschätzt.

set basedir {C:/} 

set dir [tk_chooseDirectory \ 
     -initialdir $basedir -title "Choose a directory"] 
if {$dir eq ""} { 
    label .l -text "No directory selected" 
} else { 
    label .l -text "Selected $dir" 
} 

Answer 1

Das ist ungefähr, wie Sie es tun. Wenn Sie besorgt sind über das Etikett nicht immer sichtbar, brauchen Sie nur, um es „geschafft“ zuerst, wie

grid [label .l -text "Selected $dir"] 

oder nach der if Struktur

grid .l 

Oder, wenn das Etikett bereits gelungen, aber der Text nicht erscheint, stellen Sie den Text:

.l configure -text "Selected $dir" 

den Verzeichnispfad in einer Datei zu speichern, müssen Sie die Datei öffnen und es in irgendeiner Weise zu schreiben, zB

set f [open file.txt w] 
puts $f $dir 
close $f 

Wenn etwas anderes das Problem ist, müssen Sie uns sagen, was es ist, bevor wir Ihnen helfen können.

Dokumentation: close, grid, label, open, puts, set