测试易语言代码直接在论坛显示

果子

精易模块3.71.zip (428.02 KB, 下载次数: 17)

2014-5-10 14:38 上传

点击文件名下载附件
下载积分: 精币 -2 枚

主要解决易代码与附件冲突的问题

  

子程序名	返回值类型	公开	备 注
运算_二分查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值A	双精度小数型
数值B	双精度小数型
文本	文本型

位置 ＝ 1
数组总数 ＝ 取数组成员数 (数组)
如果真 (数组总数 ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数值A ＝ 到数值 (待查)
如果真 (数值A ≥ 到数值 (数组 [数组总数]))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 到数值 (数组 [对分])
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)
返回 (数组总数 ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)
位置 ＝ 对分
跳出循环 ()
如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 2)
数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型 )
如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型 ))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型 ))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型 )
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()


返回 (位置 ＋ 1)

子程序名	返回值类型	公开	备 注
运算_函数计算	文本型		求正弦、余弦、正切、余切
参数名	类 型	参考	可空	数组	备 注
Text	文本型
单位	逻辑型				真为弧度制，假为角度制

变量名	类 型	静态	数组	备 注
TempText	文本型
FText	文本型			寻找值
FNum	整数型			寻找值的长度
ZText	文本型			函数括号内文本
RetText	文本型			函数括号内计算结果
i	整数型
Find	整数型			寻找到的位置
YFind	整数型			寻找到右括号的位置

TempText ＝ Text
计次循环首 (4, i)
FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)
FNum ＝ 多项选择 (i, 4, 4, 3, 4)
Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环首 (Find ≠ -1)
YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号
如果真 (YFind ≠ -1)
ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)
判断 (ZText ＝ “”)  ' 括号内无文本
TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )
RetText ＝ 运算_括号计算 (ZText)
如果真 (RetText ＝ “”)  ' 失败返回空文本
返回 (“”)
判断 (i ＝ 1)  ' 正弦
RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 2)  ' 余弦
RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 3)  ' 正切
RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切
如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)
返回 (“”)
TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)

Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环尾 ()
计次循环尾 ()
返回 (运算_括号计算 (TempText))

.版本 2<br /> <br /> .子程序 运算_二分查找, 整数型, 公开<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 位置, 整数型<br /> .局部变量 数组总数, 整数型<br /> .局部变量 对分, 整数型<br /> .局部变量 数值A, 双精度小数型<br /> .局部变量 数值B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> 位置 ＝ 1<br /> 数组总数 ＝ 取数组成员数 (数组)<br /> .如果真 (数组总数 ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />     数值A ＝ 到数值 (待查)<br />     .如果真 (数值A ≥ 到数值 (数组 [数组总数]))<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 到数值 (数组 [1]))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         数值B ＝ 到数值 (数组 [对分])<br />         .如果真 (数值A ＝ 数值B)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />     .如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         .如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 2)<br />     数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br />     .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型))<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型)<br />         .如果真 (数值A ＝ 数值B)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (位置 ＋ 1)<br /> <br /> .子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切<br /> .参数 Text, 文本型<br /> .参数 单位, 逻辑型, , 真为弧度制，假为角度制<br /> .局部变量 TempText, 文本型<br /> .局部变量 FText, 文本型, , , 寻找值<br /> .局部变量 FNum, 整数型, , , 寻找值的长度<br /> .局部变量 ZText, 文本型, , , 函数括号内文本<br /> .局部变量 RetText, 文本型, , , 函数括号内计算结果<br /> .局部变量 i, 整数型<br /> .局部变量 Find, 整数型, , , 寻找到的位置<br /> .局部变量 YFind, 整数型, , , 寻找到右括号的位置<br /> <br /> TempText ＝ Text<br /> .计次循环首 (4, i)<br />     FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)<br />     FNum ＝ 多项选择 (i, 4, 4, 3, 4)<br />     Find ＝ 寻找文本 (TempText, FText, , 假)<br />     .判断循环首 (Find ≠ -1)<br />         YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号<br />         .如果真 (YFind ≠ -1)<br />             ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)<br />             .判断开始 (ZText ＝ “”)  ' 括号内无文本<br />                 TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )<br />             .默认<br />                 RetText ＝ 运算_括号计算 (ZText)<br />                 .如果真 (RetText ＝ “”)  ' 失败返回空文本<br />                     返回 (“”)<br />                 .如果真结束<br />                 .判断开始 (i ＝ 1)  ' 正弦<br />                     RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .判断 (i ＝ 2)  ' 余弦<br />                     RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .判断 (i ＝ 3)  ' 正切<br />                     RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .默认<br />                     RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切<br />                 .判断结束<br />                 .如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)<br />                     返回 (“”)<br />                 .如果真结束<br />                 TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)<br />             .判断结束<br /> <br />         .如果真结束<br />         Find ＝ 寻找文本 (TempText, FText, , 假)<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (运算_括号计算 (TempText))

574448656

  

.子程序 运算_二分查找, 整数型, 公开

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值A	双精度小数型
数值B	双精度小数型
文本	文本型

位置 ＝ 1
数组总数 ＝ 取数组成员数 (数组)
如果真 (数组总数 ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数值A ＝ 到数值 (待查)
如果真 (数值A ≥ 到数值 (数组 [数组总数]))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 到数值 (数组 [对分])
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)
返回 (数组总数 ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)
位置 ＝ 对分
跳出循环 ()
如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 2)
数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型 )
如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型 ))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型 ))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型 )
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()


返回 (位置 ＋ 1)
.子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
Text	文本型
单位	逻辑型				真为弧度制，假为角度制

变量名	类 型	静态	数组	备 注
TempText	文本型
FText	文本型			寻找值
FNum	整数型			寻找值的长度
ZText	文本型			函数括号内文本
RetText	文本型			函数括号内计算结果
i	整数型
Find	整数型			寻找到的位置
YFind	整数型			寻找到右括号的位置

TempText ＝ Text
计次循环首 (4, i)
FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)
FNum ＝ 多项选择 (i, 4, 4, 3, 4)
Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环首 (Find ≠ -1)
YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号
如果真 (YFind ≠ -1)
ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)
判断 (ZText ＝ “”)  ' 括号内无文本
TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )
RetText ＝ 运算_括号计算 (ZText)
如果真 (RetText ＝ “”)  ' 失败返回空文本
返回 (“”)
判断 (i ＝ 1)  ' 正弦
RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 2)  ' 余弦
RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 3)  ' 正切
RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切
如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)
返回 (“”)
TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)

Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环尾 ()
计次循环尾 ()
返回 (运算_括号计算 (TempText))

.版本 2<br /> <br /> .子程序 运算_二分查找, 整数型, 公开<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 位置, 整数型<br /> .局部变量 数组总数, 整数型<br /> .局部变量 对分, 整数型<br /> .局部变量 数值A, 双精度小数型<br /> .局部变量 数值B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> 位置 ＝ 1<br /> 数组总数 ＝ 取数组成员数 (数组)<br /> .如果真 (数组总数 ＝ 0)<br />      返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />      数值A ＝ 到数值 (待查)<br />      .如果真 (数值A ≥ 到数值 (数组 [数组总数]))<br />          返回 (数组总数 ＋ 1)<br />      .如果真结束<br />     .如果真 (数值A ≤ 到数值 (数组 [1]))<br />          返回 (1)<br />      .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />          对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />          数值B ＝ 到数值 (数组 [对分])<br />          .如果真 (数值A ＝ 数值B)<br />              位置 ＝ 对分<br />             跳出循环 ()<br />          .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />              数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />      .如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)<br />          返回 (数组总数 ＋ 1)<br />      .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />          返回 (1)<br />      .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />          对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />          .如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)<br />              位置 ＝ 对分<br />             跳出循环 ()<br />          .如果真结束<br />         .如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)<br />              数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 2)<br />      数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br />      .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型))<br />          返回 (数组总数 ＋ 1)<br />      .如果真结束<br />     .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br />          返回 (1)<br />      .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />          对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />          数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型)<br />          .如果真 (数值A ＝ 数值B)<br />              位置 ＝ 对分<br />             跳出循环 ()<br />          .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />              数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (位置 ＋ 1)<br /> <br /> .子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切<br /> .参数 Text, 文本型<br /> .参数 单位, 逻辑型, , 真为弧度制，假为角度制<br /> .局部变量 TempText, 文本型<br /> .局部变量 FText, 文本型, , , 寻找值<br /> .局部变量 FNum, 整数型, , , 寻找值的长度<br /> .局部变量 ZText, 文本型, , , 函数括号内文本<br /> .局部变量 RetText, 文本型, , , 函数括号内计算结果<br /> .局部变量 i, 整数型<br /> .局部变量 Find, 整数型, , , 寻找到的位置<br /> .局部变量 YFind, 整数型, , , 寻找到右括号的位置<br /> <br /> TempText ＝ Text<br /> .计次循环首 (4, i)<br />      FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)<br />      FNum ＝ 多项选择 (i, 4, 4, 3, 4)<br />      Find ＝ 寻找文本 (TempText, FText, , 假)<br />      .判断循环首 (Find ≠ -1)<br />          YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号<br />         .如果真 (YFind ≠ -1)<br />              ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)<br />              .判断开始 (ZText ＝ “”)  ' 括号内无文本<br />                 TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )<br />              .默认<br />                 RetText ＝ 运算_括号计算 (ZText)<br />                  .如果真 (RetText ＝ “”)  ' 失败返回空文本<br />                     返回 (“”)<br />                  .如果真结束<br />                 .判断开始 (i ＝ 1)  ' 正弦<br />                     RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                  .判断 (i ＝ 2)  ' 余弦<br />                     RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                  .判断 (i ＝ 3)  ' 正切<br />                     RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                  .默认<br />                     RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切<br />                 .判断结束<br />                 .如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)<br />                      返回 (“”)<br />                  .如果真结束<br />                 TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)<br />              .判断结束<br /> <br />         .如果真结束<br />         Find ＝ 寻找文本 (TempText, FText, , 假)<br />      .判断循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (运算_括号计算 (TempText))

574448656

  

[DISCUZ_CODE_0]

<div class="blockcode"><div id="code_xtL"><ol><li>.版本 2<br /> <li><br /> <li> .子程序 运算_二分查找, 整数型, 公开<br /> <li>.参数 数组, 文本型, 数组<br /> <li>.参数 待查, 文本型<br /> <li>.参数 类型, 整数型<br /> <li>.参数 区分大小写, 逻辑型<br /> <li>.局部变量 位置, 整数型<br /> <li>.局部变量 数组总数, 整数型<br /> <li>.局部变量 对分, 整数型<br /> <li>.局部变量 数值A, 双精度小数型<br /> <li>.局部变量 数值B, 双精度小数型<br /> <li>.局部变量 文本, 文本型<br /> <li><br /> <li> 位置 ＝ 1<br /> <li>数组总数 ＝ 取数组成员数 (数组)<br /> <li> .如果真 (数组总数 ＝ 0)<br /> <li>     返回 (1)<br /> <li> .如果真结束<br /> <li>.判断开始 (类型 ＝ 0)<br /> <li>     数值A ＝ 到数值 (待查)<br /> <li>     .如果真 (数值A ≥ 到数值 (数组 [数组总数]))<br /> <li>         返回 (数组总数 ＋ 1)<br /> <li>     .如果真结束<br /> <li>    .如果真 (数值A ≤ 到数值 (数组 [1]))<br /> <li>         返回 (1)<br /> <li>     .如果真结束<br /> <li>    .判断循环首 (位置 ＜ 数组总数 － 1)<br /> <li>         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br /> <li>         数值B ＝ 到数值 (数组 [对分])<br /> <li>         .如果真 (数值A ＝ 数值B)<br /> <li>             位置 ＝ 对分<br /> <li>            跳出循环 ()<br /> <li>         .如果真结束<br /> <li>        .如果 (数值A ＜ 数值B)<br /> <li>             数组总数 ＝ 对分<br /> <li>        .否则<br /> <li>            位置 ＝ 对分<br /> <li>        .如果结束<br /> <li><br /> <li>    .判断循环尾 ()<br /> <li> .判断 (类型 ＝ 1)<br /> <li>     .如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)<br /> <li>         返回 (数组总数 ＋ 1)<br /> <li>     .如果真结束<br /> <li>    .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br /> <li>         返回 (1)<br /> <li>     .如果真结束<br /> <li>    .判断循环首 (位置 ＜ 数组总数 － 1)<br /> <li>         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br /> <li>         .如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)<br /> <li>             位置 ＝ 对分<br /> <li>            跳出循环 ()<br /> <li>         .如果真结束<br /> <li>        .如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)<br /> <li>             数组总数 ＝ 对分<br /> <li>        .否则<br /> <li>            位置 ＝ 对分<br /> <li>        .如果结束<br /> <li><br /> <li>    .判断循环尾 ()<br /> <li> .判断 (类型 ＝ 2)<br /> <li>     数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br /> <li>     .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型))<br /> <li>         返回 (数组总数 ＋ 1)<br /> <li>     .如果真结束<br /> <li>    .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br /> <li>         返回 (1)<br /> <li>     .如果真结束<br /> <li>    .判断循环首 (位置 ＜ 数组总数 － 1)<br /> <li>         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br /> <li>         数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型)<br /> <li>         .如果真 (数值A ＝ 数值B)<br /> <li>             位置 ＝ 对分<br /> <li>            跳出循环 ()<br /> <li>         .如果真结束<br /> <li>        .如果 (数值A ＜ 数值B)<br /> <li>             数组总数 ＝ 对分<br /> <li>        .否则<br /> <li>            位置 ＝ 对分<br /> <li>        .如果结束<br /> <li><br /> <li>    .判断循环尾 ()<br /> <li> .默认<br /> <li><br /> <li>.判断结束<br /> <li> 返回 (位置 ＋ 1)<br /> <li><br /> <li> .子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切<br /> <li>.参数 Text, 文本型<br /> <li>.参数 单位, 逻辑型, , 真为弧度制，假为角度制<br /> <li>.局部变量 TempText, 文本型<br /> <li>.局部变量 FText, 文本型, , , 寻找值<br /> <li>.局部变量 FNum, 整数型, , , 寻找值的长度<br /> <li>.局部变量 ZText, 文本型, , , 函数括号内文本<br /> <li>.局部变量 RetText, 文本型, , , 函数括号内计算结果<br /> <li>.局部变量 i, 整数型<br /> <li>.局部变量 Find, 整数型, , , 寻找到的位置<br /> <li>.局部变量 YFind, 整数型, , , 寻找到右括号的位置<br /> <li><br /> <li>TempText ＝ Text<br /> <li> .计次循环首 (4, i)<br /> <li>     FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)<br /> <li>     FNum ＝ 多项选择 (i, 4, 4, 3, 4)<br /> <li>     Find ＝ 寻找文本 (TempText, FText, , 假)<br /> <li>     .判断循环首 (Find ≠ -1)<br /> <li>         YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号<br /> <li>        .如果真 (YFind ≠ -1)<br /> <li>             ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)<br /> <li>             .判断开始 (ZText ＝ “”)  ' 括号内无文本<br /> <li>                TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )<br /> <li>             .默认<br /> <li>                RetText ＝ 运算_括号计算 (ZText)<br /> <li>                 .如果真 (RetText ＝ “”)  ' 失败返回空文本<br /> <li>                    返回 (“”)<br /> <li>                 .如果真结束<br /> <li>                .判断开始 (i ＝ 1)  ' 正弦<br /> <li>                    RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br /> <li>                 .判断 (i ＝ 2)  ' 余弦<br /> <li>                    RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br /> <li>                 .判断 (i ＝ 3)  ' 正切<br /> <li>                    RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br /> <li>                 .默认<br /> <li>                    RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切<br /> <li>                .判断结束<br /> <li>                .如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)<br /> <li>                     返回 (“”)<br /> <li>                 .如果真结束<br /> <li>                TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)<br /> <li>             .判断结束<br /> <li><br /> <li>        .如果真结束<br /> <li>        Find ＝ 寻找文本 (TempText, FText, , 假)<br /> <li>     .判断循环尾 ()<br /> <li> .计次循环尾 ()<br /> <li>返回 (运算_括号计算 (TempText))</ol></div><em onclick="copycode($('code_xtL'));">复制代码</em></div>

i织梦

  

子程序名	返回值类型	公开	备 注
运算_二分查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值A	双精度小数型
数值B	双精度小数型
文本	文本型

位置 ＝ 1
数组总数 ＝ 取数组成员数 (数组)
如果真 (数组总数 ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数值A ＝ 到数值 (待查)
如果真 (数值A ≥ 到数值 (数组 [数组总数]))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 到数值 (数组 [对分])
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)
返回 (数组总数 ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)
位置 ＝ 对分
跳出循环 ()
如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 2)
数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型 )
如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型 ))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型 ))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型 )
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()


返回 (位置 ＋ 1)

子程序名	返回值类型	公开	备 注
运算_函数计算	文本型		求正弦、余弦、正切、余切
参数名	类 型	参考	可空	数组	备 注
Text	文本型
单位	逻辑型				真为弧度制，假为角度制

变量名	类 型	静态	数组	备 注
TempText	文本型
FText	文本型			寻找值
FNum	整数型			寻找值的长度
ZText	文本型			函数括号内文本
RetText	文本型			函数括号内计算结果
i	整数型
Find	整数型			寻找到的位置
YFind	整数型			寻找到右括号的位置

TempText ＝ Text
计次循环首 (4, i)
FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)
FNum ＝ 多项选择 (i, 4, 4, 3, 4)
Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环首 (Find ≠ -1)
YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号
如果真 (YFind ≠ -1)
ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)
判断 (ZText ＝ “”)  ' 括号内无文本
TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )
RetText ＝ 运算_括号计算 (ZText)
如果真 (RetText ＝ “”)  ' 失败返回空文本
返回 (“”)
判断 (i ＝ 1)  ' 正弦
RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 2)  ' 余弦
RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 3)  ' 正切
RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切
如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)
返回 (“”)
TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)

Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环尾 ()
计次循环尾 ()
返回 (运算_括号计算 (TempText))

.版本 2<br /> <br /> .子程序 运算_二分查找, 整数型, 公开<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 位置, 整数型<br /> .局部变量 数组总数, 整数型<br /> .局部变量 对分, 整数型<br /> .局部变量 数值A, 双精度小数型<br /> .局部变量 数值B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> 位置 ＝ 1<br /> 数组总数 ＝ 取数组成员数 (数组)<br /> .如果真 (数组总数 ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />     数值A ＝ 到数值 (待查)<br />     .如果真 (数值A ≥ 到数值 (数组 [数组总数]))<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 到数值 (数组 [1]))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         数值B ＝ 到数值 (数组 [对分])<br />         .如果真 (数值A ＝ 数值B)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />     .如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         .如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 2)<br />     数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br />     .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型))<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型)<br />         .如果真 (数值A ＝ 数值B)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (位置 ＋ 1)<br /> <br /> .子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切<br /> .参数 Text, 文本型<br /> .参数 单位, 逻辑型, , 真为弧度制，假为角度制<br /> .局部变量 TempText, 文本型<br /> .局部变量 FText, 文本型, , , 寻找值<br /> .局部变量 FNum, 整数型, , , 寻找值的长度<br /> .局部变量 ZText, 文本型, , , 函数括号内文本<br /> .局部变量 RetText, 文本型, , , 函数括号内计算结果<br /> .局部变量 i, 整数型<br /> .局部变量 Find, 整数型, , , 寻找到的位置<br /> .局部变量 YFind, 整数型, , , 寻找到右括号的位置<br /> <br /> TempText ＝ Text<br /> .计次循环首 (4, i)<br />     FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)<br />     FNum ＝ 多项选择 (i, 4, 4, 3, 4)<br />     Find ＝ 寻找文本 (TempText, FText, , 假)<br />     .判断循环首 (Find ≠ -1)<br />         YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号<br />         .如果真 (YFind ≠ -1)<br />             ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)<br />             .判断开始 (ZText ＝ “”)  ' 括号内无文本<br />                 TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )<br />             .默认<br />                 RetText ＝ 运算_括号计算 (ZText)<br />                 .如果真 (RetText ＝ “”)  ' 失败返回空文本<br />                     返回 (“”)<br />                 .如果真结束<br />                 .判断开始 (i ＝ 1)  ' 正弦<br />                     RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .判断 (i ＝ 2)  ' 余弦<br />                     RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .判断 (i ＝ 3)  ' 正切<br />                     RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .默认<br />                     RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切<br />                 .判断结束<br />                 .如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)<br />                     返回 (“”)<br />                 .如果真结束<br />                 TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)<br />             .判断结束<br /> <br />         .如果真结束<br />         Find ＝ 寻找文本 (TempText, FText, , 假)<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (运算_括号计算 (TempText))

batcd

怎么做到的呢？

一个人的彷徨

好东西比较方便提问的童鞋

JasonChou

不明觉厉

hackrzc

好东西比较方便提问的童鞋

yechunlin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
喜欢编程	文本型

如果真 (喜欢编程 ＝ 真)
信息框 (“欢迎加入精易论坛”, 0, )

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 喜欢编程, 文本型<br /> <br /> .如果真 (喜欢编程 ＝ 真)<br /> 信息框 (“欢迎加入精易论坛”, 0, )

yechunlin

很好的更新，不错，可以完整显示易代码

金火大大

  

子程序名	返回值类型	公开	备 注
_采集_被选择

如果 (超级列表框1.取标题 (超级列表框1.现行选中项, 2) ＝ “0”)
信息框 (“无法采集”, 0, )
信息框 (“开始采集”, 0, )
线程_启动 (&线程_采集, 超级列表框1.现行选中项)

子程序名	返回值类型	公开	备 注
线程_采集
参数名	类 型	参考	可空	数组	备 注
id	整数型

超级列表框1.置标题 (id, 4, “采集中”)
开始采集 (id)

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (程序, , )

子程序名	返回值类型	公开	备 注
开始采集
参数名	类 型	参考	可空	数组	备 注
id	整数型

变量名	类 型	静态	数组	备 注
n	整数型
网页文本	文本型
临时数组1	文本型		0
临时数组2	文本型		0
临时文本	文本型
n1	整数型
初始文本	文本型
xx	正则表达式类

计次循环首 (到整数 (超级列表框1.取标题 (id, 2)), n)
网页文本 ＝ 到文本 (网页_访问 (“http://ks.yexoo.net/Admin/” ＋ 超级列表框1.取标题 (id, 0) ＋ “&pagenum=” ＋ 到文本 (n), 0))
' 调试输出 (网页文本)
xx.创建 ( #常量1, 网页文本, , 真, 真)
计次循环首 (xx.取匹配数量 (), n1)
临时文本 ＝ 临时文本 ＋ xx.取子匹配文本 (n1, 1) ＋ “--” ＋ xx.取子匹配文本 (n1, 2) ＋ #换行符
计次循环尾 ()
自动写出 (临时文本, 超级列表框1.取标题 (id, 1) ＋ “.txt”)
临时文本 ＝ “”
超级列表框1.置标题 (id, 3, 到文本 (n) ＋ “/” ＋ 超级列表框1.取标题 (id, 2))
计次循环尾 ()
超级列表框1.置标题 (id, 4, “已完成”)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _采集_被选择<br /> <br /> .如果 (超级列表框1.取标题 (超级列表框1.现行选中项, 2) ＝ “0”)<br />     信息框 (“无法采集”, 0, )<br /> .否则<br />     信息框 (“开始采集”, 0, )<br />     线程_启动 (&线程_采集, 超级列表框1.现行选中项)<br /> .如果结束<br /> <br /> <br /> .子程序 线程_采集<br /> .参数 id, 整数型<br /> <br /> 超级列表框1.置标题 (id, 4, “采集中”)<br /> 开始采集 (id)<br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (程序, , )<br /> <br /> .子程序 开始采集<br /> .参数 id, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 网页文本, 文本型<br /> .局部变量 临时数组1, 文本型, , "0"<br /> .局部变量 临时数组2, 文本型, , "0"<br /> .局部变量 临时文本, 文本型<br /> .局部变量 n1, 整数型<br /> .局部变量 初始文本, 文本型<br /> .局部变量 xx, 正则表达式类<br /> <br /> <br /> .计次循环首 (到整数 (超级列表框1.取标题 (id, 2)), n)<br />     网页文本 ＝ 到文本 (网页_访问 (“http://ks.yexoo.net/Admin/” ＋ 超级列表框1.取标题 (id, 0) ＋ “&pagenum=” ＋ 到文本 (n), 0))<br />     ' 调试输出 (网页文本)<br /> <br />     xx.创建 (#常量1, 网页文本, , 真, 真)<br />     .计次循环首 (xx.取匹配数量 (), n1)<br />         临时文本 ＝ 临时文本 ＋ xx.取子匹配文本 (n1, 1) ＋ “--” ＋ xx.取子匹配文本 (n1, 2) ＋ #换行符<br />     .计次循环尾 ()<br /> <br />     自动写出 (临时文本, 超级列表框1.取标题 (id, 1) ＋ “.txt”)<br />     临时文本 ＝ “”<br /> <br />     超级列表框1.置标题 (id, 3, 到文本 (n) ＋ “/” ＋ 超级列表框1.取标题 (id, 2))<br /> .计次循环尾 ()<br /> 超级列表框1.置标题 (id, 4, “已完成”)