1.?易语言全语言源码易语言源语?????ȫ?̼??Դ??
2.易语言如何全盘搜素主目录下指定文件
??????ȫ?̼??Դ??
月数不好定，因为每个月天数不一样。盘监东辉影视 源码算到天就行了。控源网址导航asp源码
代码如下：
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 运行时间,码易码祝富贵电玩2源码 整数型, , , 毫秒
运行时间 ＝ 取启动时间 ()
调试输出 (取毫秒到天 (运行时间))
.子程序 取毫秒到天, 文本型
.参数 参_秒, 整数型
.局部变量 参_秒, 整数型
.局部变量 天, 整数型
.局部变量 小时, 整数型
.局部变量 分钟, 整数型
.局部变量 秒, 整数型
参_秒 ＝ 取启动时间 () ÷
天 ＝ 参_秒 ÷ ÷ ÷
小时 ＝ (参_秒 － 天 × × ) ÷
分钟 ＝ (参_秒 － 天 × × － 小时 × ) ÷
秒 ＝ 参_秒 ％
返回 (到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”)
易语言如何全盘搜素主目录下指定文件
.版本 2.子程序 __启动窗口_创建完毕
.局部变量 盘符, 文本型
.局部变量 子目录, 文本型
.如果真 (输入框 (, “请输入盘符:”, “D:”, 盘符, ) ＝ 假)
结束 ()
.如果真结束
.如果真 (取文本右边 (盘符, 1) ≠ “\”)
盘符 ＝ 盘符 ＋ “\”
.如果真结束
子目录 ＝ 寻找文件 (盘符 ＋ “*”, #子目录)
.判断循环首 (子目录 ≠ “”)
.如果真 (取文本左边 (子目录, 1) ≠ “.”)
搜寻 (盘符 ＋ 子目录)
.如果真结束
子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 搜寻
.参数 目录, 文本型
.局部变量 文件名, 文本型
文件名 ＝ 寻找文件 (目录 ＋ “\PathConfig.ini”, )
.判断循环首 (文件名 ＝ “PathConfig.ini”)
列表框1.加入项目 (目录, )
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
