用的是KMP的播放列表来做的程序,格式是.KPL
程序段如下:
複製內容到剪貼板
代碼:
OnPlayList
{
_filename = ''
_title = ''
_len = ''
_pl = FOPEN(reference0,'r')
while (_pl = FREAD(reference0)) != -1
{
if SUBSTR(_pl, 0, 4) == 'File'
{
if SUBER(_pl, 5, 1) == '='
{
_filename = SUBSTR(_pl, 6, STRLEN(_pl)-6)
}
else
{
_filename = SUBSTR(_pl, 7, STRLEN(_pl)-7)
}
}
elseif SUBSTR(_pl, 0, 5) == 'Title'
{
if SUBSTR(_pl, 6, 1) == '='
{
_title = SUBSTR(_pl, 7, STRLEN(_pl)-7)
}
else
{
_title = SUBSTR(_pl, 8, STRLEN(_pl)-8)
}
}
elseif SUBSTR(_pl, 0, 6) == 'Length'
{
if SUBESTR(_pl, 7, 1) == '='
{
_len = SUBSTR(_pl, 8, STRLEN(_pl)-8)
}
else
{
_len = SUBSTR(_pl, 9, STRLEN(_pl)-9)
}
}
"\0\s[3]正在播放:\n%(_title)\![open,file,%(_filename)]\__w[%(_len)]"
}
}
现在还是未完成,因为编写过程中遇到一个问题
_filename
_title
_len
这几个参数最后无法调出.查了WIKI没发现什么问题(至少本人没发现),现在百思不得其解中,所以请各位帮帮忙,麻烦看一下,或者做一下相应的调整,在下感激不尽~~~
PS:本程序段未完成,请不要擅自下载使用,不然如出现任何问题后果自负
[
本帖最後由 ~朔~ 於 2009-8-16 21:59 編輯 ]