关于二进制文件处理的问题

Question

dim s() as byte
redim s(filelen("c:\music.wav")-1000) '设该文件的文件头有1000个字节open "c:\music.wav" for binary  as #1
get #1，1001,s  ‘取出该文件的文件体（即出去文件头的数据）...........  ‘请问怎样处理S中的数据，比如将它们全部取反，或其它什么的；
...........  ‘ 而且要能够返回到原文件保存；
...........close #1当然，也可以另保存为另一个文件，当然文件头要一样！
谢谢了

Answer 1

dim s() as byte
redim s(filelen("c:\music.wav")-1000) '设该文件的文件头有1000个字节
dim I as longopen "c:\music.wav" for binary  as #1
get #1，1001,s  ‘取出该文件的文件体（即出去文件头的数据）
For i=LBound(s) to UBound(s)
    s(i)=s(i) Xor &HFF
Next I
put #1,1001,s
close #1

Answer 2

dim s() as byte
redim s(1 to filelen("c:\music.wav")-1000) '设该文件的文件头有1000个字节
dim I as longopen "c:\music.wav" for binary  as #1
get #1，1001,s  ‘取出该文件的文件体（即出去文件头的数据）
For i=LBound(s) to UBound(s)
    s(i)=s(i) Xor &HFF
Next I
put #1,1001,s
close #1