- 379 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/03/27(木) 06:52:03 ID:H0zHkh4x0]
- >>373
foo_func(v0.2.2以降)とfoo_etc
かなり強引だけど作ってみた
On initに追加、メインメニューの「Functions/wpl to m3u8」で再生が始まる
※c:\temp\test.wpl が対象、パスは便宜変更してください
まあ、TFでこんなことしなくても別のスクリプトを作れば済む話なのだけどｗ
// ----- wpl converter
$register(wpl_input_file,c:\temp\test.wpl)
$register(wpl_output_file,c:\temp\test.m3u8)
$setescape(1)
$setmainmenu(wpl to m3u8,'
$register\{m3u8,
$textfile\{\pwpl_input_file\p,utf8,,,tf:\"
$if\{$strstr\{\ptextfile_line\p,src="\},
$puts\{f,$add\{$strstr\{\ptextfile_line\p,src="\},5\}\}
$puts\{t,$strrchr\{\ptextfile_line\p,"\}\}
$puts\{s,$substr\{\ptextfile_line\p,$get\{f\},$get\{t\}\}\}
$puts\{s,$substr\{$get\{s\},0,$sub\{$strstr\{$get\{s\},"\},1\}\}\}
$get\{s\}$char\{10\}
\}
\"\}
\}
$textwrite\{\pwpl_output_file\p,\pm3u8\p,utf8\}
$execute\{foobar2000.exe,\pwpl_output_file\p\}
')
$setescape(0)
|
 |
