Skip to content

Instantly share code, notes, and snippets.

View hymkor's full-sized avatar

HAYAMA_Kaoru hymkor

100 followers · 127 following
View GitHub Profile
@hymkor
hymkor / ansistrip.go
Created May 28, 2014 06:41
goによるテキストファイル操作テンプレ（自分用） ref: http://qiita.com/zetamatta/items/a3f421297970468c3dd9
package main
import "bufio"
import "io"
import "os"
import "regexp"
import "fmt"
var ansiStrip = regexp.MustCompile("\x1B[^a-zA-Z]*[A-Za-z]")
@hymkor
hymkor / file0.txt
Created June 12, 2014 05:58
えぇ、このソース GoSub なんてあるのかい！？ ref: http://qiita.com/zetamatta/items/ab1d2a8937e4977249ea
Sub Foo()
'変数宣言もろもろ
'処理もろもろ
GoSug Hoge
Hoge:
Return
End Sub
@hymkor
hymkor / file1.txt
Last active August 29, 2015 14:06
Python で、超タイニー構造体 ref: http://qiita.com/zetamatta/items/69049d560a0bb949d78e
<MARKEDONE:~>
✏ ipy struct.py
10 20 <30>
<MARKEDONE:~>
✏
@hymkor
hymkor / luawk.cmd
Last active August 29, 2015 14:06
Lua を AWK 的に使う支援バッチ：（例）luawk "printf('%03d %s\n',NR,S[0])" ファイル名
::rem:: --[[ vim:set ft=lua:
@lua "%~f0" %* & exit /b 0
]]--
-- requires Lua 5.3
if #arg < 1 then
print( string.format( [[Usage: %s "SCRIPT" files...
S[n] = $n on AWK
NR = NR on AWK
@hymkor
hymkor / lnk.vbs
Last active August 29, 2015 14:06
ショートカットをコマンドラインから作る VBScript
Option Explicit
if WScript.Arguments.count < 2 then
WScript.Echo("Usage: cscript lnk.vbs FILENAME SHORTCUT ... make shortcut")
WScript.Echo(" cscript lnk.vbs SHORTCUT ... print shortcut-target")
WScript.Quit()
end if
dim src : src=WScript.Arguments.Item(0)
dim dst : dst=WScript.Arguments.Item(1)
dim fsObj : set fsObj=CreateObject("Scripting.FileSystemObject")
src=fsObj.GetAbsolutePathName(src)
@hymkor
hymkor / lnk.js
Last active August 29, 2015 14:06
ショートカットをコマンドラインから作る JScript
if( WScript.Arguments.length < 2 ){
WScript.Echo("Usage: cscript lnk.js FILENAME SHORTCUT ... make shortcut")
WScript.Echo(" cscript lnk.js SHORTCUT ... print shortcut-target")
WScript.Quit()
}
var src=WScript.Arguments.Item(0);
var dst=WScript.Arguments.Item(1);
var fsObj=new ActiveXObject("Scripting.FileSystemObject");
src=fsObj.GetAbsolutePathName(src);
dst=fsObj.GetAbsolutePathName(dst);
@hymkor
hymkor / lnk.cmd
Last active August 9, 2023 11:32
ショートカットをコマンドラインから作るバッチファイル(インラインJScript)
rem = 0 /*
@cscript //E:JScript //nologo "%~f0" %1 %2 %3 %4 %5 %6 %7 %8 %9 & exit /b
*/
if( WScript.Arguments.length < 2 ){
WScript.Echo("Usage: lnk.cmd FILENAME SHORTCUT ... make shortcut")
WScript.Echo(" lnk.cmd SHORTCUT ... print shortcut-target")
WScript.Quit()
}
var src=WScript.Arguments.Item(0);
var dst=WScript.Arguments.Item(1);
@hymkor
hymkor / file1.txt
Created September 10, 2014 10:50
JScript をバッチファイル内に埋め込んでみる(shebangもどき) ref: http://qiita.com/zetamatta/items/0e4b28b46d007f308c60
<HAYAMA-PC:~>
✏ foo.cmd
<HAYAMA-PC:C:\Users\Hayama>
rem = 0 /*
ahaha
@hymkor
hymkor / specialfolder.vbs
Created September 10, 2014 16:11
Special folder を得る VBScript
Option Explicit
dim objShell,arg1
set objShell = WScript.CreateObject("WScript.Shell")
for each arg1 in WScript.Arguments
WScript.Echo( objShell.SpecialFolders(arg1) )
next
@hymkor
hymkor / sendto.cmd
Created September 10, 2014 16:28
lnk.vbs と specialfolder.vbs を使って、sendto フォルダーへファイルを置くバッチ
@echo off
setlocal
set "HERE=%~dp0"
shift
for /F %%I in ('cscript //nologo "%HERE%specialfolder.vbs" sendto') do set "SENDTO=%%I"
for %%I in (%0 %1 %2 %3 %4 %5 %6 %7 %8 %9) do cscript //nologo "%HERE%lnk.vbs" "%%I" "%SENDTO%\."
endlocal