XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

64unnamed.ahk:05/02/02 18:52 ID:???
Menu:
Loop, %FilePattern%, 0, 0
{
ErrorLevel = EOF
Loop, Read, %A_LoopFileFullPath%
{
if A_index > 1
break
StringGetPos, Pos, A_LoopReadLine, >, R
if ErrorLevel <> 0
break
Pos ++
StringTrimLeft, Trim, A_LoopReadLine, %Pos%
Menu, Menu, add, %Trim%, Open
}

if ErrorLevel = 0
{
Dat0 ++
Dat%Dat0% = %A_LoopFileFullPath%
}
}
return

Open:
IfNotExist, %Dst%
FileCreateDir, %Dst%
Dat := Dat%A_ThisMenuItemPos%

;dat2htmlを使用
Run,D:\tool\dat2html\DAT2TXT.EXE /c /t %Dat%, %Dst%, HIDE
Menu, Menu, Disable, %A_ThisMenuItem%
Menu, Menu, Show, 0, 0
return

ExitSub:
Loop, %Dst%\*.txt, 0, 0
{
Run,エディタのフルパス %A_LoopFileFullPath%
Sleep, 500
FileDelete, %A_LoopFileFullPath%
}
ExitApp

-完-
70KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08