• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            eryar

            PipeCAD - Plant Piping Design Software.
            RvmTranslator - Translate AVEVA RVM to OBJ, glTF, etc.
            posts - 603, comments - 590, trackbacks - 0, articles - 0

            Iterate Files by Tcltk

            Posted on 2015-01-18 12:08 eryar 閱讀(1937) 評論(0)  編輯 收藏 引用 所屬分類: 2.OpenCASCADE6.Others

            Iterate Files by Tcltk

            eryar@163.com

            Abstract. Tcl/Tk provide a programming system for developing and using graphical user interface(GUI) applications. Tcl stands for “tool command language” and is pronounced “tickle”, is a simple scripting language for controlling the extending applications. The blog use Tcl/Tk to iterate all the files for a given directory, this is useful to some automation work, such as change all the file names for a given directory; add copyright info for the source code files.

            Key Words. Tcl/Tk, Iterate Files,遍歷文件夾中所有文件

            1. Introduction

            Tcl/Tk是一種用于易于使用的腳本語言,可以用來對程序進(jìn)行擴(kuò)展及完成一些自動化的工作,加上內(nèi)置的一些命令,其功能要比Windows中的DOS的批處理命令功能更強(qiáng)大,使用更方便。Tcl腳本語言是開源免費(fèi)的,可以方便獲取且免費(fèi)使用。

            OpenCASCADE中使用了Tcl/Tk來實(shí)現(xiàn)了一個自動化測試體系。使用在OpenCASCADE中使用自定義的Tcl命令,可以快速來檢驗(yàn)算法的結(jié)果。通過編寫腳本文件,實(shí)現(xiàn)了測試的自動化。所以學(xué)習(xí)一下Tcl/Tk腳本語言,并在實(shí)際的工作中加以應(yīng)用,可以將一些機(jī)械的勞動交給計算機(jī)自動完成。

            本文主要說明如何使用Tcl/Tk來遍歷指定文件夾中所有文件。利用此功能,可以稍微加以擴(kuò)展,就可以完成一些實(shí)際的重復(fù)勞動。如遍歷指定目錄中所有的源文件或指定類型的文件,添加上版權(quán)信息等。

            2. Tcl/Tk Code

            要遍歷指定目錄下所有的文件,包括子文件夾,需要用到命令glob及一個遞歸函數(shù)。腳本代碼如下所示:

            #
            # Tcl/Tk script to iterate all the files for a given directory.
            # eryar@163.com
            # 2015-01-18
            #


            package require Tcl
            package require Tk

            wm title 
            . "Iterate Files"

            label 
            .labelDirectory -text "Directory "
            entry 
            .entryDirectory -width 30 -relief sunken -textvariable aDirectory
            button 
            .buttonDirectory -text "" -command {chooseDirectory .entryDirectory}

            button 
            .buttonApply -text "Apply" -command {perform $aDirectory}
            button 
            .buttonCancel -text "Cancel" -command {exit}

            grid 
            .labelDirectory .entryDirectory .buttonDirectory
            grid 
            .buttonApply .buttonCancel

            # chooseDirectory--
            # choose the directory to iterate.

            proc chooseDirectory {theEntry} {
                set dir [tk_chooseDirectory 
            -initialdir [pwd] -mustexist 1]
                
                
            if {[string compare $dir ""]} {
                    
            $theEntry delete 0 end
                    
            $theEntry insert 0 $dir
                    
            $theEntry xview end
                }
            }

            # perform--
            # perform the algorithm.
            #

            proc perform {theDirectory} {
                puts 
            "Iterate all the files in $theDirectory"
                
                
            if {[string length $theDirectory< 1} {
                    tk_messageBox 
            -type ok -icon warning -message "Please select the directory!" -parent .
                    
            return 
                }
                
                
            # process the iterate
                process $theDirectory
            }

            # process--
            # recursion every folder and file.
            #

            proc process {theFolder} {

                set aFiles [
            glob -nocomplain -directory $theFolder *]
                
                
            foreach aFile $aFiles {
                    
            if {[file isfile $aFile]} {
                        
            # just output the file name here. 
                        # you can do something such as rename for the file.

                        puts "$aFile \n"
                    } 
            else {
                        process 
            $aFile
                    }
                }
            }

            程序用法為打開Tcl解釋器,使用命令source加載腳本文件,如下圖所示:

            wps_clip_image-20196

            Figure 2.1 Tcl usage

            3. Conclusion

            通過應(yīng)用Tcl/Tk來體驗(yàn)?zāi)_本編程的樂趣,并加深對Tcl/Tk的理解。從而對OpenCASCADE的模塊Draw Test Harness更好地理解。

            如果有編程基礎(chǔ),Tcl/Tk會很快入門的。入門后,可以應(yīng)用其直接編寫一些有意思有腳本,來實(shí)現(xiàn)一些重復(fù)工作的自動化。也可將Tcl加入到自己的程序中,增加程序的二次開發(fā)功能。

            可見,玩一玩腳本語言,還是非常有趣的!


            PDF Version and Script: Iterate Files by Tcl

            亚洲乱码日产精品a级毛片久久| 久久久久亚洲AV无码观看| 久久综合噜噜激激的五月天| 日本强好片久久久久久AAA| 亚洲精品无码久久千人斩| 久久SE精品一区二区| 久久亚洲私人国产精品vA| 久久精品国产亚洲av麻豆小说 | 看久久久久久a级毛片| 精品免费tv久久久久久久| 国产成人精品久久综合| 2021国产精品久久精品| 国产成人精品免费久久久久| 久久久久亚洲AV综合波多野结衣| 色婷婷综合久久久中文字幕| A级毛片无码久久精品免费| 久久精品久久久久观看99水蜜桃| 久久91精品国产91久久麻豆| 中文字幕久久久久人妻| 久久国产成人精品国产成人亚洲| 久久天天躁狠狠躁夜夜96流白浆 | AV狠狠色丁香婷婷综合久久| 久久影视综合亚洲| 久久精品成人免费网站| 色综合久久综合中文综合网| 久久无码国产| 久久综合色区| 人妻丰满?V无码久久不卡| 久久亚洲国产午夜精品理论片| 久久WWW免费人成一看片| 一级做a爰片久久毛片毛片| 久久99精品久久久久久水蜜桃| 久久福利青草精品资源站| 热re99久久6国产精品免费| 久久亚洲精品无码aⅴ大香| 国产精品99久久久久久宅男小说| 天天影视色香欲综合久久| 久久精品九九亚洲精品天堂| 国内精品久久久久影院薰衣草| 欧美精品一区二区精品久久| 国产激情久久久久久熟女老人 |