剪切mp3格式音乐的功能

易语言 2020-09-02 15:54:16

剪切mp3格式音乐的功能

.如果 (取字节集左边 (mp3文件, 3) = 到字节集 (“ID3”))
字节集到ID3V2_Header (mp3标签头, mp3文件, 10)
ID3V2大小 = 位与 (mp3标签头.Size [1], 127) × 2097152 + 位与 (mp3标签头.Size [2], 127) × 16384 + 位与 (mp3标签头.Size [3], 127) × 128 + 位与 (mp3标签头.Size [4], 127) ' 待考证是否包含10字节
err = 1
mp3文件Tem = 取字节集右边 (mp3文件, 取字节集长度 (mp3文件) - ID3V2大小)
.否则
mp3文件Tem = mp3文件
.如果结束
.判断循环首 (取字节集左边 (mp3文件Tem, 3) ≠ 到字节集 (“TAG”) 且 取字节集长度 (mp3文件Tem) ≥ 4)
FrameSize = 长度计算 (mp3文件Tem)
.如果真 (FrameSize = 0)
.如果 (err = 1)
ID3V2大小 = ID3V2大小 + 10
mp3文件Tem = 取字节集右边 (mp3文件, 取字节集长度 (mp3文件) - ID3V2大小)
err = 0
i = 0
到循环尾 ()
.否则
信息框 (“MP3文件损坏!!”, 0, )
返回 ()
.如果结束

.如果真结束
mp3文件Tem = 取字节集右边 (mp3文件Tem, 取字节集长度 (mp3文件Tem) - FrameSize)
i = i + 1
.判断循环尾 ()
time = 取启动时间 () - time
信息框 (到文本 (time), 0, )
i = i × 26
标签1.标题 = “歌曲总时间:” + 取文本右边 (“0” + 到文本 (取整 (i ÷ 1000 \ 60)), 2) + “:” + 取文本右边 (“0” + 到文本 (取整 (i ÷ 1000 % 60)), 2)