jw_cad 外部変形 - (1080) tclshでコマンドライン引数を使う -

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

 

tclshでコマンドライン引数を使う

:tclshでコマンドライン引数を使う
@echo off
set str=ようこそ ありがとう
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | tclsh - %* %0 > jwc_temp.txt
)
type jwc_temp.txt
pause
goto:eof

REM #jww
REM #c a = /_a
REM #e

#!この次の行からプログラムを書いてください
set i 0
foreach e $argv {
  if {$i == 1} {
    set n [string length $e]
    set e [string range $e 1 [expr $n-1]]
  }
  puts [format "%d = %s" $i $e]; incr i
}

puts $tcl_version
puts "h#"$tcl_version