告知欄です
1- レス

スクリプト投稿スレ


[63]unnamed.ahk:05/02/02 18:51 ID:???
適当に作ったのでバグあったらすみません。
ローカルに保存の2ちゃんDATファイルのスレタイの一覧をメニュー表示して、好みのエディタで開く。
・DAT→TXTへの変換は、dat2htmlを使わせてもらった。
・ESCキーを押下する前迄、対象スレをメニューより選択。ESCキー押下でエディタで開く
・引数(スペースを区切りにして(1)(2)の組み合わせで複数指定可)
(1)ファイル :DATファイルのフルパス
(2)ディレクトリ :直下にDATファイルがあるディレクトリのフルパス
#NoTrayIcon
CoordMode, Menu, Screen
;一時ファイルのディレクトリに変更する
Dst = D:\temp
Main:
Dat0 = 0
Loop, %0%
{
Src := %A_index%
FileGetAttrib, Attrib, %Src%
IfNotInString, Attrib, D
{
SplitPath, Src, Name, Dir, Ext, NameNoExt, Drive
if Ext <> dat
Continue
FilePattern = %Src%
}
else
{
IfNotExist, %Src%\*.dat
Continue
FilePattern = %Src%\*.dat
}
Gosub, Menu
}
if Dat0 = 0
ExitApp
Menu, Menu, Show, 0, 0
OnExit, ExitSub
return


名前

E-mail



0ch BBS 2005-10-08