外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
vbscriptで点と点マーカを円に変換する
:vbscriptで点と点マーカを円に変換する
@echo off
set pt=点を残す
:set pt=点を残さない
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 10 > jwc_temp.txt
)
goto:eof
REM #jww
REM #h1
REM #g1
REM #hc 点と点マーカを選択してください
REM #bz
REM #e
#!この次の行からプログラムを書いてください
'3)環境変数
Dim Env
Set Env = CreateObject("WScript.Shell").Environment("Process")
Dim r
r = WScript.Arguments(0)
Dim line, F
With CreateObject("Scripting.FileSystemObject")
Dim g
Set g = .OpenTextFile("myfiles")
Do While Not g.AtEndOfStream
line = g.ReadLine
With New RegExp
.Pattern = "[ ]+": F = Split(Trim(.Replace(line," ")))
.Pattern = "^pt": .IgnoreCase = True
if .Test(line) then '点、点マーカ
if UBound(F) = 2 then
WScript.Echo .Replace(line,"ci") & " " & r
if Env("pt") = "点を残す" then
WScript.Echo line '点を復帰する
end if
else
WScript.Echo Join(Array("ci", F(1), F(2), r))
if Env("pt") = "点を残す" then
WScript.Echo line '点マーカを復帰する
end if
end if
else
.Pattern = "^hq": .IgnoreCase = True
if .Test(line) then
WScript.Echo "hd"
WScript.Echo "bz"
else
WScript.Echo line 'hq を除き点、点マーカ以外は復帰する
end if
end if
End With
Loop
g.Close
End With
