Windows Script Programming

よくあるのは、

IF "%1"=="" ECHO 引数なし

または、

IF "%~1"=="" ECHO 引数なし

ですが、 どちらも上手く行かないケースがあるので、

SET TEST=%1
IF NOT DEFINED TEST ECHO 引数なし

がお勧めです。

環境変数の部分文字列の有無(空)の判定も同様です。

IF "%AAA:~3%"=="" ECHO 空

のような判定は危険です。

SETLOCAL ENABLEDELAYEDEXPANSION
IF "!AAA:~3!"=="" ECHO 空

または、

SETLOCAL ENABLEDELAYEDEXPANSION
SET TEST=!AAA:~3!
IF NOT DEFINED TEST ECHO 空

なら安全です。

テキストファイルを読み込んで、XXXXをYYYYに変更して、元のファイルに書き込む例です。

call :sub は使いません。複文だけです。
setlocal ～ endlocalのネストを使って、遅延展開を、外では オフ、中では オン にします。

editfile.cmd ファイル

@echo off
setlocal disabledelayedexpansion
set test=%1
if not defined test goto :eof
set line=
for /f "delims=" %%a in ('find /n /v "" ^< %1 ') do (
if not defined line call > %1
(set line=%%a)
setlocal enabledelayedexpansion
(set line=!line:XXXX=YYYY!)
(echo,!line:*]=!) >> %1
endlocal
)

テキストファイルを読み込んで、XXXXをYYYYに変更して、元のファイルに書き込む例です。

editfile.cmd ファイル

@echo off
setlocal disabledelayedexpansion
set test=%1
if not defined test goto :eof
set line=
for /f "delims=" %%a in ('find /n /v "" ^< %1 ') do (
if not defined line call > %1
(set line=%%a)
call :sub >> %1
)
goto :eof
:sub
setlocal enabledelayedexpansion
set line=!line:XXXX=YYYY!
echo,!line:*]=!

一般的なドロップハンドラは、ファイル名に半角空白があるときだけ、"～"で囲むようです。
なので、ファイル名に=;,や全角空白だけが含まれているときは、"～"で囲まれません。

ところが、CMD.EXEのバッチやFORの引数では、半角空白、タブ、改行だけでなく、=;,も分離符です。:-(
と、ここまではよく知られていますが、さらに、全角空白も分離符みたいです。:-<

なので、ファイル名に=;,や全角空白を使うのは、出来れば、避けたほうがよいでしょう。
半角=;,の代わりに全角の＝；、を使うとか、全角空白の代わりに半角空白１～２個を使うとか。

もし、それが避けがたいなら、敢えて、半角空白も併せて使うようにすればよいでしょう。

()&%!'`~^@なども、CMD.EXEで使われる制御文字なので、同様です。
中でも、%!は、"～"ではエスケープできないので、特に、避けたい。

例えば、エクスプローラのリネームで連番を付けると、AAA (n).XXXのような名前になりますが、これも、半角空白を入れているところが憎いところです。:-p

ほかに、#は、URLでエスケープに使われるので、避けたほうがよいでしょう。

同様に、[]!'は、Excelで使われるので、避けたほうがよいでしょう。

eol は end of line ではありません。除外行行頭文字です。exclusive of line ?

ヘルプの
eol=c           - 行末のコメント文字を指定します (1 文字)。
は嘘です。行頭が正しい？

eol文字のデフォルトは ; です。これは要注意です。eol=は必須と思ったほうが安全です。

eol文字がdelims文字に含まれると、eol文字は無効になります。

なので、eol文字をなくすには、delims文字と同じものを指定するとよいでしょう。

しかし、delims文字がないときに、eol文字をなくすのは、難しいです。

そこで、データに含まれない文字、制御文字を指定するとよいでしょう。
メモ帳では、DEL文字が使えます。入力は、Ctrl+BSキー、または、Alt+テンキーの0127です。
コマンドプロンプトでは、いろんなものが使えますが、^L や ^[ が使えます。

逆に、delims文字と同じものをeol文字に指定したいときは、困ります。

そういうときには、FOR文を２段組みにするとよいでしょう。

FOR /F "delims= eol= " %%I IN (...) DO FOR /F "eol= delims= " %%J IN ("%%I") DO ...
    delims=なし eol=空白                   eol=なし delims=空白

例えば、DIR /X の結果から短いファイル名を取り出すには、

FOR /F "delims= eol= " %%0 IN ('dir/x %1') DO FOR /F "tokens=4" %%4 IN ("%%0") DO ECHO %~dps1%%4
    delims=なし eol=空白                   　   eol=; delims=空白タブ

もし、テキストファイルの中身をひとまとめにして環境変数にセットし、各行にばらして取り出すことができれば、テンポラリファイルの代わりになります。

ポイントの第一は、
改行文字の扱いは難しいので、代わりにDEL文字を使います。
DEL文字はメモ帳でCtrl+BSキーかAlt+テンキーの0127で入ります。

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET Z=
FOR /F "delims=" %%I IN ('dir /b ^|find /n /v ""') DO SET Z=!Z!%%I

:LOOP
FOR /F "delims= tokens=1*" %%I IN ("!Z!") DO (
SET L=%%I
FOR /F "delims=[]" %%K IN ("%%I") DO ECHO=%%K !L:*]=!
SET Z=%%J
)
IF DEFINED Z GOTO :LOOP

他のポイントは、
遅延展開
空行認識と行番号付加のために、find /n /v ""
１行取り出しは、FOR /F "delims= tokens=1*"
行番号取り出しは、FOR /F "delims=[]"
行番号除去は、!L:*]=!
終端判定は、IF DEFINED Z

各ポイントには、それぞれ理由があります。

FOR変数やバッチパラメータの%~sIによる短いファイル名の取り出しには障害があるようです。

例えば、
for %I in (aa.aaaa) do echo %~sI
だと、
%~fsI C:\DOCUME~1\User\MYDOCU~1\AA4790~1.AAAaa
%~nsI AA4790~1
%~xsI .AAAaa

また、
for %I in (aaa.aaaa) do echo %~sI
だと、
%~fsI C:\DOCUME~1\User\MYDOCU~1\AAA~1.AAAa.aaaa
%~nsI AAA~1.AAAa
%~xsI .aaaa

などのように、後ろにゴミが付きます。ゴミの付き方は、いろいろです。

で、その代替方法ですが、

for %I in (aa.aaaa) do for %J in ("%~dpsI%~nxI") do echo %~sJ

とすればよいようです。

つまり、一度に短い名前にするのではなく、先にディレクトリパスを短い名前にしてから、次にファイル名を短い名前にするとよいようです。

「詳細」ならカラムの昇順や降順で連番を付けることができますが、任意の順序に連番を付けるにはどうするか？
「アイコン」や「並べて表示」なら任意の順序に並べることができるので、そのあと複数選択、先頭を右クリックして「名前の変更」で連番を付ければよいでしょう。

先頭値は、[固定値 ](n).ext の形式で与えます。例えば、
AAA (1).txt
AAA (0).txt
AAA (10).txt
AAA (-10).txt
(1).txt
などです。

(n) AAA.txt のような名前にはできないので、一旦、(n).txt にしてから、
REN "*).txt" "*) AAA.txt"
で変えるとよいでしょう。

RMDIRコマンドのオプションなしは、空のフォルダだけを削除します。
RMDIRコマンドの/Sオプションで、リカーシブにすべてのフォルダを削除することはできますが、空のフォルダだけを削除することはできません。
では、どうするか？

RmEmptyDir.CMD Dir

FOR /D %%1 IN (%1\*) DO CALL %0 "%%1"
RMDIR %1

MoveFolder.CMD 元フォルダ 先フォルダ

@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0" "%~f1" "%~f2"
GOTO :EOF
@end
var fso=new ActiveXObject('Scripting.FileSystemObject');
if(fso.FolderExists(WScript.Arguments.Item(1))){
  var Folder=fso.GetFolder(WScript.Arguments.Item(0));
  for(var e=new Enumerator(Folder.Files);!e.atEnd();e.moveNext()) e.item().Move(WScript.Arguments.Item(1)+'\\');
  for(var e=new Enumerator(Folder.SubFolders);!e.atEnd();e.moveNext()) e.item().Move(WScript.Arguments.Item(1)+'\\');
}

ファイルだけなら、MOVE 元フォルダ\* 先フォルダ で行けます。
フォルダも、ひとつずつなら、MOVEコマンドで移動できます。
では、ファイルもフォルダもすべて移すにはどうするか？

MoveFolder.CMD 元フォルダ 先フォルダ

@IF '%2'=='' (
ECHO Usage: %~nx0 SourceDir DestDir
) ELSE (
FOR %%1 IN (%1\*) DO MOVE "%%1" %2\
FOR /D %%1 IN (%1\*) DO MOVE "%%1" %2\
)

性能はさておき、ワイルドカードを使って判定するには、Filter()が使えます。

Function FileExists(Spec)
Dim fso
Dim ParentFolderName
Dim Shell
Dim Folder
Dim FolderItems
Set fso=CreateObject("Scripting.FileSystemObject")
Spec=fso.GetAbsolutePathName(Spec)
ParentFolderName=fso.GetParentFolderName(Spec)
Set Shell=CreateObject("Shell.Application")
Set Folder=Shell.NameSpace(ParentFolderName)
Set FolderItems=Folder.Items()
FolderItems.Filter &H40,(fso.GetFileName(Spec))
FileExists=FolderItems.Count
End Function

ただし、Filter()はショートカットなどの非表示の拡張子を除外して判定します。

FileSystemObjectのCopyFile()、MoveFile()、DeleteFile()ではワイルドカードが使えるのに、FileExists()では使えません。:-(

以下のような代替方法は、ワイルドカード相当の判定式を作るのが面倒なのと、ファイル数の多いフォルダでは性能も遅そうです。:-(
For Each File In Folder.Files
  If ワイルドカード相当の判定式 Then Exit For
Next

そこで、ワイルドカードが使えるCopyFile()、MoveFile()で代替できないものか？

Function FileExists(Spec)
Dim fso
Dim ParentFolderName
Set fso=CreateObject("Scripting.FileSystemObject")
ParentFolderName=fso.GetParentFolderName(Spec)
If ParentFolderName="" Then ParentFolderName="."
On Error Resume Next
fso.CopyFile Spec,ParentFolderName
'fso.MoveFile Spec,ParentFolderName
FileExists=Err.Number<>53
End Function

CopyFile()、MoveFile()のいずれを使っても可能ですが、CopyFile()のほうが性能が良さそう。

多重に実行されると困る場合は、ロックを取って、逐次化します。

Option Explicit
Dim fso
Dim Lock

Set fso=CreateObject("Scripting.FileSystemObject")
Sub TryLock
  On Error Resume Next
  Set Lock=fso.OpenTextFile(WScript.ScriptFullName&":Lock",8,True)
End Sub
Do
  TryLock
  If Err.Number=0 Then Exit Do
  WScript.Sleep 1000
Loop
WScript.Echo "Locked"

ファイルの追加書きオープンで排他ロックを取ります。
ただし、スクリプトファイルだと、起動できなくなるので、NTFSストリームにします。
もし、NTFSでない場合は、:Lockを.Lockに変えて、別ファイルにするとよいでしょう。

予兆から3日経ちましたが、今回のは大地震の予兆ではなさそう。

地震情報を調べてみると、予兆の少し後に地震が起きてるようです。
ということは、電子機器の故障などではなく、やはり、地震に由来する電磁波の仕業なのでしょう。

予兆１
発生時刻 2008年2月2日　13時前後

情報発表時刻 2008年2月2日　13時12分
発生時刻 2008年2月2日　13時7分ごろ
震源地 茨城県沖
深さ 40km
規模 マグニチュード 4.1

予兆２
発生時刻 2008年2月3日　2時42分ごろ

情報発表時刻 2008年2月3日　3時2分
発生時刻 2008年2月3日　2時57分ごろ
震源地 宮崎県北部山沿い
深さ 150km
規模 マグニチュード 3.7

2008年2月3日の桜島の噴火も関係あるかも知れません。

テキストファイルなどにカウンタを書いて、＋１で更新して連番を生成するのは、多重処理に耐えません。
では、どうするか？

テキストファイルへの空行の追加書きで、行数をカウンタに使えば、おｋ。

Option Explicit
Dim fso
Dim Lock
Dim SEQ

Set fso=CreateObject("Scripting.FileSystemObject")
Sub TryLock
  On Error Resume Next
  Set Lock=fso.OpenTextFile(WScript.ScriptFullName&".SEQ",8,True)
End Sub
Do
  TryLock
  If Err.Number=0 Then Exit Do
  WScript.Sleep 100
Loop
Lock.WriteBlankLines 1
SEQ=Lock.Line-1
Lock.Close
WScript.Echo SEQ

2008年2月3日午前2時42分頃、2回目の予兆がありました。

2008年2月2日午後1時前後(時計を確認しなかったので)に大地震の予兆と思しき現象(電子機器の異常動作)がありました。数日中に大地震の可能性があります。ご用心ください。

前回の予兆発生は2005年3月20日の福岡県西方沖地震(玄海沖地震)だったので、九州北部地方は特にご用心ください。

バイナリは、FileSystemObjectでなく、ADODB.Streamを使うのが普通ですが。。。

ANSI(シフトJIS)でも、それなりに読み書きできることがあります。
シフトJISの中のANSIコードの範囲で、コード=Asc(文字)、文字=Chr(コード)。

また、Unicodeなら、若干の限界がありますが、かなり読み書きできます。
2バイト単位の読み書き。先頭のバイトオーダマーク(0xFEFF)、末尾の端数バイト。
バイトオーダによって、0xHHhh がLittle EndianではhhHH、Big EndianではHHhhの順。
HH=AscW(文字) \ 256
hh=AscW(文字) Mod 256

また、スクリプトでは、ADODB.Streamならバイナリおｋ、とは行きません。
スクリプトには、バイト型やバイト配列がありません。:-(
読むときは、バイト配列をバイト文字列として、MidB()などの～B()を使います。
書くときは、Type=adTypeText、Charset="unicode"で、アンパック形式(0x00hh)のUnicode文字=ChrW(&Hhh)を書き込んで、Type=adTypeBinaryに変えて、Stream内でパックします。
ひとつのStreamでRead/Writeで詰めることもできますが、ふたつのStreamでCopyToしたほうが簡単です。