【求助】一个WAV文件头的问题，有空的朋友帮忙写个小程序，谢谢

2005-04-07 07:36:17 150 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

eCognition易康面向对象分类批量选择样本，批量导出shp 可以的，使用这个工具条最右边那个三角尺manual editing toolbar，这是用来直接指定类别的，咱们可以拿它选完以后把指定的类别转成训练样本。另一个好处是，这个选出来的样本可以直接导出成shp，但select sample是不可以的，只能导出TTAMask也就是栅格掩膜。如果要导出shp，要在转之前导出。中间那条有点点的红线就是我的鼠标轨迹，只要碰到的对象就会全部选中，然后一点3的那个按钮就直接全部划分为林地了，十分丝滑。在弹出来的工作条里，首先选择你的类别，比如这里选一个forest。阅读详情

一个保存公司电话录音的硬盘误格式化，通过恢复软件，找回了一部分数据。皆为wav格式，不过头文件好像已经被损坏了，不能播放。

经测试把目前文件的前三行（用UltraEdit-32打开后）用WAV头部覆盖后可以正常播放。见附图所示，不过目前文件有上万个，不可能一个一个去换。

希望哪个朋友有空能帮个忙写个批处理，能够自动遍历当前目录下的所有wav文件，并把头部三行替换成附件中的头文件就行了。

万分感谢。

附件链接：http://www.d4e.org/attachment.php?attachmentid=88041

...全文

MIKE21 MIKE软件教程 0.1 软件介绍与教学目录 MIKE 21是一个专业的工程软件包，用于模拟河流、湖泊、河口、海湾、海岸及海洋的水流、波浪、泥沙及环境问题。在MIKE Zero集成平台中，主要有MIKE11，MIKE21，MIKE3三类软件，分别对应一维，二维，三维的水动力模型模拟。同时还包括MIKE HYDRO，MIKE FLOOD等其他功能，各软件的具体介绍请参考DHI公司的官方文档，在此不作赘述。学习过程中，对于任何操作界面的疑问，建议大家仔细阅读帮助文档（在有疑问的界面按F1调出），同时官方也提供了对应的线上和线下教学服务（免费+收费）。阅读详情

avenger

非技术类 743 成员 26,904 内容

+ 关注 + 加入社区

切换为时间正序

avenger 2005-04-10

打赏
举报

感谢DRL的billholt帮忙，问题已完美解决，修复程序已经上传到 www.phpe.net/WaveRepair.zip 两天后删除，结贴，感谢所有关注的朋友。

avenger 2005-04-09

打赏
举报

麻烦楼上的给编译成exe文件可以吗？我没有编译器，sorry，谢谢。a@phpe.net

avenger 2005-04-09

打赏
举报

谢谢

homezj 2005-04-09

打赏
举报

写错了一句
Open Text2.Text & "\" & s For Binary As #Fn
换成
Open path & "\" & s For Binary As #Fn

homezj 2005-04-09

打赏
举报

'这么简单的事还要人帮呀？不就是每个文件前的64个字节吗？用下面代码，一次搞定！

使用前请自己备份，错了别怪我就行了！

Option Explicit
Private UserCancel As Boolean
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Text1.Text = "模板文件名"
Text2.Text = "查找文件夹"
End Sub
Private Sub Command2_Click()
UserCancel = True
End Sub
Private Sub Command1_Click()
Dim hd(63) As Byte, Fn As Long, path As String, s As String
If Dir(Text1.Text) = "" Then Exit Sub
Command1.Enabled = False
UserCancel = False
Fn = FreeFile
Open Text1.Text For Binary As #Fn
Get #Fn, , hd
Close #1
path = Text2.Text
If Right$(path, 1) = "\" Then path = Left$(path, Len(path) - 1)
s = Dir(path & "\*.wav")
Do While s <> ""
Open Text2.Text & "\" & s For Binary As #Fn
Put #Fn, , hd
Close #Fn
DoEvents
If UserCancel Then Exit Do
s = Dir()
Loop
Command1.Enabled = True
End Sub

avenger 2005-04-09

打赏
举报

已上传到 http://www.phpe.net/WAV.rar 谢谢帮忙

cly2004 2005-04-09

打赏
举报

clyily@126.com发过来吧

cly2004 2005-04-09

打赏
举报

http://www.d4e.org/attachment.php?attachmentid=88041
你的这个连接进不去啊，得不到东西，要不然试一下。

wuxudong82 2005-04-09

打赏
举报

帮顶! ^_^

flyingZFX 2005-04-08

打赏
举报

没空，不过，还是帮顶! ^_^

【求助】一个WAV文件头的问题，有空的朋友帮忙写个小程序，谢谢

相关推荐