jw_cad 外部変形 - (735) gawkで文字を逆書きする -

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

 

gawkで文字を逆書きする

:gawkで文字を逆書きする
@echo off
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 #h3 範囲内の「文字」データのみを選択
REM #g1
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
function jreverse(x,  i, n, A){
  n = split( x, A, "" )
  x = ""
  i = n
  while (i != 0) { x = x A[i]; i-- }
  return x
}
/^hq/ { print "hd" }
/^lg|^ly|^cn/ { print }
/^c[hvsroptkz2]/ {
  str = substr($0, index($0, "\"") + 1)
  print $1, $2, $3, $4, $5, "\"" jreverse(str)
}