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

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

 

mshtaで文字を逆書きする

:mshtaで文字を逆書きする
@echo off
if exist jwc_temp.txt (
  copy jwc_temp.txt myfiles > nul
  mshta %~f0 < myfiles > jwc_temp.txt
)
goto:eof

REM #jww
REM #h3 範囲内の「文字」データのみを選択
REM #g1
REM #e

<script>
with (new ActiveXObject("Scripting.FileSystemObject")) {
  f = GetStandardStream(0) //stdin
  g = GetStandardStream(1) //stdout
  while (! f.AtEndOfStream) {
    F = ($_ = f.ReadLine()).split(/\s+/)
    if (/^hq/ .test($_)) { g.WriteLine("hd"); continue }
    if (/^lg/ .test($_)) { g.WriteLine($_); continue }
    if (/^ly/ .test($_)) { g.WriteLine($_); continue }
    if (/^cn/ .test($_)) { g.WriteLine($_); continue }
    if (/^c[hvsroptkz2]/ .test($_)) {
      s = $_.split('"')
      a = s[1].split("")
      a.reverse()
      g.WriteLine(s[0]+'"'+a.join(""))
    } else {
      g.WriteLine($_)
    }
  }
  f.close()
}
close()
</script>

 

 

スクリプト言語jscript を使用しています。