板 1- 前 次 新 ﾚｽ
スクリプト投稿スレ
[64]unnamed.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
-完-
前 次