jw_cad 外部変形 － (462) gawkで文字を書く －

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

gawkは GNUプロジェクトのawkです。

gawkで文字を書く

:gawkで文字を書く
@echo off
call %~dp0set "s" "%*" %~dpn0.txt
if not defined s set s=こんにちは
for /f %%n in ('gawk "/^#!/ { print NR }" %0') do (
  copy jwc_temp.txt myfiles > nul
  more +%%n %0 | gawk -f - myfiles > jwc_temp.txt
)
goto:eof

REM #jww
REM #0 位置を指示して下さい
REM #c 文字 = 
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
END { print "ch", 0, 0, 1, 0, "\"" ENVIRON["s"] }