jw_cad 外部変形 － (1374) mshtaで jwc_temp.txt を画面表示する －

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

mshtaで jwc_temp.txt を画面表示する

:mshtaで jwc_temp.txt を画面表示する
@echo off
if exist jwc_temp.txt (
  copy jwc_temp.txt myfiles > nul
  mshta %~f0 < myfiles > jwc_temp.txt
)
type jwc_temp.txt
pause
echo hd > jwc_temp.txt
goto:eof

REM #jww
REM #e

<script>
with (new ActiveXObject("Scripting.FileSystemObject")) {
  f = GetStandardStream(0) //stdin
  g = GetStandardStream(1) //stdout
  g.WriteLine(f.ReadAll())
  f.close()
}
close()
</script>

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

追記

HTA の画面表示をしたいとき

<!-- :mshtaで jwc_temp.txt を画面表示する
@echo off
if exist jwc_temp.txt (
  copy jwc_temp.txt myfiles > nul
  start mshta %~f0
)
type jwc_temp.txt
pause
echo hd > jwc_temp.txt
goto:eof

REM #jww
REM #e
-->

<script>
with (new ActiveXObject("Scripting.FileSystemObject")) {
//HTA 画面表示
  f = OpenTextFile("myfiles")
  while (! f.AtEndOfStream) {
    document.write(f.ReadLine()+"<br>")
  }
  f.close()
//コマンドプロンプト 画面表示
  g = CreateTextFile("jwc_temp.txt")
  f = OpenTextFile("myfiles")
  g.WriteLine(f.ReadAll())
  f.close()
  g.close()
}
//close()
</script>