精易论坛

标题: 判断是否是易语言文件（附例程）[可以放模块里] [打印本页]

作者: 晓时候 时间: 2017-7-3 18:28
标题: 判断是否是易语言文件（附例程）[可以放模块里]
代码很简单
下面是代码：

.版本 2
.子程序文件是否为易文件, 逻辑型
.参数欲测试文件名, 文本型
.局部变量数据_字节集, 字节集
数据_字节集＝读入文件 (欲测试文件名)
' 调试输出 (数据_字节集)
.如果真 (删全部空 (到文本 (数据_字节集)) ＝ “”)
返回 (假)
.如果真结束
.如果真 (到文本 (取字节集中间 (数据_字节集, 1, 8)) ≠ “CNWTEPRG”)
' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))
返回 (假)
.如果真结束
' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))
返回 (真)

我不知道网上有没有类似的源码，但是我可以肯定，这是我自己写的哈！
（这个程序我参考了下曙光前辈的代码，但是觉得有点复杂，所以我在这里再写个简单的）
易语言由“CNWTEPRG”魔数+一些未知数据构成，此程序就是利用此来判断的！