• <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是一種用于易于使用的腳本語言,可以用來對程序進行擴展及完成一些自動化的工作,加上內置的一些命令,其功能要比Windows中的DOS的批處理命令功能更強大,使用更方便。Tcl腳本語言是開源免費的,可以方便獲取且免費使用。

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

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

            2. Tcl/Tk Code

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

            #
            # 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

            通過應用Tcl/Tk來體驗腳本編程的樂趣,并加深對Tcl/Tk的理解。從而對OpenCASCADE的模塊Draw Test Harness更好地理解。

            如果有編程基礎,Tcl/Tk會很快入門的。入門后,可以應用其直接編寫一些有意思有腳本,來實現一些重復工作的自動化。也可將Tcl加入到自己的程序中,增加程序的二次開發功能。

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


            PDF Version and Script: Iterate Files by Tcl

            久久777国产线看观看精品| 91精品国产色综合久久| 一本久久精品一区二区| 99久久国产精品免费一区二区| 久久一日本道色综合久久| 国产精品久久久久久吹潮| 国产一区二区三精品久久久无广告 | 亚洲v国产v天堂a无码久久| 久久久久久久波多野结衣高潮| 欧美丰满熟妇BBB久久久| 久久不见久久见免费视频7| 日本一区精品久久久久影院| 性高湖久久久久久久久AAAAA| 亚洲色婷婷综合久久| 99久久国产综合精品网成人影院 | 久久亚洲精品无码观看不卡| 午夜欧美精品久久久久久久| 精品久久久久一区二区三区| 中文字幕乱码人妻无码久久| 久久婷婷久久一区二区三区| 四虎国产精品成人免费久久| 国产精品成人99久久久久91gav| 亚洲欧美日韩久久精品| 久久亚洲国产成人精品性色| 2021国产精品久久精品| 久久91精品综合国产首页| 国产精品国色综合久久| 久久久久99这里有精品10 | 久久久久久久久久久| 久久天天日天天操综合伊人av | 热综合一本伊人久久精品 | 99国产精品久久| 91精品国产乱码久久久久久| 欧美一区二区三区久久综合| 精产国品久久一二三产区区别| 欧美精品九九99久久在观看| 久久综合九色综合欧美就去吻| 国产精品嫩草影院久久| 热99re久久国超精品首页| 久久久久中文字幕| 激情综合色综合久久综合|