; jyuuhuku_line.ahk

; 2行以上続けて同じ行があれば、重複した行を削除します(行は論理行)。
; アイコンに対象ファイルをドロップすれば開始されます。
; AutoHotkeyインストール時に、"Enable drag & drop onto scripts" を有効にしないと
; 動作しません(windows95/98では無効)。


rep_file = %A_Temp%\rep_temp.txt
if (FileExist(rep_file))
	FileRecycle, %rep_file%
Loop, Read, %1%, %rep_file%
{
	if (Clipboard <> A_LoopReadLine)
	{
		FileAppend, %A_LoopReadLine%`n, %rep_file%
		Clipboard := A_LoopReadLine
	}
}
Sleep, 200

Loop %0%{
	GivenPath := %A_Index%
	Loop %GivenPath%{
		LongPath = %A_LoopFileLongPath%
		break
	}
}
SplitPath, LongPath, , dir, , no_ext
FileMove, %1%, %dir%\%no_ext%.bak, 1
FileMove, %rep_file%, %LongPath%, 1
MsgBox, done
return