超级编辑框加入彩色文本模块

.子程序 加入信息, , 公开, 默认色：#白色；#红色；#橙色；#墨绿；#亮绿；#蓝色；#浅蓝；#紫色；#灰色；#浅灰；#棕色；#黑色。
.参数 超级编辑框, 超级编辑框
.参数 输出文本, 文本型, , 定义颜色段需要和本段定义的文本内容间有一个空格，例如“/#红色/ 这是一段红色文本/#蓝色/ 这是一段蓝色文本”；自定义颜色可直接用10进制色值
.局部变量 I, 整数型
.局部变量 处理输出信息, 文本型
.局部变量 分割文本1, 文本型, , "0"
.局部变量 分割文本2, 文本型, , "0"
.局部变量 是否加换行, 逻辑型

处理输出信息 ＝ 子文本替换 (输出文本, “/#白色”, “/#” ＋ 到文本 (#白色), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#红色”, “/#” ＋ 到文本 (#红色), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#橙色”, “/#42495”, , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#黄色”, “/#” ＋ 到文本 (#黄色), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#墨绿”, “/#” ＋ 到文本 (#墨绿), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#亮绿”, “/#65280”, , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#蓝色”, “/#” ＋ 到文本 (#蓝色), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#浅蓝”, “/#15509504”, , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#紫色”, “/#” ＋ 到文本 (#紫色), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#灰色”, “/#” ＋ 到文本 (#灰色), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#浅灰”, “/#” ＋ 到文本 (#浅灰), , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#棕色”, “/#535921”, , , 真)
处理输出信息 ＝ 子文本替换 (处理输出信息, “/#黑色”, “/#” ＋ 到文本 (#黑色), , , 真)
分割文本1 ＝ 分割文本 (处理输出信息, “/#”, )
是否加换行 ＝ 假
.计次循环首 (取数组成员数 (分割文本1), I)
.如果真 (I ≠ 1)
分割文本2 ＝ 分割文本 (分割文本1 [I], “/ ”, )
.如果真 (取数组成员数 (分割文本2) ≠ 2)
信息框 (“输出文本格式错误，请检查!!”, 0, , )
返回 ()
.如果真结束

.如果真 (取数组成员数 (分割文本1) ＝ I)
是否加换行 ＝ 真
.如果真结束
.如果 (文本是否数字 (分割文本2 [1]) ＝ 假)
单次发送 (超级编辑框, 分割文本2 [2], #黑色, 是否加换行)
.否则
单次发送 (超级编辑框, 分割文本2 [2], 到数值 (分割文本2 [1]), 是否加换行)
.如果结束

.如果真结束

.计次循环尾 ()