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

2012/12/10 2 条评论 13.66k 次阅读 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中原来样式的工具，...
  2. 鸿言人脉管理 v6.2－人际关系管理软件 鸿言人脉管理是一套用来管理人际关系及人际圈子的软件，通过本软件可以方便、快捷、安全地管理您的人脉信息。它比普通的通讯录功能强大，不但可以管理联系人，还可以管理你所有的人际圈子，同时可以设置备忘提醒、添加每天日志，帮助你安排日常事务。对于每个...
  3. 鸿言图片批量处理工具 鸿言图片批量处理工具可以对保存在电脑中的大量图片进行快速批量操作，包括批量选择图片、批量更改名称、批量转换格式、批量转换尺寸、批量复制、批量移动、批量删除等等。 鸿言图片批量处理工具适合哪些用户？ 1、需要对数码照片进行批量处理的用户。很多...
  4. 鸿言成长管理 v1.0－日复一日保存成长财富 鸿言成长管理是一套用来管理人物和团体成长过程的软件，可以对人物或团体的每日事件进行记录，添加成长内容和经验教训，设置成长星级。本软件适合对亲子成长、家庭成长、自我成长、团队成长进行管理，实时把握成长动态，为未来的成长道路提供充足的经验教训。...
  5. 鸿言图片批量下载 v4.0－快速下载网站和论坛的所有图片 鸿言图片批量下载工具可以快速下载整个网站或论坛的所有图片，能够灵活设置过滤条件，排除不需要的网址和图片。支持同时下载多个网站图片，使用先进的多线程和正则表达式技术，能够十分快速地分析网页和获取图片。软件拥有网页登录功能，能够下载那些需要登录...
  6. 鸿言窗口快捷操作工具 - 窗口置顶、最小化、隐藏、透明 鸿言窗口快捷操作工具，可以通过设置快捷键，对当前激活的窗口进行如下操作：置顶、最小化、隐藏、透明。对于工作时需要频繁切换窗口的人，这个工具非常实用。比如编写文档或者写代码时，要对照其他文档进行参考，就可以把其他文档置顶放在角落，一边编写一边...
人脉管理软件
© 著作权归作者所有

鸿言

鸿言软件工作室

文章评论（2）

  • 求索

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

    2014/09/18
    回复

    • 点击发消息