VBSでの標準入出力て

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆VBSでの標準入出力

VBSでは、WSHのWScriptオブジェクトを使用することにより標準入出力の処理が可能です。

以下がそのサンプルで、標準入力からデータを受け取って標準出力するフィルタプログラムです。

尚、サンプルでは、フィルタ無しで、標準入力データをそのまま標準出力しています。

Option Explicit

'エラーが発生しても中断しない
On Error Resume Next

Dim objStdIn    '標準入力用オブジェクト
Dim objStdOut   '標準出力用オブジェクト
Dim intExitCode '終了コード

'標準入力用オブジェクトのインスタンス作成
Set objStdIn = Wscript.StdIn

'標準出力用オブジェクトのインスタンス作成
Set objStdOut = Wscript.StdOut

'標準入力を1行ずつ読み込み標準出力へ書き込む

Do While objStdIn.AtEndOfStream = false

  objStdOut.WriteLine  objStdIn.ReadLine

Loop

'インスタンスの破棄
Set objStdIn   = Nothing
Set objStdOut  = Nothing

If Err.Number <> 0 Then
    intExitCode = 1 'エラー
Else
    intExitCode = 0 '正常
End If

'Quitメソッドの引数値は、バッチファイルでerrorlevelになる。
Wscript.Quit(intExitCode)

◆ 使用例

C:\Documents and Settings\xxx>dir * | cscript.exe VBStdInOut_TEST.vbs

VBSソース(VBStdInOut_TEST.vbs)は、あくまでcscript.exeの引数です。

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。

人のよいところをどんどん見つけよう