jw_cad 外部変形 - (1396) 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 #0 時刻を書き込む基点を指示してください
REM #e

#!この次の行からプログラムを書いてください
Dim week
week = Array("","日","月","火","水","木","金","土")
WScript.Echo "ch 0 0 1 0 " & Chr(34) & "日本時間 " & Date & " " & Time & "(" & week(Weekday(Date)) & ")"