有一段输出调试文本的内容可能是
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
.子程序 取文本之后至文本, 文本型, , 总的，参考取文本之前＋取文本之后
.参数 源文本, 文本型
.参数 起文本, 文本型
.参数 至文本, 文本型
.参数 是否包括起文本, 逻辑型, 可空
.参数 是否包括至文本, 逻辑型, 可空
.局部变量 取文本之前, 文本型
.局部变量 取文本之后, 文本型
取文本之前 ＝ 子文本替换 (源文本, 取文本中间 (源文本, 寻找文本 (源文本, 至文本, , 假), 取文本长度 (源文本) ＋ 寻找文本 (源文本, 至文本, , 假)), , , , 真)
取文本之后 ＝ 子文本替换 (取文本中间 (取文本之前, 寻找文本 (取文本之前, 起文本, , 假), 取文本长度 (取文本之前) ＋ 寻找文本 (取文本之前, 起文本, , 假)), 起文本, , , , 真)
.如果真 (是否包括起文本)
取文本之后 ＝ 起文本 ＋ 取文本之后
.如果真结束
.如果真 (是否包括至文本)
取文本之后 ＝ 取文本之后 ＋ 至文本
.如果真结束
返回 (取文本之后)
