ちょっとバッチとVBS書いた

東電のExcelファイルを落としてきて、変わったところを調べる。
これはバッチ。

wget http://www.tepco.co.jp/images/tokyo.xls
CScript.exe XLS2TXT.vbs tokyo
fc tokyo.txt     .\old\tokyo.txt
pause

これはバッチから呼んでいるVBS。

Option Explicit
Const xlText = -4158
Dim XL,FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set XL  = WScript.CreateObject("Excel.Application")
XL.Visible = True
SaveAsTxt(WScript.Arguments(0))
XL.Quit
WScript.Quit 0

Private Sub SaveAsTxt(ByVal FileName)
    Dim WB,CurrentDir
    CurrentDir = FSO.GetFile(WScript.ScriptFullName).ParentFolder.Path
    Set WB = XL.Workbooks.Open(CurrentDir & "\" & FileName & ".xls")
    WB.SaveAs CurrentDir & "\" & FileName & ".txt" ,xlText
    WB.Close False
End Sub

事前にoldディレクトリに比較対象になるファイルがないとfcが妙なことになる。

fcの結果をtokyo-diff.txtとかにリダイレクトしてから、notepadで開くとかしても、fcとかじゃなくて、windiffとかdfでもいい。