AKAI TSUKI

System development or Technical something

script

remove '#' and empty lines

設定ファイルを確認する際に、コメント行などを表示しないようにする。 コメント行削除する場合には、sedで、 $ cat filename | sed -e '/^#.*$/d' 空行も削除するなら $ sed -e 's/#.*$//' -e '/^$/d' さらに以下を行うと、空行が2回続く場合に1行にまとめ…

VBScriptでExcel(xltx)を保存する。

「xltx形式のExcelをVBScriptで保存する」試してみた。 単にSaveメソッド?で保存するとxlsx形式で保存されてるみたい。単に保存するだけではNGな様子。SaveASメソッドでファイル名を指定して保存するだけでもNGでした。 実際には以下のメッセージのエラ…

FileSearchを利用したサンプルmsdnのサイトより

Sub test1() ' FindFile "test" End Sub Function FindFile(strFileSpec As String) Dim fsoFileSearch As FileSearch Set fsoFileSearch = Application.FileSearch With fsoFileSearch .NewSearch .LookIn = "c:\" .Filename = strFileSpec .SearchSubFolde…

utf-8ってダメなの?

WSHのファイルをUTF-8で保存したの。 実行しようとしたらエラーが出ましたわ。というのも、Visual Web Developer 2005 Express Editionってのを使って VBScriptを書こうとしたらファイルのエンコードがUTF-8なのよね〜。めんどくさい話ですわ。

IEも動かせる

Const BROWSER_WIDTH = 600 Const BROWSER_HEIGHT = 400 Const BROWSER_INIT_X = 10 Const BROWSER_INIT_Y = 10 Const csTitlePostfix=" - Microsoft Internet Explorer" Const clSleep = 400 Const url = "http://www.hatena.ne.jp/" Dim ie, shell, i Set …

引数も使える

Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I) Next

でフォルダ作成

Const LOG_FOLDER_PATH = "C:\" Dim dtNow, dateStr dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True dateStr = objRegExp.Replace(dtNow,"") Dim createFolderPath createFolderPath = LOG_FOLDER_PATH & dat…

日付を使ってみる

Dim dtNow, ret dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True ret = objRegExp.Replace(dtNow,"") WScript.Echo ret

ほうほう

Dim setpath setpath = "C:\foo" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call RenameForCheckedFiles(objFolder, "foo.gif", ".gif") sub RenameForCheckedFiles(folder, rBeforeStr,…

なるほど

Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call MakeFilePathList(objFolder, fileList) Call OutPutText(fileList) sub MakeFilePathList…

Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) For Each objFile In objFolder.Files fileList = fileList & objFile.Path fileList = fileLis…