jw_cad 外部変形 - (1401) vbscriptで画面表示のデータを全部消去する -

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

 

vbscriptで画面表示のデータを全部消去する

:vbscriptで画面表示のデータを全部消去する
@echo off
if not exist %~dp0eval.vbs echo ExecuteGlobal WScript.StdIn.ReadAll > %~dp0eval.vbs
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  copy jwc_temp.txt myfiles > nul
  (
:   echo Option Explicit
    echo On Error Resume Next
:   echo On Error GoTo 0
    more +%%n %0
  ) | cscript //nologo %~dp0eval.vbs > jwc_temp.txt
)
goto:eof

REM #jww
REM #h4 データ選択をしない、読取可能データ書き出し
REM #g1
REM #e

#!この次の行からプログラムを書いてください
WScript.Echo "hd"