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