Windowsで"tail"コマンド

たまーにwindowsでUNIXのtailコマンドができたらいいなと思う。
スクリプトで作ってみた。
まだまだ検討の余地がありそうだけど、第一版をUP。

//tail for windows.
//please select "Cscript" engine.
//Created by sashimi.

var looptime;
var path;


if(WScript.Arguments.length==0
  || WScript.FullName.substr
  (WScript.FullName.length-11).toUpperCase()=="WSCRIPT.EXE"){
 WScript.Echo("Usage:cscript tail.js ");
 WScript.Quit(1);
}

path=WScript.Arguments(0);
//WScript.echo(path);

var fso=WScript.CreateObject("Scripting.FileSystemObject");

if(!fso.fileExists(path)){
 fso=null;
 WScript.Quit(1);
}

var ts=fso.OpenTextFile(path,1,false);
var size=fso.GetFile(path).Size;

//WScript.Echo(size);
ts.Skip(size);
try{
 while(true){
  WScript.Sleep(1000);
  if(!ts.AtEndOfStream){
   WScript.Echo(ts.ReadLine());
  }
 }
}catch(e){
}finally{
 ts=null;
 fso=null;
}

EXCELでタグ付き正規表現

サクラエディタでタグ付き正規表現ができないみたい。
秀丸ならできるのにな。
探してみたらEXCELでできるみたいなので、拝借。

' 正規表現による置換
Function RegReplace(ByRef strSource As String, _
　　　　　　　　　　ByRef strPattern, _
　　　　　　　　　　ByRef strReplacement As String) As String


　　'動作環境： IE5.0以上がインストールされていること
　　'参照設定： Microosft VBScript Regular Expressions x.x

　　Dim REG As REGEXP
　　Set REG = New REGEXP
　　With REG
　　　　.Pattern = strPattern
　　　　.IgnoreCase = False
　　　　.Global = True
　　　　RegReplace = .Replace(strSource, strReplacement)
　　End With
　　Set REG = Nothing

End Function

秀丸使えないときはこれを使うしかない。


訂正。サクラエディタでも使えるみたいです。