有一段输出调试文本的内容可能是
2012年7月2日
2012年7月15日
2012年10月5日
2012年10月16日 等格式
怎么统一让他输出的格式是
2012年07月02日
2012年10月15日 的这种格式? 就是月份和日期如果是单数则自动在前方加0
.版本 2
.支持库 internet
.局部变量 网页文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 日期临时, 文本型, , "0"
.局部变量 时间临时, 文本型, , "0"
.局部变量 时间, 文本型
.局部变量 网络时间, 文本型
处理事件 ()
网页文本 = 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))
文本数组 = 分割文本 (网页文本, “服务器时间:”, )
网页文本 = 文本数组 [2]
文本数组 = 分割文本 (网页文本, “document.write('”, )
日期临时 = 分割文本 (文本数组 [3], “')”, )
时间 = 日期临时 [1]
输出调试文本 (日期临时 [1])
比如这里输出的是
2012年7月2日就转换为20120702
2012年7月15日就转换为20120715
2012年10月6日就转换为20121006
2012年11月11日就转换为20121111
本人新手中的新手 望高手帮忙修改下。不胜感激!
.支持库 spec
.局部变量 时间, 文本型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
时间 = “2012年7月3日”
年 = 取文本之前 (时间, “年”)
月 = 取文本之后至文本 (时间, “年”, “月”)
日 = 取文本之后至文本 (时间, “月”, “日”)
.如果真 (取文本长度 (月) = 1)
月 = “0” + 月
.如果真结束
.如果真 (取文本长度 (日) = 1)
日 = “0” + 日
.如果真结束
调试输出 (年 + 月 + 日)追问
你好! 首先谢谢你的回答,问题是我已经有spec支持库了,怎么还是显示
正在预处理现行程序
错误(37): 找不到指定的命令/子程序/Dll命令调用名称“取文本之前”。
或者是我的spec错误 你能不能打包个发到我邮箱? 419859666@qq.com 谢谢了
忘记发了,不好意思
.版本 2
.子程序 取文本之前, 文本型, 公开
.参数 被取的文本, 文本型
.参数 指定的文本, 文本型
.参数 是否包含指定文本, 逻辑型, 可空
.局部变量 文本, 文本型
文本 = 子文本替换 (被取的文本, 取文本中间 (被取的文本, 寻找文本 (被取的文本, 指定的文本, , 假), 取文本长度 (被取的文本) + 寻找文本 (被取的文本, 指定的文本, , 假)), , , , 真)
.如果真 (是否包含指定文本 = 真)
返回 (文本 + 指定的文本)
.如果真结束
返回 (文本)
.版本 2
.子程序 取文本之后, 文本型, 公开
.参数 被取的文本, 文本型
.参数 指定的文本, 文本型
.参数 是否包含指定文本, 逻辑型, 可空
.局部变量 文本, 文本型
文本 = 取文本中间 (被取的文本, 寻找文本 (被取的文本, 指定的文本, , 假), 取文本长度 (被取的文本) + 寻找文本 (被取的文本, 指定的文本, , 假))
.如果真 (是否包含指定文本 = 真)
返回 (文本)
.如果真结束
返回 (子文本替换 (文本, 指定的文本, , , , 真))
.版本 2
.子程序 取文本之后至文本, 文本型, , 总的,参考取文本之前+取文本之后
.参数 源文本, 文本型
.参数 起文本, 文本型
.参数 至文本, 文本型
.参数 是否包括起文本, 逻辑型, 可空
.参数 是否包括至文本, 逻辑型, 可空
.局部变量 取文本之前, 文本型
.局部变量 取文本之后, 文本型
取文本之前 = 子文本替换 (源文本, 取文本中间 (源文本, 寻找文本 (源文本, 至文本, , 假), 取文本长度 (源文本) + 寻找文本 (源文本, 至文本, , 假)), , , , 真)
取文本之后 = 子文本替换 (取文本中间 (取文本之前, 寻找文本 (取文本之前, 起文本, , 假), 取文本长度 (取文本之前) + 寻找文本 (取文本之前, 起文本, , 假)), 起文本, , , , 真)
.如果真 (是否包括起文本)
取文本之后 = 起文本 + 取文本之后
.如果真结束
.如果真 (是否包括至文本)
取文本之后 = 取文本之后 + 至文本
.如果真结束
返回 (取文本之后)