Skip to content

Instantly share code, notes, and snippets.

View hymkor's full-sized avatar

HAYAMA Kaoru hymkor

View GitHub Profile
@hymkor
hymkor / GodExcel.cmd
Last active July 5, 2018 12:50
神Excel << テキストファイル ; ref: https://qiita.com/zetamatta/items/49729411cfe9ea1773f0
@set args=%*
@powershell "iex( (@('','','')+(cat '%~f0'|select -skip 3))-join[char]10)"
@exit /b %ERRORLEVEL%
$std_cell_width = 1.50
function Split-LikeShell($s){
$rx = [regex]'"[^"]*"'
while( $true ){
$m = $rx.Match($s)
@hymkor
hymkor / showver.cmd
Last active October 13, 2017 04:21
Windowsの実行ファイルのバージョン情報、bit数、md5sum を表示するバッチファイル(PowerShellコード内蔵)
@set args=%*
@powershell "iex ((@('')*3+(cat '%~f0' | select -skip 3))-join [char]10)"
@exit /b %ERRORLEVEL%
function Byte2DWord($a,$b,$c,$d){
return ($a+256*($b+256*($c+256*$d)))
}
function Get-Bits($path){
$bin = [System.IO.File]::ReadAllBytes($path)
@hymkor
hymkor / checksum1.cmd
Created September 7, 2017 06:15
フォルダーにある特定拡張子の全ファイルのチェックサムのリストを作るバッチ(標準コマンドだけで Ok)
@echo off
for %%I in (
"%windir%"
"%windir%\system32"
) do pushd %%I & call :sum & popd
exit /b
:sum
echo.
echo ******************** %CD% *************************
@hymkor
hymkor / make.cmd
Last active July 4, 2017 02:52
「Visual Studio コマンドプロンプト」以外でもコマンドラインビルドできるようにPATHが通ってなくとも自力で msbuild.exe を検索して呼び出すバッチ
for /D %%I in (C:\Windows\Microsoft.NET\Framework\v*) do set "MSBUILD=%%I\MSBuild.exe"
"%MSBUILD%" xxxxxxx.sln /p:Configuration=%1
@hymkor
hymkor / Module1.vb
Last active June 30, 2017 04:50
VB_Net で CStr(Nothing) は "" になってくれるかを検証 → ならない
Module Module1
Sub Main()
Dim foo As String = Nothing
Dim bar As String = CStr(foo)
Console.Write("CStr(Nothing)={0}", If(bar, "(null)"))
Console.ReadLine()
End Sub
End Module
@hymkor
hymkor / todaygit.ps1
Last active July 3, 2017 23:49
Do `git status` on all repository where we did `git commit` recently
# $today = Get-Date -Format "yyyy-MM-dd"
$done = @{}
Join-Path $env:appdata 'NYAOS_ORG\nyagos.history' |
%{ Get-Content $_ -Encoding utf8 } |
?{ $_ -match '^[g]it commit' } |
%{
$private:tmp=($_ -split "`t")
# $private:from = (Get-Date).AddDays(-3).ToString("yyyy-MM-dd")
$private:dir=$tmp[1]
if( (Test-Path $dir) -and (-not $done.ContainsKey($dir)) ){
@hymkor
hymkor / su.cmd
Created May 29, 2017 03:20
最小の su.cmd
@setlocal
@if not "%1" == "" @set "ARG=/c %*"
powershell "(New-Object -Com Shell.Application).ShellExecute('cmd',$Env:ARG,'','runas')"
@endlocal
@hymkor
hymkor / tt.cmd
Last active April 7, 2017 05:16
Twitter post batchfile by twty and vim
@echo off
setlocal
set "TWEET=%TEMP%\tweet.txt"
type nul > "%TWEET%"
gvim -c "e ++enc=utf8" "%TWEET%"
if errorlevel 1 exit /b
for %%I in (%TWEET%) do if %%~zI LEQ 1 exit /b
twty -ff "%TWEET%"
endlocal
@hymkor
hymkor / gist:5e6a4dd8212d61ce3d4c2c94f46642ed
Last active March 10, 2017 08:40
strlen の戻り値は size_t (unsigned)
$ cat foo.c
#include <stdio.h>
#include <string.h>
int main()
{
int zero=0;
puts( zero > strlen("")-1 ? "true" : "false");
return 0;
}
@hymkor
hymkor / apppath.cmd
Created March 3, 2017 06:42
App Paths に登録されたアプリケーションのフルパスを得るバッチファイル
for /F "skip=2 tokens=2*" %%I in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%1" /ve') do echo %%J