判断是否是易语言文件

清风徐来 · 2017-7-3 18:32

本帖最后由清风徐来于 2017-7-3 18:38 编辑

易语言文件包括：*.e（源码） *.ec（模块）
代码很简单
下面是代码：（子程序）

.版本 2

.子程序 文件是否为易文件, 逻辑型

.参数 欲测试文件名, 文本型

.局部变量 数据_字节集, 字节集

数据_字节集 ＝ 读入文件 (欲测试文件名)

' 调试输出 (数据_字节集)

.如果真 (删全部空 (到文本 (数据_字节集)) ＝ “”)

    返回 (假)

.如果真结束

.如果真 (到文本 (取字节集中间 (数据_字节集, 1, 8)) ≠ “CNWTEPRG”)

    ' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))

    返回 (假)

.如果真结束

' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))

返回 (真)

复制代码

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

判断是否为易程序.rar (1.37 KB, 下载次数: 2)

[# 易语言] 判断是否是易语言文件

相关帖子

评分

管理员