jw_cad 外部変形 - (1077) tclshで現在のディレクトリを表示する -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

tclshで現在のディレクトリを表示する

:tclshで現在のディレクトリを表示する
@echo off
set c=%cd%
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | tclsh - > jwc_temp.txt
)
goto:eof

REM #jww
REM #e

#!この次の行からプログラムを書いてください
puts "h#cd=$env(c)"