inputB(1,#1)在按字节读取WAVE文件时 会不会有遗漏?

kickmaster(忘情天师)还没有出现吗?
谁看了帮忙UP一下吧

解决方案 »

  1.   

    用二进制方式读取：Dim TempFile As Long
    Dim LoadBytes() As ByteTempFile=FreeFile
    Open 文件名 For Binary As #TempFile
    Redim LoadBytes(1 To Lof(TempFile)) As Byte
    Get #TempFile,,LoadBytes
    Close TempFile
      

  2.   

    TempFile=FreeFile
    FREE FILE是指什么?....
    请指教!
      

  3.   

    MSDN：FreeFile 函数
          返回一个 Integer，代表下一个可供 Open 语句使用的文件号。语法FreeFile[(rangenumber)]可选的参数 rangenumber 是一个 Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。说明使用 FreeFile 提供一个尚未使用的文件号。
      

  4.   

    thank you~~~~
    语法通过了,
    但是你要告诉我怎么输出!
    我刚才用PRINT LOADBYTES
    结果都是乱码啊.
    怎么办?
    救人救到底!!
      

  5.   

    二进制文件 在文本察看工具下看时 当然是乱码。输出：Dim TempFile As LongTempFile=FreeFile
    Open 文件名 For Binary As #TempFile
    Put #TempFile,,LoadBytes
    Close TempFile
      

  6.   

    thank you very much!
    20分送上!
    下次还请多多关照!
    Big Hug from friend!
      

  7.   

    二进制文件 是指 非ASCII码文件（文本文件）。
      

  8.   

    啊,
    还有点问题...
    我想查看这个文件里面的数据,
    怎么做?
    我一直用打印到textbox里面的方法,
    但是刚才运行时候死了两次,
    是不是因为文件数据太多了呢?
    有什么好办法没有?
      

  9.   

    To asciiman()：
    理论上可以用除法算！
    但速度太慢！
    可以用And的办法：Dim BinAndData(1 To 8) As Byte
    Dim BinStr As String*8
    Dim OutStr As string
    Dim I As Long,J As LongFor I=1 To 8
        BinAndData(I)=2^(8-I)
    Next IFor I=LBound(LoadBytes) To UBound(LoadBytes)
        For J=1 To 8
            Mid$(BinStr,J,1)=IIf(LoadBytes(I) And BinAndData, "1", "0")
        Next J
        OutStr=OutStr + BinStr + " "
        
    Next I
      

  10.   

    那试试：Dim TempFile As Long
    Dim I As Long
    Dim ArrayMax As Long,ArrayMin As LongArrayMin=LBound(LoadBytes)
    ArrayMax=UBound(LoadBytes)TempFile=FreeFile
    Open 文件名 For Binary As #TempFile
    For I=ArrayMin To ArrayMax
        Put #TempFile,,LoadBytes(I)
        
    Next I
    Close TempFile
      

  11.   

    zyl910(910：分儿，我来了！)一次次打搅你,实在是不好意思.
    在输出文件时,
    这个文件应该是什么格式呢?
    如果是TXT,DAT的话,打开时一定是乱码,
    而我现在想打开看里面的数据(只要不是乱码就可以)
    这是第一步.(检验数据结构是否和书上写的一样)
    你能告诉我怎么做吗?
      

  12.   

    waiting ,
    waiting......
      

  13.   

    一个好帖子大家看看，绝对能学到知识！：）
    http://www.csdn.net/Expert/topic/509/509268.shtm
      

  14.   

    为什么要用INPUTB这么老土的函数呢，直接用API操作多爽，在API函数库中有一整套以WAV开头的专门操作WARE文件的函数，例如wavOpenfile等等。
      

  15.   

    ：　ldsbeyond2002(流星雨工作室)　
    用API能行吗?
    好想只能播放声音文件.
    我要查看的是其中的数据.
    你试过么?