~朔~

用的是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 編輯 ]