原来编程那么难的呀

hjh2112

在网上看觅风的易语言教程，觉得编程也没多难，感觉还有些容易，然而程序员的工资为何都那么高。直到刚才我发现，原来编程是那么的难，要是让我干编程，写那么复杂的代码，给我100K一个月我也不会干。以后谁再说易语言容易，我就让他看这段代码。这些别人写的一小段代码，大家欣赏一下。

  

子程序名	返回值类型	公开	备 注
_D_字符输入	整数型		用于接收用户输入的字符的处理
参数名	类 型	参考	可空	数组	备 注
字符代码	整数型

变量名	类 型	静态	数组	备 注
临时_字节集	字节集
代码寄存	文本型
光标前文本长	整数型
删除字符数	整数型
行数	整数型
数组数	整数型
空位长	整数型
光辉	整数型
光第	整数型

' 调试输出 (“字符代码=>”, 字符代码, 列表框1.可视)
如果真 (超级列表框1.可视)
判断 (字符代码 ＝ 32)
超级列表框1.可视 ＝ 假
返回 ()



判断 (字符代码 ＝ 1)  ' 全选
_全选_被选择 ()
判断 (字符代码 ＝ 26)  ' 撤销
_撤销_被选择 ()
判断 (字符代码 ＝ 24)  ' 剪切
置剪辑板文本 (剪切选中 ())
判断 (字符代码 ＝ 3)  ' 复制
_复制_被选择 ()
判断 (字符代码 ＝ 22)  ' 粘贴
_粘贴_被选择 ()
如果真 (光标.顶边 ＜ 0)
首可见行 ＝ 取光标所在行 ()
全屏绘图 ()
置光标所在行 (首可见行)
如果真 (光标.顶边 ＜ D.高度)
行数 ＝ 取光标所在行 ()
如果真 (行数 ＜ 0)
输出错误配置 (“代码被意外的删空_输入字符位置不正确！！”, 1911)
返回 ()
如果 (字符代码 ＞ 126)
如果 (xii)
临时_字节集 ＝ 格式文本到字节集 (“{” ＋ 到文本 (shang) ＋ “,” ＋ 到文本 (字符代码) ＋ “}”)
shang ＝ 0
如果 (取数组成员数 (代码数组 [行数].代码文本) ＞ 0)
判断 (代码数组 [行数].框架 ＝ #系统子程序 )

判断 (代码数组 [行数].框架 ＝ #系统参数 )
判断 (代码数组 [行数].框架 ＝ #系统变量 )
判断 (代码数组 [行数].框架 ＝ #系统引入 )
判断 (代码数组 [行数].框架 ＝ #系统集成名 )
判断 (代码数组 [行数].框架 ＝ #系统集成变量 )
判断 (代码数组 [行数].框架 ＝ #正常代码 )
数组数 ＝ 取光标所在数组 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 到文本 (临时_字节集) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)
光标.左边 ＝ 光标.左边 ＋ 12
判断 (代码数组 [行数].框架 ＝ #续正常代码 )
数组数 ＝ 取光标所在数组 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 到文本 (临时_字节集) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)
光标.左边 ＝ 光标.左边 ＋ 12
如果真 (临时_字节集 ≠ 格式文本到字节集 (“{161,161}”))
数组数 ＝ 取光标所在数组 ()
如果真 (数组数 ≤ 0)
输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 10001)
返回 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 到文本 (临时_字节集) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)
光标.左边 ＝ 光标.左边 ＋ 12


加入成员 (代码数组 [行数].代码文本, 到文本 (临时_字节集))
全屏绘图 ()
xii ＝ 假
xii ＝ 真
shang ＝ 字符代码
首拼输入 (取光标处字组 (), 常用输入文本)
判断 (字符代码 ＝ 13)  ' 回车
处理回车事件 ()
判断 (字符代码 ＝ 8)  ' 删除
' 调试输出 (删首尾空 (剪切选中 ()))
光辉 ＝ 光标.顶边
光第 ＝ 光标.左边
如果真 (删首尾空 (剪切选中 ()) ＝ “”)
光标.顶边 ＝ 光辉
光标.左边 ＝ 光第
如果真 (行数 ≤ 取数组成员数 (代码数组))
判断 (代码数组 [行数].框架 ＝ #系统子程序 )

判断 (代码数组 [行数].框架 ＝ #系统参数 )
判断 (代码数组 [行数].框架 ＝ #系统变量 )
判断 (代码数组 [行数].框架 ＝ #系统引入 )
判断 (代码数组 [行数].框架 ＝ #系统集成名 )
判断 (代码数组 [行数].框架 ＝ #系统集成变量 )
判断 (代码数组 [行数].框架 ＝ #正常代码 )
数组数 ＝ 取光标所在数组 ()
如果真 (数组数 ≤ 0)
输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 1001)
返回 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长 － 3) ÷ 6
删除字符数 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6 － 光标前文本长
判断 (删除字符数 ＝ 1)
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 1)
光标.左边 ＝ 空位长 ＋ 光标前文本长 × 6
画一行 (行数)
判断 (删除字符数 ＝ 2)
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 2)
光标.左边 ＝ 空位长 ＋ 光标前文本长 × 6
画一行 (行数)
如果真 (行数 ＞ 1)
判断 (代码数组 [行数 － 1].框架 ＝ #正常代码 )
如果 (取数组成员数 (代码数组 [行数 － 1].代码文本) ＞ 0)
如果 (删首尾空 (代码数组 [行数 － 1].代码文本 [1]) ＝ “”)
删除成员 (代码数组, 行数 － 1, 1)
如果 (光标.顶边 － 19 ＜ 0)
首可见行 ＝ 首可见行 － 1
光标.顶边 ＝ 光标.顶边 － 19
全屏绘图 ()
空位长 ＝ 取数组前空位 (行数 － 1, 数组数)
光标.左边 ＝ 空位长 ＋ 取文本长度 (代码数组 [行数 － 1].代码文本 [1]) × 6
代码数组 [行数 － 1].代码文本 [1] ＝ 代码数组 [行数 － 1].代码文本 [1] ＋ 代码数组 [行数].代码文本 [1]
删除成员 (代码数组, 行数, 1)
如果 (光标.顶边 － 19 ＜ 0)
首可见行 ＝ 首可见行 － 1
光标.顶边 ＝ 光标.顶边 － 19
全屏绘图 ()

空位长 ＝ 取数组前空位 (行数 － 1, 数组数)
光标.左边 ＝ 空位长 ＋ 取文本长度 (代码数组 [行数 － 1].代码文本 [1]) × 6
代码数组 [行数 － 1].代码文本 [1] ＝ 代码数组 [行数 － 1].代码文本 [1] ＋ 代码数组 [行数].代码文本 [1]
删除成员 (代码数组, 行数, 1)
如果 (光标.顶边 － 19 ＜ 0)
首可见行 ＝ 首可见行 － 1
光标.顶边 ＝ 光标.顶边 － 19
全屏绘图 ()

判断 (代码数组 [行数 － 1].框架 ＝ #续正常代码 )
空位长 ＝ 取数组前空位 (行数 － 1, 数组数)
光标.左边 ＝ 空位长 ＋ 取文本长度 (代码数组 [行数 － 1].代码文本 [1]) × 6
代码数组 [行数 － 1].代码文本 [1] ＝ 代码数组 [行数 － 1].代码文本 [1] ＋ 代码数组 [行数].代码文本 [1]
删除成员 (代码数组, 行数, 1)
如果 (光标.顶边 － 19 ＜ 0)
首可见行 ＝ 首可见行 － 1
光标.顶边 ＝ 光标.顶边 － 19
全屏绘图 ()


纵向滚动条1.最大位置 ＝ 取数组成员数 (代码数组)


判断 (代码数组 [行数].框架 ＝ #续正常代码 )

数组数 ＝ 取光标所在数组 ()
如果真 (数组数 ≤ 0)
输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 1001)
返回 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长 － 3) ÷ 6
删除字符数 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6 － 光标前文本长
判断 (删除字符数 ＝ 1)
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 1)
判断 (删除字符数 ＝ 2)
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 2)


光标.左边 ＝ 空位长 ＋ 光标前文本长 × 6


全屏绘图 ()
首拼输入 (取光标处字组 (), 常用输入文本)
判断 (字符代码 ＝ 27)
结束 ()
如果 (取数组成员数 (代码数组 [行数].代码文本) ＞ 0)
' 调试输出 (字符 (字符代码))
判断 (代码数组 [行数].框架 ＝ #系统子程序 )

判断 (代码数组 [行数].框架 ＝ #系统参数 )
判断 (代码数组 [行数].框架 ＝ #系统变量 )
判断 (代码数组 [行数].框架 ＝ #系统引入 )
判断 (代码数组 [行数].框架 ＝ #系统集成名 )
判断 (代码数组 [行数].框架 ＝ #系统集成变量 )
判断 (代码数组 [行数].框架 ＝ #正常代码 )
数组数 ＝ 取光标所在数组 ()
如果真 (数组数 ≤ 0)
输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 1001)
返回 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6
' 调试输出 (数组数, 光标前文本长, 取文本左边 (代码寄存, 光标前文本长), 字符 (字符代码), 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长))
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 字符 (字符代码) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)
光标.左边 ＝ 光标.左边 ＋ 6
判断 (代码数组 [行数].框架 ＝ #续正常代码 )
数组数 ＝ 取光标所在数组 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6
' 调试输出 (数组数, 光标前文本长, 取文本左边 (代码寄存, 光标前文本长), 字符 (字符代码), 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长))
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 字符 (字符代码) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)
光标.左边 ＝ 光标.左边 ＋ 6
如果真 (字符代码 ≠ 32)
数组数 ＝ 取光标所在数组 ()
如果真 (数组数 ≤ 0)
输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 10001)
返回 ()
代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]
空位长 ＝ 取数组前空位 (行数, 数组数)
光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6
' 调试输出 (数组数, 光标前文本长, 取文本左边 (代码寄存, 光标前文本长), 字符 (字符代码), 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长))
代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 字符 (字符代码) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)
光标.左边 ＝ 光标.左边 ＋ 6

首拼输入 (取光标处字组 (), 常用输入文本)
加入成员 (代码数组 [行数].代码文本, 字符 (字符代码))
全屏绘图 ()
xii ＝ 假



' 整理缩进 ()
' 调试输出 (取光标所在行 (), 取光标所在数组 (), 落点范围 (代码数组 [取光标所在行 ()].代码文本 [取光标所在数组 ()], 光标.左边 － #左边空位))

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _D_字符输入, 整数型, , 用于接收用户输入的字符的处理<br /> .参数 字符代码, 整数型<br /> .局部变量 临时_字节集, 字节集<br /> .局部变量 代码寄存, 文本型<br /> .局部变量 光标前文本长, 整数型<br /> .局部变量 删除字符数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 数组数, 整数型<br /> .局部变量 空位长, 整数型<br /> .局部变量 光辉, 整数型<br /> .局部变量 光第, 整数型<br /> <br /> ' 调试输出 (“字符代码=>”, 字符代码, 列表框1.可视)<br /> .如果真 (超级列表框1.可视)<br />     .判断开始 (字符代码 ＝ 32)<br />         超级列表框1.可视 ＝ 假<br />         返回 ()<br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> .判断开始 (字符代码 ＝ 1)  ' 全选<br />     _全选_被选择 ()<br /> .判断 (字符代码 ＝ 26)  ' 撤销<br />     _撤销_被选择 ()<br /> .判断 (字符代码 ＝ 24)  ' 剪切<br />     置剪辑板文本 (剪切选中 ())<br /> .判断 (字符代码 ＝ 3)  ' 复制<br />     _复制_被选择 ()<br /> .判断 (字符代码 ＝ 22)  ' 粘贴<br />     _粘贴_被选择 ()<br /> .默认<br />     .如果真 (光标.顶边 ＜ 0)<br />         首可见行 ＝ 取光标所在行 ()<br />         全屏绘图 ()<br />         置光标所在行 (首可见行)<br />     .如果真结束<br />     .如果真 (光标.顶边 ＜ D.高度)<br />         行数 ＝ 取光标所在行 ()<br />         .如果真 (行数 ＜ 0)<br />             输出错误配置 (“代码被意外的删空_输入字符位置不正确！！”, 1911)<br />             返回 ()<br />         .如果真结束<br />         .如果 (字符代码 ＞ 126)<br />             .如果 (xii)<br />                 临时_字节集 ＝ 格式文本到字节集 (“{” ＋ 到文本 (shang) ＋ “,” ＋ 到文本 (字符代码) ＋ “}”)<br />                 shang ＝ 0<br />                 .如果 (取数组成员数 (代码数组 [行数].代码文本) ＞ 0)<br />                     .判断开始 (代码数组 [行数].框架 ＝ #系统子程序)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统参数)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统变量)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统引入)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统集成名)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统集成变量)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #正常代码)<br />                         数组数 ＝ 取光标所在数组 ()<br />                         代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                         空位长 ＝ 取数组前空位 (行数, 数组数)<br />                         光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6<br />                         代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 到文本 (临时_字节集) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)<br />                         光标.左边 ＝ 光标.左边 ＋ 12<br />                     .判断 (代码数组 [行数].框架 ＝ #续正常代码)<br />                         数组数 ＝ 取光标所在数组 ()<br />                         代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                         空位长 ＝ 取数组前空位 (行数, 数组数)<br />                         光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6<br />                         代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 到文本 (临时_字节集) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)<br />                         光标.左边 ＝ 光标.左边 ＋ 12<br />                     .默认<br />                         .如果真 (临时_字节集 ≠ 格式文本到字节集 (“{161,161}”))<br />                             数组数 ＝ 取光标所在数组 ()<br />                             .如果真 (数组数 ≤ 0)<br />                                 输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 10001)<br />                                 返回 ()<br />                             .如果真结束<br />                             代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                             空位长 ＝ 取数组前空位 (行数, 数组数)<br />                             光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6<br />                             代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 到文本 (临时_字节集) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)<br />                             光标.左边 ＝ 光标.左边 ＋ 12<br />                         .如果真结束<br /> <br />                     .判断结束<br /> <br />                 .否则<br />                     加入成员 (代码数组 [行数].代码文本, 到文本 (临时_字节集))<br />                 .如果结束<br />                 全屏绘图 ()<br />                 xii ＝ 假<br />             .否则<br />                 xii ＝ 真<br />                 shang ＝ 字符代码<br />             .如果结束<br />             首拼输入 (取光标处字组 (), 常用输入文本)<br />         .否则<br />             .判断开始 (字符代码 ＝ 13)  ' 回车<br />                 处理回车事件 ()<br />             .判断 (字符代码 ＝ 8)  ' 删除<br />                 ' 调试输出 (删首尾空 (剪切选中 ()))<br />                 光辉 ＝ 光标.顶边<br />                 光第 ＝ 光标.左边<br />                 .如果真 (删首尾空 (剪切选中 ()) ＝ “”)<br />                     光标.顶边 ＝ 光辉<br />                     光标.左边 ＝ 光第<br />                     .如果真 (行数 ≤ 取数组成员数 (代码数组))<br />                         .判断开始 (代码数组 [行数].框架 ＝ #系统子程序)<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #系统参数)<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #系统变量)<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #系统引入)<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #系统集成名)<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #系统集成变量)<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #正常代码)<br />                             数组数 ＝ 取光标所在数组 ()<br />                             .如果真 (数组数 ≤ 0)<br />                                 输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 1001)<br />                                 返回 ()<br />                             .如果真结束<br />                             代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                             空位长 ＝ 取数组前空位 (行数, 数组数)<br />                             光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长 － 3) ÷ 6<br />                             删除字符数 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6 － 光标前文本长<br />                             .判断开始 (删除字符数 ＝ 1)<br />                                 代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 1)<br />                                 光标.左边 ＝ 空位长 ＋ 光标前文本长 × 6<br />                                 画一行 (行数)<br />                             .判断 (删除字符数 ＝ 2)<br />                                 代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 2)<br />                                 光标.左边 ＝ 空位长 ＋ 光标前文本长 × 6<br />                                 画一行 (行数)<br />                             .默认<br />                                 .如果真 (行数 ＞ 1)<br />                                     .判断开始 (代码数组 [行数 － 1].框架 ＝ #正常代码)<br />                                         .如果 (取数组成员数 (代码数组 [行数 － 1].代码文本) ＞ 0)<br />                                             .如果 (删首尾空 (代码数组 [行数 － 1].代码文本 [1]) ＝ “”)<br />                                                 删除成员 (代码数组, 行数 － 1, 1)<br />                                                 .如果 (光标.顶边 － 19 ＜ 0)<br />                                                     首可见行 ＝ 首可见行 － 1<br />                                                 .否则<br />                                                     光标.顶边 ＝ 光标.顶边 － 19<br />                                                 .如果结束<br />                                                 全屏绘图 ()<br />                                             .否则<br />                                                 空位长 ＝ 取数组前空位 (行数 － 1, 数组数)<br />                                                 光标.左边 ＝ 空位长 ＋ 取文本长度 (代码数组 [行数 － 1].代码文本 [1]) × 6<br />                                                 代码数组 [行数 － 1].代码文本 [1] ＝ 代码数组 [行数 － 1].代码文本 [1] ＋ 代码数组 [行数].代码文本 [1]<br />                                                 删除成员 (代码数组, 行数, 1)<br />                                                 .如果 (光标.顶边 － 19 ＜ 0)<br />                                                     首可见行 ＝ 首可见行 － 1<br />                                                 .否则<br />                                                     光标.顶边 ＝ 光标.顶边 － 19<br />                                                 .如果结束<br />                                                 全屏绘图 ()<br />                                             .如果结束<br /> <br />                                         .否则<br />                                             空位长 ＝ 取数组前空位 (行数 － 1, 数组数)<br />                                             光标.左边 ＝ 空位长 ＋ 取文本长度 (代码数组 [行数 － 1].代码文本 [1]) × 6<br />                                             代码数组 [行数 － 1].代码文本 [1] ＝ 代码数组 [行数 － 1].代码文本 [1] ＋ 代码数组 [行数].代码文本 [1]<br />                                             删除成员 (代码数组, 行数, 1)<br />                                             .如果 (光标.顶边 － 19 ＜ 0)<br />                                                 首可见行 ＝ 首可见行 － 1<br />                                             .否则<br />                                                 光标.顶边 ＝ 光标.顶边 － 19<br />                                             .如果结束<br />                                             全屏绘图 ()<br />                                         .如果结束<br /> <br />                                     .判断 (代码数组 [行数 － 1].框架 ＝ #续正常代码)<br />                                         空位长 ＝ 取数组前空位 (行数 － 1, 数组数)<br />                                         光标.左边 ＝ 空位长 ＋ 取文本长度 (代码数组 [行数 － 1].代码文本 [1]) × 6<br />                                         代码数组 [行数 － 1].代码文本 [1] ＝ 代码数组 [行数 － 1].代码文本 [1] ＋ 代码数组 [行数].代码文本 [1]<br />                                         删除成员 (代码数组, 行数, 1)<br />                                         .如果 (光标.顶边 － 19 ＜ 0)<br />                                             首可见行 ＝ 首可见行 － 1<br />                                         .否则<br />                                             光标.顶边 ＝ 光标.顶边 － 19<br />                                         .如果结束<br />                                         全屏绘图 ()<br />                                     .默认<br /> <br />                                     .判断结束<br />                                     纵向滚动条1.最大位置 ＝ 取数组成员数 (代码数组)<br />                                 .如果真结束<br /> <br />                             .判断结束<br /> <br />                         .判断 (代码数组 [行数].框架 ＝ #续正常代码)<br /> <br />                         .默认<br />                             数组数 ＝ 取光标所在数组 ()<br />                             .如果真 (数组数 ≤ 0)<br />                                 输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 1001)<br />                                 返回 ()<br />                             .如果真结束<br />                             代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                             空位长 ＝ 取数组前空位 (行数, 数组数)<br />                             光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长 － 3) ÷ 6<br />                             删除字符数 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6 － 光标前文本长<br />                             .判断开始 (删除字符数 ＝ 1)<br />                                 代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 1)<br />                             .判断 (删除字符数 ＝ 2)<br />                                 代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长 － 2)<br />                             .默认<br /> <br />                             .判断结束<br />                             光标.左边 ＝ 空位长 ＋ 光标前文本长 × 6<br /> <br />                         .判断结束<br /> <br /> <br />                     .如果真结束<br /> <br />                 .如果真结束<br />                 全屏绘图 ()<br />                 首拼输入 (取光标处字组 (), 常用输入文本)<br />             .判断 (字符代码 ＝ 27)<br />                 结束 ()<br />             .默认<br />                 .如果 (取数组成员数 (代码数组 [行数].代码文本) ＞ 0)<br />                     ' 调试输出 (字符 (字符代码))<br />                     .判断开始 (代码数组 [行数].框架 ＝ #系统子程序)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统参数)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统变量)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统引入)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统集成名)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #系统集成变量)<br /> <br />                     .判断 (代码数组 [行数].框架 ＝ #正常代码)<br />                         数组数 ＝ 取光标所在数组 ()<br />                         .如果真 (数组数 ≤ 0)<br />                             输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 1001)<br />                             返回 ()<br />                         .如果真结束<br />                         代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                         空位长 ＝ 取数组前空位 (行数, 数组数)<br />                         光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6<br />                         ' 调试输出 (数组数, 光标前文本长, 取文本左边 (代码寄存, 光标前文本长), 字符 (字符代码), 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长))<br />                         代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 字符 (字符代码) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)<br />                         光标.左边 ＝ 光标.左边 ＋ 6<br />                     .判断 (代码数组 [行数].框架 ＝ #续正常代码)<br />                         数组数 ＝ 取光标所在数组 ()<br />                         代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                         空位长 ＝ 取数组前空位 (行数, 数组数)<br />                         光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6<br />                         ' 调试输出 (数组数, 光标前文本长, 取文本左边 (代码寄存, 光标前文本长), 字符 (字符代码), 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长))<br />                         代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 字符 (字符代码) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)<br />                         光标.左边 ＝ 光标.左边 ＋ 6<br />                     .默认<br />                         .如果真 (字符代码 ≠ 32)<br />                             数组数 ＝ 取光标所在数组 ()<br />                             .如果真 (数组数 ≤ 0)<br />                                 输出错误配置 (“光标所在数组为_” ＋ 到文本 (数组数), 10001)<br />                                 返回 ()<br />                             .如果真结束<br />                             代码寄存 ＝ 代码数组 [行数].代码文本 [数组数]<br />                             空位长 ＝ 取数组前空位 (行数, 数组数)<br />                             光标前文本长 ＝ 取落点范围 (代码寄存, 光标.左边 － 空位长) ÷ 6<br />                             ' 调试输出 (数组数, 光标前文本长, 取文本左边 (代码寄存, 光标前文本长), 字符 (字符代码), 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长))<br />                             代码数组 [行数].代码文本 [数组数] ＝ 取文本左边 (代码寄存, 光标前文本长) ＋ 字符 (字符代码) ＋ 取文本右边 (代码寄存, 取文本长度 (代码寄存) － 光标前文本长)<br />                             光标.左边 ＝ 光标.左边 ＋ 6<br />                         .如果真结束<br /> <br />                     .判断结束<br />                     首拼输入 (取光标处字组 (), 常用输入文本)<br />                 .否则<br />                     加入成员 (代码数组 [行数].代码文本, 字符 (字符代码))<br />                 .如果结束<br />                 全屏绘图 ()<br />             .判断结束<br />             xii ＝ 假<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> ' 整理缩进 ()<br /> ' 调试输出 (取光标所在行 (), 取光标所在数组 (), 落点范围 (代码数组 [取光标所在行 ()].代码文本 [取光标所在数组 ()], 光标.左边 － #左边空位))

xinhan2012

这不跟我初学编程一样嘛。都是一大堆乱七八糟的代码。

永美发

  这个都难  直接别学了。。。又没什么特殊  都是对应处理

一粒红尘

看着乱 自己写也就那么回事

XcantloadX

这是在自己实现一个编辑框吗？那确实挺难的

星马豪

你需要彩虹流程线

星马豪

可读性拉满

云少i

当你一个逻辑写2000行3000行的时候，你就是正经的程序员了。当你把这几千行逻辑改为200行的时候，你就是程序员大佬了。

笨来无一悟

不是代码多就高级吧 越优秀的程序员 通常代码越少(偶尔为了效率代码多的写法更高效 也有反例)通常哈 我是说通常 通常代码量和效率是成正比的

汉族

以后大佬封装起来就不难了，要懂得 在巨人肩膀上继续创造辉煌