VB如何提取WAV文件的数据

Question

要详细的说明谢谢了

Answer 1

提取数据还是播放
只是读取数据的话 用二进制读文件

读写二进制文件的方法和读写随机文件的方法基本相同,下面是相关的语句格式及其说明:
格式: Get [#]fileNumber ,[Pos], Var
功能: 用二进制方式,从文件的中指定的位置开始读取,所给变量长度的数据
说明:
(1)FileNumber是以二进制方式打开的文件号.
(2)Pos用来指定读写操作发生时的字节位置,若省略,则使用当前文件指针位置.
(3)Var是用来存放读出的数据的变量.该语句会自动根据var变量包含的字节长度读取适当的文件,如果Var是一个可变长度的字符串变量,则传送的字节数等于Var中目前的字节数.对于文件长度的判断我们可以使用Lof()函数,Eof()函数检查文件的结尾位置.
下面的代码复制studert.txt文件到student1.txt文件中
Dim ar As String * 1, i As Integer
Open "c:/student.txt" For Binary As #1
Open "c:/student2.txt" For Binary As #2
For i = 1 To LOF(1)
Get #1, , ar
Put #2, , ar
Next i
Close #1, #2

/////////////////////////////////////////////////////
播放的话
1.可以用API:
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long

Private Sub Form_load()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV" '此处为路径
Result = sndPlaySound(SoundFile, 1)
End Sub
'
'
2.使用WINDOWS MEDIA PLAYER控件
'
在窗体添加一个WINDOWS MEDIA PLAYER,然后修改代码如下:
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "F:\赤道和北极.mp3"
WindowsMediaPlayer1.Controls.play
End Sub
'
'
3.使用Multimedia MCI控件,在窗体加入Microsoft Multimedia controls控件,修改代码:
'
Private Sub Form_Load()
MMControl1.Visible = False
MMControl1.FileName = "F:\赤道和北极.mp3"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub