色々日記（ざ・めも）

1. そのデバイスのベンダ名、デバイス名を把握する
2. HKEY_LOCAL_MACHINE\SYSTEM\MountedDevicesからベンダ名、デバイス名で該当デバイスのGUIDを探す(バイナリデータ内にベンダ名、デバイス名が入っているので頑張って探す)。
3. HKEY_USERS\<ユーザSID>\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2から前項で調べたGUIDを持つキーを探す。
4. 前項で得たキーのタイムスタンプを調べる。

所要時間

ページ数依存の時間

冊数依存の時間

その他ミスによって生じるロス時間

モデルケース

方法

前処理

自炊する対象を決める

裁断

チェック

タイトル作成

//一般的な書籍タイトル名を生成するマクロ
movetolineno 1, 3;
deleteline;
movetolineno 1, 2;
beginlinesel;
copy;
paste;
//著者名有り
replacedown "([^\\t]+)\\t([^\\t]+)\\t([^\\t]+)\\t([^\\t]+)", "(\\1) [\\2 (\\3)] \\4", regular;
if(result == 0){
	//著者名無し
	replacedown "([^\\t]+)\\t([^\\t]+)\\t\\t([^\\t]+)", "(\\1) [\\2] \\3", regular;
}
if(result == 0){
	//団体名・著者名無し
	replacedown "([^\\t]+)\\t\\t\\t([^\\t]+)", "(\\1) \\2", regular;
}
movetolineno 1, 3;
beginlinesel;
copy;

スキャン

後処理

サイズ取得

$KCODE = "Shift-JIS"

require "rubygems"
require "image_size"
require 'win32/clipboard'

max_width = 0
min_width = 99999
max_height = 0
min_height = 99999

Dir.glob("*.bmp"){ |f|
	open(f, "rb"){ |fp|
		img = ImageSize.new(fp.read)
		
		if max_width < img.width then
			max_width = img.width
		end
		
		if max_height < img.height then
			max_height = img.height
		end
		
		if min_width > img.width then
			min_width = img.width
		end
		
		if min_height > img.height then
			min_height = img.height
		end
		
	}
}

width_diff = ((max_width.to_f-min_width)/max_width*10000).round.to_f/100
height_diff = ((max_height.to_f-min_height)/max_height*10000).round.to_f/100

param = "W/2-#min_width/2,H/2-#min_height/2,#min_width,#min_height\n"

output = ""
output += "w:#min_width-#max_width #width_diff%ずれ\n"
output += "h:#min_height-#max_height #height_diff%ずれ\n"
output += "\n"
output += param

open("c:\\**documents**\\ralpha_trimming_param\\ralpha_trimming_param.txt", "w"){ |wp|
	wp.write output
}

Win32::Clipboard.set_data(param)

IO.popen "c:\\**program**\\hidemaru\\hidemaru.exe c:\\**document**\\ralpha_trimming_param\\ralpha_trimming_param.txt"

w:1642-1658 0.97%ずれ
h:2041-2045 0.2%ずれ

W/2-821,H/2-1020,1642,2041

目視チェック

$Title = "Zoner Photo Studio 15 FREE"

Run("C:\\**program**\\Zoner\\Photo Studio 15\\Program64\\Zps.exe")
WinWaitActive($Title)

WinActivate ( $Title )

ControlClick ( $Title, "", 100 )

ClipPut($CmdLine[1])
Send("^VENTER")

bmp->jpg(カラー)

bmp->jpg(モノクロ)

bmp移動

$BACKUP_DIRNAME = "back"

if not File.exist?($BACKUP_DIRNAME) then
	Dir.mkdir($BACKUP_DIRNAME)
end

Dir.glob("*.bmp"){ |file|
	File.rename(file, "back/" + file)
}

チェック

削除

圧縮

今後の高速化

スキャンデータストレージとしてHDDをRAMディスク or SSDに変更

BTScanの上位互換ツールの発見 or 開発

可読性を多少犠牲にする

機器の更新

総括

>w32tm /stripchart /computer:ntp.nict.jp /period:120

>w32tm /monitor /computers:ntp.nict.jp