This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
rem ############################# | |
rem 圧縮ファイル解凍バッチ<Lhaz> | |
rem ############################# | |
set HOME_DIR=D:\ | |
set archive=arch.zip | |
set lhaz="C:\Program Files\lhaz\lhaz.exe" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Use Gists to store code you would like to remember later on | |
console.log(window); // log the "window" object to the console |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
Dim WSH,sc | |
Set WSH=CreateObject("WScript.Shell") | |
Set sc = WSH.CreateShortcut("C:\Documents and Settings\xxxx\デスクトップ\メモ帳.lnk") | |
sc.TargetPath = "C:\WINDOWS\notepad.exe" | |
sc.save |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT * FROM SYSIBM.SYSPLAN | |
WHERE NAME = 'pgmName' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT COUNT(NAME),PLNAME FROM SYSIBM.SYSDBRM | |
WHERE NAME IN ('moduleA','moduleB','moduleC') | |
GROUP BY PLNAME | |
HAVING COUNT(NAME) = 3 | |
ORDER BY PLNAME |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT * FROM SYSIBM.SYSTABLES | |
WHERE NAME = 'tblName' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT * FROM <sheme>.PLAN_TABLE | |
WHERE APPLNAME = 'appName' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT * FROM SYSIBM.SYSPACKAGE | |
WHERE NAME = 'packageName' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//msscript.ocxは32bit windowsのみしかない | |
function inputBox(prompt) { | |
var VBS_String = 'InputBox("' + prompt + '")'; | |
var objSC = new ActiveXObject("ScriptControl"); | |
objSC.Language = "VBScript"; | |
var input = objSC.Eval(VBS_String); | |
if (typeof input === "undefined") { | |
input = ""; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//秀丸マクロ | |
//ファイルをリロードして最終行へカーソル移動します。 | |
reopen | |
gofileend |
OlderNewer