クリップボードデータでテキストファイルを作成する方法

Question

私のアプリケーションからクリップボードにデータをコピーしました。 これでクリップボードのデータを新しいメモ帳ファイルに保存（貼り付け）したいと思います。 Windowsでこのスクリプトを使用します& Linux env。 助けてください。

Answer 1

clipboard getでクリップボードの内容を取得します。 tk_getSaveFileを使用して保存するファイルを選択し、openとputsで保存します。

package require Tk 

wm withdraw .; # Hide the default window 
update 
set contents [clipboard get] 

set filename [tk_getSaveFile -defaultextension .txt] 

# Skip saving if we got the empty name; it signifies that the user cancelled 
if {$filename ne ""} { 
    set f [open $filename "w"] 
    puts $f $contents 
    close $f 
} 

exit