jw_cad 外部変形 - (714) パワーシェルで jwc_temp.txt を画面表示する -

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

 

パワーシェルで jwc_temp.txt を画面表示する

○その①

:パワーシェルで jwc_temp.txt を画面表示する
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | powershell -command -
)
pause
echo hd > jwc_temp.txt
goto:eof

REM #jww
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
gc jwc_temp.txt

#ここまで powershell は 文末に必ず空白行を置いてください

 

○その②

:パワーシェルで jwc_temp.txt を 画面表示する
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | powershell -command -
)
echo hd > jwc_temp.txt
goto:eof

REM #jww
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
[void][reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$labl = New-Object Windows.Forms.TextBox
$text = New-Object Windows.Forms.TextBox
$font = New-Object System.Drawing.Font("Segoe Script",10)
$form.font = $font
$labl.font = $font
$text.font = $font
$form.Text = "jwc_temp.txt"
$labl.Text = "jwc_temp.txt"
#$text.Text = (gc jwc_temp.txt) | %{ $_+"`r`n" }
$i=0; $text.Text = (gc jwc_temp.txt) | %{ if ($i -eq 0) { " "+$_+"`r`n" } else { $_+"`r`n" }; $i++ }
$form.Width = 600
$form.Height = 400
$text.MultiLine = $true
$text.Width = 550
$text.Height =330
$labl.Location = New-Object Drawing.Point 20,10
$text.Location = New-Object Drawing.Point 20,40
$form.Controls.AddRange( ($labl,$text))
$form.ShowDialog()

#ここまで powershell は 文末に必ず空白行を置いてください