判断是否是易语言文件

.版本 2

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

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

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

数据_字节集 ＝ 读入文件 (欲测试文件名)🥷‎🎒⌨😇🤛

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

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

    返回 (假)

.如果真结束

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

🤟🌧🥭🈸🐴‏
    ' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))

    返回 (假)

.如果真结束

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

返回 (真)