自动备份易语言的临时保存文件－源码

2012/12/10 2 条评论 12.81k 次阅读 0 人点赞

之前在易语言官方论坛发了个自动备份“~~AutoBak.tmp”文件的工具，查看详情。

易语言每次调试或者定时备份时都会在临时目录生成一个名为~~AutoBak.tmp的文件，正常关闭IDE后该文件自动删除，非正常关闭后该文件还保留着，可以在下次打开易语言时使用这个备份文件。但是，这并不保险，存在于临时目录中的文件随时都可能被清理，而且一旦调试另一个程序的代码就会被该程序代替。本工具的用途就是自动备份该文件，尽量防止源代码丢失。

源码文件下载：自动备份~~AutoBak.tmp文件，易IDE崩溃也不怕！

主要源码示例：

  1. .程序集 窗口程序集1 
  2. 　　
  3. .子程序 _窗口1_创建完毕 
  4. 设置窗口透明度 (窗口1.取窗口句柄 (), 200)
  5. 编辑框1.内容 ＝ 取特定目录 (#临时文件目录) ＋ “~~AutoBak.tmp”
  6. 编辑框2.内容 ＝ “D:\文件\自动备份”
  7. 　　
  8. .子程序 _窗口1_位置被改变 
  9. 窗口2.移动 (窗口1.左边, 窗口1.顶边, , )
  10. 　　
  11. .子程序 _透明标签2_鼠标左键被放开,逻辑型 
  12. .参数 横向位置,整数型 
  13. .参数 纵向位置,整数型 
  14. .参数 功能键状态,整数型 
  15. 窗口2.位置 ＝ 2
  16. 　　
  17. .子程序 _透明标签1_鼠标左键被放开,逻辑型 
  18. .参数 横向位置,整数型 
  19. .参数 纵向位置,整数型 
  20. .参数 功能键状态,整数型 
  21. .如果真 (信息框 (“退出备份程序？”, #询问图标 ＋ #是否钮, “退出”) ＝ #是钮)
  22. 　　窗口2.销毁 ()
  23. 　　.如果真结束
  24. .子程序 _透明标签3_鼠标左键被放开,逻辑型 
  25. .参数 横向位置,整数型 
  26. .参数 纵向位置,整数型 
  27. .参数 功能键状态,整数型 
  28. 通用对话框1.初始目录 ＝ 编辑框1.内容
  29. .如果真 (通用对话框1.打开 ())
  30. 　　编辑框1.内容 ＝ 通用对话框1.文件名
  31. 　　.如果真结束
  32. .子程序 _透明标签4_鼠标左键被放开,逻辑型 
  33. .参数 横向位置,整数型 
  34. .参数 纵向位置,整数型 
  35. .参数 功能键状态,整数型 
  36. 编辑框2.内容 ＝ 浏览文件夹 (“选择备份路径”, )
  37. 　　
  38. .子程序 _透明标签5_鼠标左键被放开,逻辑型 
  39. .参数 横向位置,整数型 
  40. .参数 纵向位置,整数型 
  41. .参数 功能键状态,整数型 
  42. .如果真 (取反 (改变目录 (删首尾空 (编辑框2.内容))))
  43. 　　信息框 (“备份路径不存在！”, #警告图标, “路径不存在”)
  44. 　　返回 ()
  45. 　　.如果真结束
  46. .如果真 (时钟1.时钟周期 ＝ 0)
  47. 　　时钟1.时钟周期 ＝ 100
  48. 　　透明标签5.标题 ＝ “已开启”
  49. 　　透明标签6.标题 ＝ “停止备份”
  50. 　　连续赋值 (真, 编辑框1.禁止, 编辑框2.禁止, 编辑框3.禁止)
  51. 　　.如果真结束
  52. .子程序 _透明标签6_鼠标左键被放开,逻辑型 
  53. .参数 横向位置,整数型 
  54. .参数 纵向位置,整数型 
  55. .参数 功能键状态,整数型 
  56. .如果真 (时钟1.时钟周期 ＞ 0)
  57. 　　时钟1.时钟周期 ＝ 0
  58. 　　透明标签5.标题 ＝ “开启备份”
  59. 　　透明标签6.标题 ＝ “已停止”
  60. 　　上次备份 ＝ “”
  61. 　　清除数组 (所有备份)
  62. 　　连续赋值 (假, 编辑框1.禁止, 编辑框2.禁止, 编辑框3.禁止)
  63. 　　.如果真结束
  64. .子程序 _时钟1_周期事件 
  65. .局部变量 当前文件,文本型 
  66. .局部变量 文件名称,文本型 
  67. .局部变量 本次备份,文本型 
  68. .局部变量 i 
  69. 当前文件 ＝ 删首尾空 (编辑框1.内容)
  70. .如果真 (文件是否存在 (当前文件))
  71. 　　本次备份 ＝ 格式化时间 (取文件时间 (当前文件)) ＋ 到文本 (取文件尺寸 (当前文件))
  72.  .如果真 (本次备份 ≠ 上次备份)
  73. 　　　　文件名称 ＝ “AutoBak_” ＋ 格式化时间 (取现行时间 ()) ＋ “_” ＋ 到文本 (取启动时间 ()) ＋ “.tmp”
  74. 　　 .如果真 (复制文件 (当前文件, 文件名称)) ' 开启备份时已改变目录到备份路径
  75. 　　　　　　上次备份 ＝ 本次备份
  76. 　　　　　　加入成员 (所有备份, 文件名称)
  77. 　　　　　　.如果真结束
  78. 　　　　.如果真结束
  79. 　　.如果真结束
  80. .如果真 (到整数 (编辑框3.内容) ＞ 0 且 取数组成员数 (所有备份) ＞ 到整数 (编辑框3.内容))
  81. 　　i ＝ 取数组成员数 (所有备份) － 到整数 (编辑框3.内容)
  82.  .计次循环首 (i, )
  83. 　　　　删除文件 (所有备份 [1])
  84. 　　　　删除成员 (所有备份, 1, 1)
  85.  .计次循环尾 ()
  86. 　　.如果真结束
  87. .子程序 格式化时间,文本型 
  88. .参数 时间,日期时间型 
  89. .局部变量 格式,文本型 
  90. .局部变量 分割,整数型,,"6" 
  91. .局部变量 i 
  92. 分割 [1] ＝ 取年份 (时间)
  93. 分割 [2] ＝ 取月份 (时间)
  94. 分割 [3] ＝ 取日 (时间)
  95. 分割 [4] ＝ 取小时 (时间)
  96. 分割 [5] ＝ 取分钟 (时间)
  97. 分割 [6] ＝ 取秒 (时间)
  98. 　　
  99. .计次循环首 (6, i)
  100.  .如果真 (分割 [i] ≤ 9)
  101. 　　　　格式 ＝ 格式 ＋ “0”
  102. 　　　　.如果真结束
  103. 　　格式 ＝ 格式 ＋ 到文本 (分割 [i])
  104. .计次循环尾 ()
  105. 　　
  106. 返回 (格式)
  107. #鸿言_易代码格式化模块 HyStudio.Net

推荐阅读：

  1. 易代码格式化模块使用易语言的人都知道，易语言IDE中的代码中有表格和流程线，不是一般的文本代码。把代码复制出来后再粘贴到编辑器中，就是纯文本的代码，跟IDE中相差十万八千里，而且非常不容易阅读。于是有不少人做了一些在网页上体现易语言IDE中原来样式的工具，用到了table表格，流程线用图片作为背景。虽然这样看起来跟IDE中几乎一模一样，但是却不能直接复制到IDE中使用，必须把原始代码加进去，通过点击按钮或链接来复…...
  2. 鸿言人脉管理 v6.2－人际关系管理软件鸿言人脉管理是一套用来管理人际关系及人际圈子的软件，通过本软件可以方便、快捷、安全地管理您的人脉信息。它比普通的通讯录功能强大，不但可以管理联系人，还可以管理你所有的人际圈子，同时可以设置备忘提醒、添加每天日志，帮助你安排日常事务。对于每个联系人或圈子，可以灵活设置关系或属性，以及亲密度或参与度等等。可以对每个联系人的生日进行实时提醒，以便第一时间对该关系人进行相关交际。除此之外，本软件通过子栏目…...
  3. 鸿言图片批量处理工具鸿言图片批量处理工具可以对保存在电脑中的大量图片进行快速批量操作，包括批量选择图片、批量更改名称、批量转换格式、批量转换尺寸、批量复制、批量移动、批量删除等等。 鸿言图片批量处理工具适合哪些用户？ 1、需要对数码照片进行批量处理的用户。很多用户手中有大量的数码照片，随时需要对这些照片进行诸如挑选、转换格式、压缩尺寸等日常处理，以便向亲朋好友以及客户伙伴分发，向各个社区网站上传照片。通过鸿言图片批量…...
  4. 鸿言成长管理 v1.0－日复一日保存成长财富鸿言成长管理是一套用来管理人物和团体成长过程的软件，可以对人物或团体的每日事件进行记录，添加成长内容和经验教训，设置成长星级。本软件适合对亲子成长、家庭成长、自我成长、团队成长进行管理，实时把握成长动态，为未来的成长道路提供充足的经验教训。日复一日的成长记录是一种宝贵的精神财富。 当前最新版本号为1.0，如果在软件下载站下载的不是最新版本，是因为该下载站没有及时更新，请选择其他下载点下载。一般情况…...
  5. 鸿言图片批量下载 v4.0－快速下载网站和论坛的所有图片鸿言图片批量下载工具可以快速下载整个网站或论坛的所有图片，能够灵活设置过滤条件，排除不需要的网址和图片。支持同时下载多个网站图片，使用先进的多线程和正则表达式技术，能够十分快速地分析网页和获取图片。软件拥有网页登录功能，能够下载那些需要登录才能浏览的网站或论坛。对于需要使用代理才能浏览的网站，可以配置代理地址。拥有断点续传功能，可以从上次停止的地方继续下载。每个下载任务拥有详细的配置参数，配置后保…...
  6. 鸿言窗口快捷操作工具 - 窗口置顶、最小化、隐藏、透明鸿言窗口快捷操作工具，可以通过设置快捷键，对当前激活的窗口进行如下操作：置顶、最小化、隐藏、透明。对于工作时需要频繁切换窗口的人，这个工具非常实用。比如编写文档或者写代码时，要对照其他文档进行参考，就可以把其他文档置顶放在角落，一边编写一边查看。再比如要在PhotoShop中临摹照片，可以把照片放在下面，把PhotoShop设成透明。或者想要一边工作一边看视频，也可以把视频放在下面，把当前工作窗口…...
人脉管理软件
© 著作权归作者所有

鸿言

鸿言软件工作室

文章评论（2）

  • 求索

    :grin: 多谢前辈的赐教 :grin:

    2014/09/18
    回复

    • 点击发消息