当前位置:编程学习 > VB >>

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

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

文件下载
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
  谢谢,去试一下
补充:VB ,  多媒体
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,