Skip to content

Instantly share code, notes, and snippets.

kunst1080 kunst1080

Block or report user

Report or block kunst1080

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@kunst1080
kunst1080 / FizzBuzz1Liner.bat
Last active Dec 14, 2015
コマンドプロンプトワンライナーでFizzBuzz ( ref: http://kunst1080.hatenablog.com/entry/2013/02/24/140748 ) (コマンドプロンプト芸)
View FizzBuzz1Liner.bat
for /f "usebackq tokens=1,2" %a in (`"for /L %n in (1,1,100) do @set /a (10-%n%3)/10 && set/a (10-%n%5)/10 && echo %n && echo."`) do @(if %a==11 (echo FizzBuzz) else if %a==10 (echo Fizz) else if %a==01 (echo Buzz) else (echo %b))
View FizzBuzz2.bat
@echo off
REM dels
del Seq.txt Fizz.txt Buzz.txt FizzBuzz.txt
del merge.txt merge.pass.txt merge.pass.sort.txt
del out.txt
REM sequences
for /L %%i in (1,1,100) do @echo %%i 4 %%i>>Seq.txt
for /L %%i in (3,3,100) do @echo %%i 3 Fizz>>Fizz.txt
@kunst1080
kunst1080 / PrintScreen.vbs
Last active Dec 14, 2015
VBScriptから Printscreen・Alt+Printscreen するサンプル
View PrintScreen.vbs
Set SHELL = WScript.CreateObject("WScript.Shell")
Set Excel = WScript.CreateObject("Excel.Application")
'KEY CODE
Const VK_SNAPSHOT = &H2C
Const VK_MENU = &H12
Sub PrintScreen
'PrintScreen On
Call API_keybd_event(VK_SNAPSHOT,0,1,0)
@kunst1080
kunst1080 / MouseController.vbs
Last active Jan 18, 2019
VBScriptでマウスポインタを動かしたりクリックしたり座標を取得したりするサンプル
View MouseController.vbs
Set Excel = WScript.CreateObject("Excel.Application")
'キーコード
Const VK_SHIFT = &H10
'マウス定数
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSE_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
COnst MOUSEEVENTF_LEFTUP = &H4
@kunst1080
kunst1080 / def-concat_commands.sh
Last active Dec 14, 2015
シェルスクリプトで、複数コマンドの実行結果を結合(AND OR XOR)するシェル関数
View def-concat_commands.sh
#!/bin/bash
soniq(){
sort | uniq $*
}
concat_commands() {
# $1 … method ( and | or | xor )
# $2 … command
# $3 … command
local _arg=""
@kunst1080
kunst1080 / NearDoc.bat
Last active Feb 2, 2017
BATファイルでヒアドキュメントっぽいことを実現するBAT。 内部ではJScriptを使用している。
View NearDoc.bat
@if (1==1) /*
@if "%~2"=="" goto :USAGE
@if "%~1"=="/?" goto :USAGE
@rem ---------------------------
:MAIN
@CScript //nologo //E:JScript "%~f0" "%~1" "%~2"
@exit /b
@rem ---------------------------
@kunst1080
kunst1080 / stat.sh
Last active Dec 15, 2015
ざっくり、statのようなものを作成。 Solaris環境でタイムスタンプの確認にstatしたかった。
View stat.sh
#!/bin/sh
Usage(){
cat << __EOT__ >&2
ファイルのステータスを確認します。
Usage:`basename $0` ファイル名
【使用例】
$ `basename $0` file.txt
@kunst1080
kunst1080 / JSArray2VBArray.js
Last active Dec 15, 2015
JScriptにて、VBArrayを生成する関数。 JScriptからExcelを操作する際に使用するとよいかも。
View JSArray2VBArray.js
function JSArray2VBArray(arr) {
var vbs = new ActiveXObject("ScriptControl");
vbs.Language = "VBScript";
vbs.AddCode(
"Function makeArray\n"
+ "makeArray = Array(" + arr + ")\n"
+ "End Function\n");
var ret = vbs.Run("makeArray");
return ret;
}
@kunst1080
kunst1080 / csv2xls.bat
Created Mar 31, 2013
CSVファイルをEXCELに変換するBATファイル。 テキストを解析するのが面倒なので、そこはEXCELの機能を使用。
View csv2xls.bat
@if (1==1) /*
@echo off
if "%~3"=="" goto :USAGE
if "%~1"=="/?" goto :USAGE
rem ********************************************************************************
:MAIN
CScript //nologo //E:JScript "%~f0" %*
If ERRORLEVEL 1 goto :USAGE
@kunst1080
kunst1080 / xls2csv.bat
Created Mar 31, 2013
EXCELファイルをカンマ区切りのCSVファイルに変換する。 EXCELを解析するのが面倒なので、変換にはEXCELの機能を使用。
View xls2csv.bat
@if (1==1) /*
@echo off
if "%~2"=="" goto :USAGE
if "%~1"=="/?" goto :USAGE
rem ********************************************************************************
:MAIN
CScript //nologo //E:JScript "%~f0" %*
If ERRORLEVEL 1 goto :USAGE
You can’t perform that action at this time.