设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 加入我们
搜索
查看: 4929|回复: 9
收起左侧

易语言实现检测一个GIF文件是否使用GIF Movie Gear生成或修改过 并可清除其相关注释

[复制链接]
发表于 2018-12-13 12:15:53 | 显示全部楼层 |阅读模式

  1. .版本 2

  2. .程序集 程序集1
  3. .程序集变量 GifMovieGear注释, 文本型, , , 不同版本号会有不同

  4. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

  5. GifMovieGear注释 = “Built with GIF Movie Gear 4.0”

  6. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
  7. 返回 (0)  ' 可以根据您的需要返回任意数值

  8. .子程序 _临时子程序

  9. ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。



  10. .子程序 是否为GifMovieGear生成, 逻辑型, 公开
  11. .参数 GIF数据, 字节集

  12. 返回 (寻找字节集 (GIF数据, 到字节集 (GifMovieGear注释), ) ≠ -1)



  13. .子程序 清除GifMovieGear注释, 字节集, 公开
  14. .参数 GIF数据, 字节集

  15. 返回 (子字节集替换 (GIF数据, 到字节集 (GifMovieGear注释), 到字节集 (取空白文本 (取文本长度 (GifMovieGear注释))), , ))


  16. .子程序 清除GifMovieGear注释_文件, , 公开
  17. .参数 GIF文件名, 文本型

  18. 写到文件 (GIF文件名, 清除GifMovieGear注释 (读入文件 (GIF文件名)))

复制代码

您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-19 15:51 , Processed in 0.373021 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表