资源文件释放的问题一直困扰着许多程序员，这几天的攻关成果希望能给大家带来福音。


    假设要放入资源文件中的文件已经通过我的程序分割成了若干个文件，且这些文件被按顺序导入了资源文件。
比如“童话.mp3”切割成了，“童话1.mp3”\“童话2.mp3”\“童话3.mp3”\“童话4.mp3”\“童话5.mp3”\“童话6.mp3”……“童话54.mp3”，然后将它们按顺序导入资源文件。
资源序号对应为101-154
释放资源文件的函数如下：
Function AddGroup(ByRef Mains() As Byte, ByRef Sources() As Byte)  '代码完成，by S.R.
Dim a As Long, b As Long, i As Long
a = UBound(Mains) '3
b = UBound(Sources) '5
If a = 0 Then
ReDim Preserve Mains(a + b)
Else
ReDim Preserve Mains(a + b + 1)
End If
For i = 0 To b
    If a = 0 Then
    Mains(a + i) = Sources(i)
    Else
    Mains(a + i + 1) = Sources(i)
    End If
Next i
End Function

Function OutputFile(ByVal cbegin As Long, ByVal cend As Long, ByVal outname As String)
Dim whole() As Byte
Dim temp() As Byte
Dim socode As Long
ReDim whole(0)
For socode = cbegin To cend
Erase temp
temp = LoadResData(socode, "CUSTOM")
Call AddGroup(whole, temp)
Erase temp
Next socode
Open outname For Binary As #1
Put #1, , whole
Close #1
Erase whole
ReDim whole(0)
Erase temp
socode = 0
End Function

对上面的函数进行调用可以将例子“童话.MP3”重新释放出来

调用方法：
Call OutputFile(101,154,"F:\童话.mp3")
即可从资源文件释放出音乐。

    我们大家知道，音乐文件和应用程序文件一样，是结构最严谨的文件。我测试了音乐文件和应用程序的：分解→分别按顺序添加到资源文件→从应用程序释放的整个过程。没有出现问题。也就是说，可以比较肯定我这个方法是彻底解决了网上传的“资源文件释放时会多出一两个字节”的问题。当然，也有可能是我的疏忽，我的程序可能还存在这样那样的问题，希望大家指出。

    下面送上的是我写的文件分割工具，可以精确到kb进行文件分割。绝无问题。但是，特大文件的分割，是不可以用我这个程序的。

【以上所述内容毫无保留且本人担保是原创，且担保是在本人电脑上正确运行了的】
【说明：所有内容均免费发布，版权归本人所有，免费提供学习】