PR
キーワードサーチ
▼キーワード検索
カレンダー
コメント新着
2017.12.15
カテゴリ： UWSC
UWSCって、コマンドラインでの入出力は何にもない。なので、バッチなどから呼んでもあまり役に立たないよね…。
長らく、そんな誤解をしていました。ごめんなさい。
UWSCは無敵です。
その気になれば、UWSCでフィルタープログラムもできちゃう。すごい。
FSOのGetStandardStreamをキックすることで、標準入出力とやりとりできることに気付きました。
ただ、入力も出力もエラーも、パイプやリダイレクト先がなかったりするとエラーになるのが難点。
下のstdio.uwsをコマンドから呼ぶときはこんな感じ。
C:\Users\satocchia>dir|stdio.uws|more
＜stdio.uws＞
repeat
line =stdio.readLine()
if line =stdio.EOF then break
msgbox( line )
until false
stdio.verbose =true
stdio.write( "output" )
stdio.writeerr( "output2" )
stdio.write( "output3" )
endif
module stdio
public verbose =false
dim std_in =0
dim std_out =1
dim std_err =2
dim fso
fso =createoleobj("Scripting.FileSystemObject")
fend
procedure write( data )
com_err_ign
fso.GetStandardStream( std_out ).WriteLine( data )
if com_err_flg and verbose
msgbox( "標準出力のリダイレクト先が設定されていません" )
endif
com_err_ret
fend
procedure writeerr( data )
com_err_ign
fso.GetStandardStream( std_err ).WriteLine( data )
if com_err_flg and verbose
msgbox( "標準エラー出力のリダイレクト先が設定されていません" )
endif
com_err_ret
fend
function readLine()
com_err_ign
result =fso.GetStandardStream( std_in ).ReadLine()
if com_err_flg
result =EOF
endif
com_err_ret
fend
function readAll()
result =fso.GetStandardStream( std_in ).ReadAll()
fend
endmodule
長らく、そんな誤解をしていました。ごめんなさい。
UWSCは無敵です。
その気になれば、UWSCでフィルタープログラムもできちゃう。すごい。
FSOのGetStandardStreamをキックすることで、標準入出力とやりとりできることに気付きました。
ただ、入力も出力もエラーも、パイプやリダイレクト先がなかったりするとエラーになるのが難点。
下のstdio.uwsをコマンドから呼ぶときはこんな感じ。
C:\Users\satocchia>dir|stdio.uws|more
＜stdio.uws＞
repeat
line =stdio.readLine()
if line =stdio.EOF then break
msgbox( line )
until false
stdio.verbose =true
stdio.write( "output" )
stdio.writeerr( "output2" )
stdio.write( "output3" )
endif
module stdio
public verbose =false
dim std_in =0
dim std_out =1
dim std_err =2
dim fso
fso =createoleobj("Scripting.FileSystemObject")
fend
procedure write( data )
com_err_ign
fso.GetStandardStream( std_out ).WriteLine( data )
if com_err_flg and verbose
msgbox( "標準出力のリダイレクト先が設定されていません" )
endif
com_err_ret
fend
procedure writeerr( data )
com_err_ign
fso.GetStandardStream( std_err ).WriteLine( data )
if com_err_flg and verbose
msgbox( "標準エラー出力のリダイレクト先が設定されていません" )
endif
com_err_ret
fend
function readLine()
com_err_ign
result =fso.GetStandardStream( std_in ).ReadLine()
if com_err_flg
result =EOF
endif
com_err_ret
fend
function readAll()
result =fso.GetStandardStream( std_in ).ReadAll()
fend
endmodule
お気に入りの記事を「いいね！」で応援しよう
[UWSC] カテゴリの最新記事
-
デバッグ中かどうか自動判定 2020.12.19
-
UWSCダイアログのタイトル変更 2020.11.25
-
XMLでなんちゃってDB 2019.12.23
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
