Skip to content

Instantly share code, notes, and snippets.

View kunst1080's full-sized avatar

kunst1080 kunst1080

13 followers · 8 following
View GitHub Profile
@kunst1080
kunst1080 / FizzBuzz1Liner.bat
Last active December 14, 2015 03:39
コマンドプロンプトワンライナーでFizzBuzz ( ref: http://kunst1080.hatenablog.com/entry/2013/02/24/140748 ) （コマンドプロンプト芸）
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))
@kunst1080
kunst1080 / FizzBuzz2.bat
Last active December 14, 2015 05:49
余剰計算なしのFizzBuzz ( ref: http://kunst1080.hatenablog.com/entry/2013/02/26/224615 )
@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 December 14, 2015 14:19
VBScriptから Printscreen・Alt+Printscreen するサンプル
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 May 10, 2023 03:49
VBScriptでマウスポインタを動かしたりクリックしたり座標を取得したりするサンプル
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 December 14, 2015 21:29
シェルスクリプトで、複数コマンドの実行結果を結合（AND OR XOR)するシェル関数
#!/bin/bash
soniq(){
sort | uniq $*
}
concat_commands() {
# $1 … method ( and | or | xor )
# $2 … command
# $3 … command
local _arg=""
@kunst1080
kunst1080 / NearDoc.bat
Last active February 2, 2017 16:31
BATファイルでヒアドキュメントっぽいことを実現するBAT。 内部ではJScriptを使用している。
@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 December 15, 2015 04:39
ざっくり、statのようなものを作成。 Solaris環境でタイムスタンプの確認にstatしたかった。
#!/bin/sh
Usage(){
cat << __EOT__ >&2
ファイルのステータスを確認します。
Usage:`basename $0` ファイル名
【使用例】
$ `basename $0` file.txt
@kunst1080
kunst1080 / JSArray2VBArray.js
Last active December 15, 2015 10:28
JScriptにて、VBArrayを生成する関数。 JScriptからExcelを操作する際に使用するとよいかも。
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 March 31, 2013 07:27
CSVファイルをEXCELに変換するBATファイル。 テキストを解析するのが面倒なので、そこはEXCELの機能を使用。
@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 March 31, 2013 07:29
EXCELファイルをカンマ区切りのCSVファイルに変換する。 EXCELを解析するのが面倒なので、変換にはEXCELの機能を使用。
@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