#atok単語登録MortScript
#=============
#007SHで動作確認
MS-IME用辞書のみ使用できます。
#辞書内のコメントなどは削除してください。
#最終行は改行しないでください。
#（登録作業自体に支障はありませんが、
#単語登録ウィンドウが開いたまま終了します。）
#=============
#辞書のパス
text = "\My Documents\ime.txt"
aw = "単語登録"

#ファイルが無ければ警告して終了
If( FileExists( text ) = 0 )
	Message( "ファイルがありません")
	Exit
EndIf
contents = ReadFile ( text )
SaveClip = ClipText()
i = 0
ForEach line in split ( contents, "^LF^", 0 )
	Split( line ,"^TAB^", 0, Yomi,Tan,hin)
	SetClipText( Tan )
	Run("\Program Files\KeyInputEmulator\KeyInputEmulator.exe","ctrl+7")
#	SleepMessage(2, "単語^NL^"&ClipText(),"登録する単語")
	#"単語登録"がアクティブになるまで待つ
	Slp = 1
	While( WndActive( aw ) = 0 )
		Sleep( 1000 )
		If ( Slp >= 5 )
			Exit
		EndIf
		Slp = Slp + 1
	EndWhile
	SetClipText( Yomi )
#	SleepMessage(2, "読み^NL^"&ClipText(),"登録する読み")
	SendCtrlKey( aw ,"v" )
	MouseClick(230,290)
	i = i + 1
	SleepMessage(1,"これ無いと無理みたい")
EndForEach
SetClipText( SaveClip )
Message(i&"個登録完了しました。")