求助:读取WAV文件改变字节位置

lgh992 2013-12-17 08:32:13
现在有个WAV录音文件,录音文件开始512个字节是文件头没有变化,之后每256字节的前256字节和后256字节交换了位置,请教如果读取并交换使其正常

文件下载
...全文
230 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lgh992 2013-12-24
  • 打赏
  • 举报
回复
谢谢了
lgh992 2013-12-18
  • 打赏
  • 举报
回复
谢谢,去试一下
of123 2013-12-17
  • 打赏
  • 举报
回复
Dim bytBlock1(255) As Byte, bytBlock2(255) As Byte

Open App.Path & "\test.wav" For Binary As #1
Open App.Path & "\new.wav" For Binary As #2
Get #1, , bytBlock1
Get #1, , bytBlock2
Put #2, , bytBlock1
Put #2, , bytBlock2
Do Until EOF(1)
    Get #1, , bytBlock1 
    Get #1, , bytBlock2
    Put #2, , bytBlock2 
    Put #2, , bytBlock1
Loop
Close #2
Close #1

807

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧