用于批量检测MP3文件是否存在卡碟损坏

明天会更好zt

用于批量检测mp3文件是否存在卡碟音的损坏
使用了精益模块、Bass 2.4.5.0模块
代码如下，精益模块自行下载

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
hs	整数型		流句柄
data	整数型	0	声音波形数据

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

BASS_Init (-1, 44100, 0, 取窗口句柄 (), 0)  ' 初始化BASS，这里我用的模块是人家的，但是我只用DLL定义，绝对没有用人家集成翻译的，原因很简单，翻译的不全……
功能_高表置表头 ({ “□”, “文件名”, “路径”, “检测值”, “操作” }, { 30, 200, 400, 100, 100 }, 高表_异常清单)
高表_异常清单.置列类型 (0, #表格常量 .选择型)

子程序名	返回值类型	公开	备 注
_按钮_浏览_被单击

变量名	类 型	静态	数组	备 注
局_路径	文本型

局_路径 ＝ 浏览文件夹 (“选择音频文件目录”, )
如果 (局_路径 ≠ “”)
编辑框_路径.内容 ＝ 局_路径
按钮_开始.禁止 ＝ 假
按钮_开始.禁止 ＝ 真

子程序名	返回值类型	公开	备 注
_编辑框_路径_失去焦点

如果真 (目录_是否存在 (编辑框_路径.内容) ＝ 假)
信息框 (“当前目录不存在，请选择正确的目录！”, 0, , )
按钮_开始.禁止 ＝ 真
_按钮_浏览_被单击 ()

子程序名	返回值类型	公开	备 注
_按钮_删除_被单击

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_int	整数型
局_int2	整数型

局_int ＝ 0
局_int2 ＝ 0
计次循环首 (高表_异常清单.行数 － 1, 局_计次)
如果真 (高表_异常清单.取数据 (局_计次, 0) ＝ 真)
如果 (文件_删除 (高表_异常清单.取数据 (局_计次, 2)))
高表_异常清单.置数据 (局_计次, 4, #表格常量 .文本型, “删除成功”)
局_int ＝ 局_int ＋ 1
高表_异常清单.置数据 (局_计次, 4, #表格常量 .文本型, “删除失败”)
高表_异常清单.置单元格文字颜色 (局_计次, 0, 局_计次, 4, #红色 )
局_int2 ＝ 局_int2 ＋ 1


处理事件 ()
计次循环尾 ()
编辑框_log.加入文本 (“成功删除异常文件：” ＋ 到文本 (局_int) ＋ “个” ＋ #换行符 )
编辑框_log.加入文本 (“异常文件删除失败：” ＋ 到文本 (局_int2) ＋ “个” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_按钮_移动_被单击

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_int	整数型
局_int2	整数型
局_异常目录	文本型
局_移动	逻辑型

如果 (目录_创建 (编辑框_路径.内容 ＋ “\异常文件”))
局_int ＝ 0
局_int2 ＝ 0
局_异常目录 ＝ 编辑框_路径.内容 ＋ “\异常文件\”
计次循环首 (高表_异常清单.行数 － 1, 局_计次)
如果真 (高表_异常清单.取数据 (局_计次, 0) ＝ 真)
局_移动 ＝ 文件_移动 (高表_异常清单.取数据 (局_计次, 2), 局_异常目录 ＋ 高表_异常清单.取数据 (局_计次, 1))
如果 (局_移动 ＝ 真)
高表_异常清单.置数据 (局_计次, 4, #表格常量 .文本型, “移动成功”)
局_int ＝ 局_int ＋ 1
高表_异常清单.置数据 (局_计次, 4, #表格常量 .文本型, “移动失败”)
高表_异常清单.置单元格文字颜色 (局_计次, 0, 局_计次, 4, #红色 )
局_int2 ＝ 局_int2 ＋ 1


处理事件 ()
计次循环尾 ()
编辑框_log.加入文本 (“成功转移异常文件：” ＋ 到文本 (局_int) ＋ “个” ＋ #换行符 )
编辑框_log.加入文本 (“异常文件转移失败：” ＋ 到文本 (局_int2) ＋ “个” ＋ #换行符 )
编辑框_log.加入文本 (“创建【异常文件】目录失败，无法完成移动” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_按钮_开始_被单击

变量名	类 型	静态	数组	备 注
局_文件名	文本型
局_文件清单	文本型		0
局_int	整数型
局_路径	文本型
局_int2	整数型
局_检测结果	整数型

编辑框_log.加入文本 (到文本 (取现行时间 ()) ＋ “_开始扫描目录：” ＋ 编辑框_路径.内容 ＋ #换行符 )
局_文件名 ＝ 寻找文件 (编辑框_路径.内容 ＋ “\*.*”, )
判断循环首 (局_文件名 ≠ “”)
加入成员 (局_文件清单, 局_文件名)
局_文件名 ＝ 寻找文件 (, )
处理事件 ()
判断循环尾 ()
局_int ＝ 取数组成员数 (局_文件清单)
如果 (局_int ＝ 0)
编辑框_log.加入文本 (“当前目录没有文件” ＋ #换行符 )
信息框 (“当前为空目录，没有可检测的文件！”, 0, , )
编辑框_log.加入文本 (“当前目录共有文件：” ＋ 到文本 (局_int) ＋ “个” ＋ #换行符 )
进度条1.最大位置 ＝ 局_int
高表_异常清单.行数 ＝ 1
计次循环首 (局_int, 局_int2)
局_路径 ＝ 编辑框_路径.内容 ＋ “\” ＋ 局_文件清单 [局_int2]
局_检测结果 ＝ 功能_中断检测 (局_路径)
如果 (局_检测结果 ＝ -1)
' 写入高表检测失败
高表_异常清单.插入行 (, )
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 0, #表格常量 .选择型, 假)  ' 选中状态
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 1, #表格常量 .文本型, 局_文件清单 [局_int2])  ' 文件名
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 2, #表格常量 .文本型, 局_路径)  ' 完整路径
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 3, #表格常量 .文本型, “检测失败”)  ' 检测返回值
高表_异常清单.置单元格文字颜色 (高表_异常清单.行数 － 1, 0, 高表_异常清单.行数 － 1, 4, #红色 )
' 高表_异常清单.置数据 (高表_异常清单.行数 － 1, 4, #表格常量.文本型, “”)’操作情况

如果真 (局_检测结果 ≥ 到整数 (编辑框_阀值.内容))
' 写入高表该文件检测为异常
高表_异常清单.插入行 (, )
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 0, #表格常量 .选择型, 假)  ' 选中状态
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 1, #表格常量 .文本型, 局_文件清单 [局_int2])  ' 文件名
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 2, #表格常量 .文本型, 局_路径)  ' 完整路径
高表_异常清单.置数据 (高表_异常清单.行数 － 1, 3, #表格常量 .文本型, 到文本 (局_检测结果))  ' 检测返回值

进度条1.位置 ＝ 局_int2
处理事件 ()
计次循环尾 ()

编辑框_log.加入文本 (“检测发现异常文件：” ＋ 到文本 (高表_异常清单.行数 － 1) ＋ “个” ＋ #换行符 )
如果 (高表_异常清单.行数 ＞ 1)
按钮_删除.禁止 ＝ 假
按钮_移动.禁止 ＝ 假
按钮_删除.禁止 ＝ 真
按钮_移动.禁止 ＝ 真

子程序名	返回值类型	公开	备 注
功能_中断检测	整数型		-1：打开异常；其他数值为0值个数
参数名	类 型	参考	可空	数组	备 注
参_文件名	文本型

变量名	类 型	静态	数组	备 注
hs2	整数型
time	双精度小数型
n	整数型
int	整数型
error	整数型
f1	逻辑型
f2	逻辑型
del	整数型		0

如果真 (参_文件名 ≠ “”)
BASS_StreamFree (hs)  ' 清空上次的流句柄
hs ＝ BASS_StreamCreateFile (假, 参_文件名, 0, 0, 0)  ' 创建流自文件
如果 (hs ＝ 0)  ' 创建失败
调试输出 (BASS_ErrorGetCode ())  ' 输出错误代码
' 信息框 (“打开失败！”, #错误图标, “错误：”)
返回 (-1)
hs2 ＝ BASS_StreamCreateFile (假, 参_文件名, 0, 0, #BASS_STREAM_DECODE )  ' 再次创建一个解码流，以用来得到波形数据
time ＝ BASS_ChannelBytes2Seconds (hs, BASS_ChannelGetLength (hs, #BASS_POS_BYTE ))  ' 声音字节转为秒数，即得到声音时间，单位是秒
' 调试输出 (time)
重定义数组 (data, 假, 取整 (time × 50 ＋ 1))  ' data为存放波形数据的变量，因此长度即为声音时间，下面使用的BASS_ChannelGetLevel函数每20ms取值一次峰值振幅
计次循环首 (取数组成员数 (data), n)
int ＝ BASS_ChannelGetLevel (hs2)  ' 得到每个时间的振幅峰值
如果 (int ≠ -1)
data [n] ＝ int
error ＝ BASS_ErrorGetCode ()
如果真 (error ＝ #BASS_ERROR_ENDED 或 error ＝ #BASS_ERROR_NOPLAY )
删除成员 (data, n, 1)

处理事件 ()
计次循环尾 ()
BASS_StreamFree (hs2)  ' 第二个流没用了，清空
' 对峰值数组头部尾部的0值进行删除操作
f1 ＝ 假  ' data中第一个非0值开始的标志
f2 ＝ 假
int ＝ 取数组成员数 (data)
重定义数组 (del, 假, 0)
计次循环首 (int, n)
如果真 (f1 ＝ 假)
如果 (data [n] ＝ 0)
加入成员 (del, n)
f1 ＝ 真

如果真 (f2 ＝ 假)
如果 (data [int ＋ 1 － n] ＝ 0)
加入成员 (del, int ＋ 1 － n)
f2 ＝ 真

如果真 (f1 ＝ 真 且 f2 ＝ 真)
跳出循环 ()

处理事件 ()
计次循环尾 ()
计次循环首 (取数组成员数 (del), n)
删除成员 (data, del [n], 1)
处理事件 ()
计次循环尾 ()
' 以下用来统计出现0值和峰值的次数
int ＝ 0  ' 中间0值个数
计次循环首 (取数组成员数 (data), n)
如果真 (data [n] ＝ 0)
int ＝ int ＋ 1

处理事件 ()
计次循环尾 ()
调试输出 (“0值出现：”, int)
返回 (int)

返回 (-1)

子程序名	返回值类型	公开	备 注
功能_高表置表头
参数名	类 型	参考	可空	数组	备 注
表头名称数组	文本型
表头列宽数组	整数型
高表	高级表格

变量名	类 型	静态	数组	备 注
i	整数型

高表.清空数据 ()
高表.行数 ＝ 1
高表.列数 ＝ 取数组成员数 (表头名称数组)
如果 (是否为空 (表头列宽数组) ＝ 真)
高表.列宽 ＝ 高表.宽度 ÷ 高表.列数
计次循环首 (取数组成员数 (表头列宽数组), i)
高表.置列宽 (i － 1, 表头列宽数组 [i])
计次循环尾 ()

计次循环首 (取数组成员数 (表头名称数组), i)
高表.置数据 (0, i － 1, 1, 表头名称数组 [i])
计次循环尾 ()
高表.置对齐方式 (0, 0, , 高表.列数 － 1, 2)

子程序名	返回值类型	公开	备 注
_高表_异常清单_表头被单击	逻辑型
参数名	类 型	参考	可空	数组	备 注
行号	整数型
列号	整数型

变量名	类 型	静态	数组	备 注
局_计次	整数型

如果真 (行号 ＝ 0 且 列号 ＝ 0)
如果 (高表_异常清单.取数据 (0, 0) ＝ “□”)
高表_异常清单.置数据 (0, 0, #表格常量 .文本型, “

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 hs, 整数型, , , 流句柄<br /> .程序集变量 data, 整数型, , "0", 声音波形数据<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> BASS_Init (-1, 44100, 0, 取窗口句柄 (), 0)  ' 初始化BASS，这里我用的模块是人家的，但是我只用DLL定义，绝对没有用人家集成翻译的，原因很简单，翻译的不全……<br /> 功能_高表置表头 ({ “□”, “文件名”, “路径”, “检测值”, “操作” }, { 30, 200, 400, 100, 100 }, 高表_异常清单)<br /> 高表_异常清单.置列类型 (0, #表格常量.选择型)<br /> <br /> <br /> <br /> .子程序 _按钮_浏览_被单击<br /> .局部变量 局_路径, 文本型<br /> <br /> 局_路径 ＝ 浏览文件夹 (“选择音频文件目录”, )<br /> .如果 (局_路径 ≠ “”)<br />     编辑框_路径.内容 ＝ 局_路径<br />     按钮_开始.禁止 ＝ 假<br /> .否则<br />     按钮_开始.禁止 ＝ 真<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _编辑框_路径_失去焦点<br /> <br /> .如果真 (目录_是否存在 (编辑框_路径.内容) ＝ 假)<br />     信息框 (“当前目录不存在，请选择正确的目录！”, 0, , )<br />     按钮_开始.禁止 ＝ 真<br />     _按钮_浏览_被单击 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮_删除_被单击<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_int, 整数型<br /> .局部变量 局_int2, 整数型<br /> <br /> 局_int ＝ 0<br /> 局_int2 ＝ 0<br /> .计次循环首 (高表_异常清单.行数 － 1, 局_计次)<br />     .如果真 (高表_异常清单.取数据 (局_计次, 0) ＝ 真)<br />         .如果 (文件_删除 (高表_异常清单.取数据 (局_计次, 2)))<br />             高表_异常清单.置数据 (局_计次, 4, #表格常量.文本型, “删除成功”)<br />             局_int ＝ 局_int ＋ 1<br />         .否则<br />             高表_异常清单.置数据 (局_计次, 4, #表格常量.文本型, “删除失败”)<br />             高表_异常清单.置单元格文字颜色 (局_计次, 0, 局_计次, 4, #红色)<br />             局_int2 ＝ 局_int2 ＋ 1<br />         .如果结束<br /> <br />     .如果真结束<br /> <br />     处理事件 ()<br /> .计次循环尾 ()<br /> 编辑框_log.加入文本 (“成功删除异常文件：” ＋ 到文本 (局_int) ＋ “个” ＋ #换行符)<br /> 编辑框_log.加入文本 (“异常文件删除失败：” ＋ 到文本 (局_int2) ＋ “个” ＋ #换行符)<br /> <br /> <br /> <br /> .子程序 _按钮_移动_被单击<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_int, 整数型<br /> .局部变量 局_int2, 整数型<br /> .局部变量 局_异常目录, 文本型<br /> .局部变量 局_移动, 逻辑型<br /> <br /> <br /> .如果 (目录_创建 (编辑框_路径.内容 ＋ “\异常文件”))<br />     局_int ＝ 0<br />     局_int2 ＝ 0<br />     局_异常目录 ＝ 编辑框_路径.内容 ＋ “\异常文件\”<br />     .计次循环首 (高表_异常清单.行数 － 1, 局_计次)<br />         .如果真 (高表_异常清单.取数据 (局_计次, 0) ＝ 真)<br />             局_移动 ＝ 文件_移动 (高表_异常清单.取数据 (局_计次, 2), 局_异常目录 ＋ 高表_异常清单.取数据 (局_计次, 1))<br />             .如果 (局_移动 ＝ 真)<br />                 高表_异常清单.置数据 (局_计次, 4, #表格常量.文本型, “移动成功”)<br />                 局_int ＝ 局_int ＋ 1<br />             .否则<br />                 高表_异常清单.置数据 (局_计次, 4, #表格常量.文本型, “移动失败”)<br />                 高表_异常清单.置单元格文字颜色 (局_计次, 0, 局_计次, 4, #红色)<br />                 局_int2 ＝ 局_int2 ＋ 1<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />         处理事件 ()<br />     .计次循环尾 ()<br />     编辑框_log.加入文本 (“成功转移异常文件：” ＋ 到文本 (局_int) ＋ “个” ＋ #换行符)<br />     编辑框_log.加入文本 (“异常文件转移失败：” ＋ 到文本 (局_int2) ＋ “个” ＋ #换行符)<br /> .否则<br />     编辑框_log.加入文本 (“创建【异常文件】目录失败，无法完成移动” ＋ #换行符)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮_开始_被单击<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_文件清单, 文本型, , "0"<br /> .局部变量 局_int, 整数型<br /> .局部变量 局_路径, 文本型<br /> .局部变量 局_int2, 整数型<br /> .局部变量 局_检测结果, 整数型<br /> <br /> 编辑框_log.加入文本 (到文本 (取现行时间 ()) ＋ “_开始扫描目录：” ＋ 编辑框_路径.内容 ＋ #换行符)<br /> 局_文件名 ＝ 寻找文件 (编辑框_路径.内容 ＋ “\*.*”, )<br /> .判断循环首 (局_文件名 ≠ “”)<br />     加入成员 (局_文件清单, 局_文件名)<br />     局_文件名 ＝ 寻找文件 (, )<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 局_int ＝ 取数组成员数 (局_文件清单)<br /> <br /> .如果 (局_int ＝ 0)<br />     编辑框_log.加入文本 (“当前目录没有文件” ＋ #换行符)<br />     信息框 (“当前为空目录，没有可检测的文件！”, 0, , )<br /> .否则<br />     编辑框_log.加入文本 (“当前目录共有文件：” ＋ 到文本 (局_int) ＋ “个” ＋ #换行符)<br />     进度条1.最大位置 ＝ 局_int<br />     高表_异常清单.行数 ＝ 1<br />     .计次循环首 (局_int, 局_int2)<br />         局_路径 ＝ 编辑框_路径.内容 ＋ “\” ＋ 局_文件清单 [局_int2]<br />         局_检测结果 ＝ 功能_中断检测 (局_路径)<br />         .如果 (局_检测结果 ＝ -1)<br />             ' 写入高表检测失败<br />             高表_异常清单.插入行 (, )<br />             高表_异常清单.置数据 (高表_异常清单.行数 － 1, 0, #表格常量.选择型, 假)  ' 选中状态<br />             高表_异常清单.置数据 (高表_异常清单.行数 － 1, 1, #表格常量.文本型, 局_文件清单 [局_int2])  ' 文件名<br />             高表_异常清单.置数据 (高表_异常清单.行数 － 1, 2, #表格常量.文本型, 局_路径)  ' 完整路径<br />             高表_异常清单.置数据 (高表_异常清单.行数 － 1, 3, #表格常量.文本型, “检测失败”)  ' 检测返回值<br />             高表_异常清单.置单元格文字颜色 (高表_异常清单.行数 － 1, 0, 高表_异常清单.行数 － 1, 4, #红色)<br />             ' 高表_异常清单.置数据 (高表_异常清单.行数 － 1, 4, #表格常量.文本型, “”)’操作情况<br /> <br />         .否则<br />             .如果真 (局_检测结果 ≥ 到整数 (编辑框_阀值.内容))<br />                 ' 写入高表该文件检测为异常<br />                 高表_异常清单.插入行 (, )<br />                 高表_异常清单.置数据 (高表_异常清单.行数 － 1, 0, #表格常量.选择型, 假)  ' 选中状态<br />                 高表_异常清单.置数据 (高表_异常清单.行数 － 1, 1, #表格常量.文本型, 局_文件清单 [局_int2])  ' 文件名<br />                 高表_异常清单.置数据 (高表_异常清单.行数 － 1, 2, #表格常量.文本型, 局_路径)  ' 完整路径<br />                 高表_异常清单.置数据 (高表_异常清单.行数 － 1, 3, #表格常量.文本型, 到文本 (局_检测结果))  ' 检测返回值<br /> <br />             .如果真结束<br /> <br />         .如果结束<br />         进度条1.位置 ＝ 局_int2<br />         处理事件 ()<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> 编辑框_log.加入文本 (“检测发现异常文件：” ＋ 到文本 (高表_异常清单.行数 － 1) ＋ “个” ＋ #换行符)<br /> .如果 (高表_异常清单.行数 ＞ 1)<br />     按钮_删除.禁止 ＝ 假<br />     按钮_移动.禁止 ＝ 假<br /> .否则<br />     按钮_删除.禁止 ＝ 真<br />     按钮_移动.禁止 ＝ 真<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 功能_中断检测, 整数型, , -1：打开异常；其他数值为0值个数<br /> .参数 参_文件名, 文本型<br /> .局部变量 hs2, 整数型<br /> .局部变量 time, 双精度小数型<br /> .局部变量 n, 整数型<br /> .局部变量 int, 整数型<br /> .局部变量 error, 整数型<br /> .局部变量 f1, 逻辑型<br /> .局部变量 f2, 逻辑型<br /> .局部变量 del, 整数型, , "0"<br /> <br /> <br /> .如果真 (参_文件名 ≠ “”)<br />     BASS_StreamFree (hs)  ' 清空上次的流句柄<br />     hs ＝ BASS_StreamCreateFile (假, 参_文件名, 0, 0, 0)  ' 创建流自文件<br />     .如果 (hs ＝ 0)  ' 创建失败<br />         调试输出 (BASS_ErrorGetCode ())  ' 输出错误代码<br />         ' 信息框 (“打开失败！”, #错误图标, “错误：”)<br />         返回 (-1)<br />     .否则<br />         hs2 ＝ BASS_StreamCreateFile (假, 参_文件名, 0, 0, #BASS_STREAM_DECODE)  ' 再次创建一个解码流，以用来得到波形数据<br />         time ＝ BASS_ChannelBytes2Seconds (hs, BASS_ChannelGetLength (hs, #BASS_POS_BYTE))  ' 声音字节转为秒数，即得到声音时间，单位是秒<br />         ' 调试输出 (time)<br />         重定义数组 (data, 假, 取整 (time × 50 ＋ 1))  ' data为存放波形数据的变量，因此长度即为声音时间，下面使用的BASS_ChannelGetLevel函数每20ms取值一次峰值振幅<br />         .计次循环首 (取数组成员数 (data), n)<br />             int ＝ BASS_ChannelGetLevel (hs2)  ' 得到每个时间的振幅峰值<br />             .如果 (int ≠ -1)<br />                 data [n] ＝ int<br />             .否则<br />                 error ＝ BASS_ErrorGetCode ()<br />                 .如果真 (error ＝ #BASS_ERROR_ENDED 或 error ＝ #BASS_ERROR_NOPLAY)<br />                     删除成员 (data, n, 1)<br />                 .如果真结束<br /> <br />             .如果结束<br />             处理事件 ()<br />         .计次循环尾 ()<br />         BASS_StreamFree (hs2)  ' 第二个流没用了，清空<br /> <br />         ' 对峰值数组头部尾部的0值进行删除操作<br />         f1 ＝ 假  ' data中第一个非0值开始的标志<br />         f2 ＝ 假<br />         int ＝ 取数组成员数 (data)<br />         重定义数组 (del, 假, 0)<br />         .计次循环首 (int, n)<br />             .如果真 (f1 ＝ 假)<br />                 .如果 (data [n] ＝ 0)<br />                     加入成员 (del, n)<br />                 .否则<br />                     f1 ＝ 真<br />                 .如果结束<br /> <br />             .如果真结束<br />             .如果真 (f2 ＝ 假)<br />                 .如果 (data [int ＋ 1 － n] ＝ 0)<br />                     加入成员 (del, int ＋ 1 － n)<br />                 .否则<br />                     f2 ＝ 真<br />                 .如果结束<br /> <br />             .如果真结束<br />             .如果真 (f1 ＝ 真 且 f2 ＝ 真)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />             处理事件 ()<br />         .计次循环尾 ()<br />         .计次循环首 (取数组成员数 (del), n)<br />             删除成员 (data, del [n], 1)<br />             处理事件 ()<br />         .计次循环尾 ()<br /> <br />         ' 以下用来统计出现0值和峰值的次数<br />         int ＝ 0  ' 中间0值个数<br />         .计次循环首 (取数组成员数 (data), n)<br />             .如果真 (data [n] ＝ 0)<br />                 int ＝ int ＋ 1<br />             .如果真结束<br /> <br />             处理事件 ()<br />         .计次循环尾 ()<br />         调试输出 (“0值出现：”, int)<br />         返回 (int)<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (-1)<br /> <br /> <br /> <br /> .子程序 功能_高表置表头<br /> .参数 表头名称数组, 文本型, 数组<br /> .参数 表头列宽数组, 整数型, 可空 数组<br /> .参数 高表, 高级表格<br /> .局部变量 i, 整数型<br /> <br /> 高表.清空数据 ()<br /> 高表.行数 ＝ 1<br /> 高表.列数 ＝ 取数组成员数 (表头名称数组)<br /> .如果 (是否为空 (表头列宽数组) ＝ 真)<br />     高表.列宽 ＝ 高表.宽度 ÷ 高表.列数<br /> .否则<br />     .计次循环首 (取数组成员数 (表头列宽数组), i)<br />         高表.置列宽 (i － 1, 表头列宽数组 <i>)<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> .计次循环首 (取数组成员数 (表头名称数组), i)<br />     高表.置数据 (0, i － 1, 1, 表头名称数组 <i>)<br /> .计次循环尾 ()<br /> 高表.置对齐方式 (0, 0, , 高表.列数 － 1, 2)<br /> <br /> <br /> <br /> .子程序 _高表_异常清单_表头被单击, 逻辑型<br /> .参数 行号, 整数型<br /> .参数 列号, 整数型<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (行号 ＝ 0 且 列号 ＝ 0)<br />     .如果 (高表_异常清单.取数据 (0, 0) ＝ “□”)<br />         高表_异常清单.置数据 (0, 0, #表格常量.文本型, “

zhaode2888

感谢分享！！

huxian

速度怎么样啊。比如串烧

成神之日

路过围观一下，顺便帮顶

深圳梦

感谢楼主的分享

网络注册会员

谢谢分享！

汉族

开源 支持一下、

gaoqing

支持 谢谢开源

xjshuaishuai

谢谢分享！

wuqingg

嘿嘿。。。。。。。。。。。