哪个大神帮忙优化一下代码?

藏半杯水

[e]
.版本 2
.支持库 spec
.支持库 EThread

.子程序 取省市id
.局部变量 市地区id, 文本型
.局部变量 a, 整数型
.局部变量 正则, 正则表达式类
.局部变量 正则1, 正则表达式类
.局部变量 正则2, 正则表达式类
.局部变量 市地区名称, 文本型
.局部变量 城市数量, 整数型
.局部变量 b, 整数型
.局部变量 区域id, 文本型
.局部变量 区域名称, 文本型
.局部变量 街道id, 文本型
.局部变量 街道名称, 文本型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 返回数据, 文本型

.计次循环首 (31, a)
处理事件 ()
返回数据 ＝ 网页_访问s (“http://help.jd.com/help/front/initCity.action?tem=1384770253421&provinceId=” ＋ 到文本 (a), 1, , , , , , , , , )
返回数据 ＝ 文本_取指定内容 (返回数据, “result”, “resultCode”)
正则.创建 (#取地区id, 返回数据)
城市数量 ＝ 正则.取匹配数量 ()
调试输出 (城市数量)

.计次循环首 (城市数量, b)
处理事件 ()
市地区id ＝ 正则.取子匹配文本 (b, 1)
市地区名称 ＝ 正则.取子匹配文本 (b, 2)
调试输出 (市地区id, 市地区名称)
' 写到文件 (取运行目录 () ＋ “\省市代码\市代码\代码” ＋ 到文本 (a) ＋ “.txt”, 读入文件 (取运行目录 () ＋ “\省市代码\市代码\代码” ＋ 到文本 (a) ＋ “.txt”) ＋ 到字节集 (市地区id ＋ 市地区名称 ＋ #换行符))
返回数据 ＝ 网页_访问s (“http://help.jd.com/help/front/initArea.action?tem=1384775627584&provinceId=” ＋ 到文本 (a) ＋ “&cityId=” ＋ 市地区id, 1, , , , , , , , , )
返回数据 ＝ 文本_取指定内容 (返回数据, “result”, “resultCode”)
' 调试输出 (“http://help.jd.com/help/front/initArea.action?tem=1384775627584&provinceId=” ＋ 到文本 (a) ＋ “&cityId=” ＋ 市地区id)
' 调试输出 (返回数据)
正则1.创建 (#取地区id, 返回数据)
城市数量 ＝ 正则1.取匹配数量 ()
调试输出 (城市数量)
.计次循环首 (城市数量, c)
处理事件 ()
区域id ＝ 正则1.取子匹配文本 (c, 1)
区域名称 ＝ 正则1.取子匹配文本 (c, 2)
创建目录 (取运行目录 () ＋ “\省市代码\区域代码\” ＋ 到文本 (a))
写到文件 (取运行目录 () ＋ “\省市代码\区域代码\” ＋ 到文本 (a) ＋ “\” ＋ 市地区id ＋ 市地区名称 ＋ “.txt”, 读入文件 (取运行目录 () ＋ “\省市代码\区域代码\” ＋ 到文本 (a) ＋ “\” ＋ 市地区id ＋ 市地区名称 ＋ “.txt”) ＋ 到字节集 (区域id ＋ 区域名称 ＋ #换行符))
处理事件 ()
返回数据 ＝ 网页_访问s (“http://help.jd.com/help/front/initFouth.action?tem=1384776414011&provinceId=” ＋ 到文本 (a) ＋ “&cityId=” ＋ 市地区id ＋ “&areaId=” ＋ 区域id, 1, , , , , , , , , )
返回数据 ＝ 文本_取指定内容 (返回数据, “result”, “resultCode”)
正则2.创建 (#取地区id, 返回数据)
城市数量 ＝ 正则2.取匹配数量 ()
.如果真 (城市数量 ≠ 0)
.计次循环首 (城市数量, d)
街道id ＝ 正则2.取子匹配文本 (d, 1)
街道名称 ＝ 正则2.取子匹配文本 (d, 2)
创建目录 (取运行目录 () ＋ “\省市代码\街道代码\” ＋ 到文本 (a))
写到文件 (取运行目录 () ＋ “\省市代码\街道代码\” ＋ 到文本 (a) ＋ “\” ＋ 区域id ＋ 区域名称 ＋ “.txt”, 读入文件 (取运行目录 () ＋ “\省市代码\街道代码\” ＋ 到文本 (a) ＋ “\” ＋ 区域id ＋ 区域名称 ＋ “.txt”) ＋ 到字节集 (街道id ＋ 街道名称 ＋ #换行符))
调试输出 (“街道”)
.计次循环尾 ()
.如果真结束
调试输出 (“区域”)
.计次循环尾 ()
调试输出 (a, “城市”)
.计次循环尾 ()
调试输出 (“完毕”)
.计次循环尾 ()


.子程序 _按钮1_被单击

启动线程 (&取省市id, , )


[/e]

代码运行是没有问题...但是在某些地方总是有时候全卡一会.....卡一会的....能优化一下吗?跟着学习一下


补充内容 (2013-11-18 22:14):
那个全字应该是"会"         -__-!!

我去...老是打错字

EExiaolin

你弄那么多处理事件干什么，都是多余的，
如果能把源码传上来，就好改了。
把源码传上来吧，

藏半杯水

好慢好慢....求大神帮忙优化代码....{:soso_e105:}

藏半杯水

@EExiaolin

源码....谢

藏半杯水

EExiaolin 发表于 2013-11-18 23:29
你弄那么多处理事件干什么，都是多余的，
如果能把源码传上来，就好改了。
把源码传上来吧，

源码来了!!!!!

EExiaolin

...正则方式都不发下 怎么弄， 不弄了

藏半杯水

EExiaolin 发表于 2013-11-19 00:16
...正则方式都不发下 怎么弄， 不弄了

-__-!!!!!

失误啊......重新上传了...

麻烦了啊....麻烦了啊

-____-!!!!

藏半杯水

不好意思啊....

藏半杯水

没有人帮忙0.0

苦逼啊