精易论坛

标题: 测试易语言代码直接在论坛显示 [打印本页]

---

作者: 果子    时间: 2014-5-9 17:33
标题: 测试易语言代码直接在论坛显示
精易模块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))

---

作者: 宇智波·泉奈    时间: 2014-5-9 17:34
留名！！！

---

作者: 宇智波·泉奈    时间: 2014-5-9 17:35
有问题！！

QQ截图20140509173341.png (15.01 KB, 下载次数: 0)

下载附件

2014-5-9 17:35 上传

---

作者: 幸福的人生    时间: 2014-5-9 17:36
果子出来咯

---

作者: 宇智波·泉奈    时间: 2014-5-9 17:37
重新打开一下变这样

QQ截图20140509173514.png (33.36 KB, 下载次数: 0)

下载附件

2014-5-9 17:37 上传

---

作者: 牛X的孩子    时间: 2014-5-9 17:39
这不是饭团的插件么

---

作者: 小表哥    时间: 2014-5-9 17:40
好长的代码

---

作者: 或许下个路口转    时间: 2014-5-9 17:43
这是干嘛的？？

---

作者: 宇智波·泉奈    时间: 2014-5-9 17:43
百度浏览器！

---

作者: 暗影网络科技    时间: 2014-5-9 17:44
我用的360看着跟板凳的效果一样.

---

作者: 迷糊老师    时间: 2014-5-9 18:21
看看               

---

作者: 大表哥    时间: 2014-5-9 18:37
看看

---

作者: 深藏功舆名ゐ    时间: 2014-5-9 18:51
这是什么啊

---

作者: yinghao2005    时间: 2014-5-9 19:52
支持更直观

---

作者: 小熊君    时间: 2014-5-9 20:17
=。=好厉害啊。我都想学学网页什么的相关方面了。

---

作者: 小浩哥哥    时间: 2014-5-9 20:52
好厉害的样子。。

---

作者: djc2000    时间: 2014-5-9 20:59
好吧,我被惊到了

---

作者: afd    时间: 2014-5-9 21:33
虽然我不知道你们在讨论什么但是看起来很牛逼的样子

---

作者: love99    时间: 2014-5-9 21:58
虽然看不懂，可是很好看啊

---

作者: e族程序猿    时间: 2014-5-9 22:17
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 孩子的欢乐    时间: 2014-5-9 23:09
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 沐紫萌    时间: 2014-5-9 23:14
很好很好呀

---

作者: 天线宝宝    时间: 2014-5-9 23:22
问题来了不可以复制哦。。

---

作者: w1nfire    时间: 2014-5-10 00:14
虽然我不知道你们在讨论什么但是看起来很牛逼的样子

---

作者: 蛋炒番茄    时间: 2014-5-10 07:12
.版本 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))



  表示  可以复制！

---

作者: 蛋炒番茄    时间: 2014-5-10 07:13

  

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

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值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))

---

作者: 金火大大    时间: 2014-5-10 07:50

  

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

如果 (超级列表框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, “已完成”)

---

作者: yechunlin    时间: 2014-5-10 14:33


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

---

作者: yechunlin    时间: 2014-5-10 14:33

  

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

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

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

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

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

---

作者: hackrzc    时间: 2014-5-10 20:20
好东西比较方便提问的童鞋

---

作者: JasonChou    时间: 2014-5-11 13:49
不明觉厉

---

作者: 一个人的彷徨    时间: 2014-7-20 10:35
好东西比较方便提问的童鞋

---

作者: batcd    时间: 2014-7-23 17:42
怎么做到的呢？

---

作者: i织梦    时间: 2014-11-9 13:45

  

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

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值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    时间: 2018-1-14 21:20

  

[DISCUZ_CODE_0]

<div class="blockcode"><div id="code_J2X"><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_J2X'));">复制代码</em></div>

---

作者: 574448656    时间: 2018-1-14 21:25

  

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

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

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值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))

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4