特殊号码源码

admin · 发表于 2025-10-1 14:26:31

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
集_上字	字节集
集_下字	字节集
集_粗体	字节集
集_细体	字节集
集_圆圈	字节集
集_实心	字节集
集_双线	字节集
横竖	逻辑型
数字数组	自定义

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

变量名	类型	静态	数组	备注
测试结果	字节集
结果	字节集
i	整数型
测试号	文本型
特殊号码	字节集
替换	替换规则		0

置随机数种子 ()
清除数组 (数字数组.成员)
横竖＝假 ' 设为假测试单独一行显示，设为真测试连续显示
初始化 ()
测试结果＝ { 239, 187, 191 } ' UTF-8 BOM
测试结果＝测试结果＋生成特殊字符 ()

计次循环首 (取数组成员数 (数字数组.成员), i)

如果 (横竖)

结果＝结果＋数字数组.成员 [i] ＋ { 13, 10 }

如果 (i ％ 10 ＝ 0)

结果＝结果＋数字数组.成员 [i] ＋ { 13, 10 }

结果＝结果＋数字数组.成员 [i]

计次循环尾 ()
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\测试结果.txt”, 结果)
测试号＝ “18812345678”
重定义数组 (替换, 真, 11)

计次循环首 (11, i)

替换 [i].位置啊＝取随机数 (1, 11)

替换 [i].类型啊＝取随机数 (1, 8) ' 8个类型的特殊数字

计次循环尾 ()
特殊号码＝混合替换数字 (测试号, 替换)
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\混合号码.txt”, { 239, 187, 191 } ＋特殊号码)
结束 ()

子程序名	返回值类型	公开	备注
混合替换数字	字节集
参数名	类型	参考	可空	数组	备注
原始文本	文本型
规则数组	替换规则			√

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
j	整数型
当前字符	文本型
数字值	整数型
数组索引	整数型
默认类型	整数型
当前类型	整数型

' 默认规则：未指定的位置使用上标数字
默认类型＝ 1

计次循环首 (取文本长度 (原始文本), i)

当前字符＝取文本中间 (原始文本, i, 1)

' 查找当前字符的规则

当前类型＝默认类型

计次循环首 (取数组成员数 (规则数组), j)

如果 (规则数组 [j].位置啊＝ i)

当前类型＝规则数组 [j].类型啊

跳出循环 ()

计次循环尾 ()

' 处理数字

如果 (当前字符 ≥ “0” 且当前字符 ≤ “9”)

数字值＝到整数 (当前字符)

数组索引＝数字值＋ 1 �� (当前类型－ 1) × 10

' 安全边界检查

如果 (数组索引 ≥ 1 且数组索引 ≤ 取数组成员数 (数字数组.成员))

结果＝结果＋数字数组.成员 [数组索引]

结果＝结果＋到字节集 (当前字符) ' 索引越界保持原样

结果＝结果＋到字节集 (当前字符) ' 非数字字符原样保留

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
混合替换数字1	字节集
参数名	类型	参考	可空	数组	备注
原始文本	文本型
规则数组	替换规则			√

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
j	整数型
当前字符	文本型
当前规则	替换规则
默认规则	替换规则

' 默认规则：未指定的位置使用上标数字
默认规则.类型啊＝ 1

计次循环首 (取文本长度 (原始文本), i)

当前字符＝取文本中间 (原始文本, i, 1)

' 查找当前字符的规则

当前规则＝默认规则

计次循环首 (取数组成员数 (规则数组), j)

如果 (规则数组 [j].位置啊＝ i)

当前规则＝规则数组 [j]

跳出循环 ()

计次循环尾 ()

' 处理数字

如果 (是否数字 (当前字符))

结果＝结果＋数字数组.成员 [到整数 (当前字符) ＋ 1 �� (当前规则.类型啊－ 1) × 10]

结果＝结果＋到字节集 (当前字符)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
是否数字	逻辑型
参数名	类型	参考	可空	数组	备注
字符	文本型

变量名	类型	静态	数组	备注
编码	整数型

编码＝取代码 (字符, )
返回 (编码 ≥ 48 且编码 ≤ 57) ' ASCII码中0=48, 9=57

子程序名	返回值类型	公开	备注
初始化

' 上标数字（UTF-8编码）
集_上字＝ { 226, 129, 176, 194, 185, 194, 178, 194, 179, 226, 129, 180, 226, 129, 181, 226, 129, 182, 226, 129, 183, 226, 129, 184, 226, 129, 185 }
' 下标数字（UTF-8编码）
集_下字＝ { 226, 130, 128, 226, 130, 129, 226, 130, 130, 226, 130, 131, 226, 130, 132, 226, 130, 133, 226, 130, 134, 226, 130, 135, 226, 130, 136, 226, 130, 137 }
' 数学细体数字（UTF-8编码）
集_细体＝ { 240, 157, 159, 182, 240, 157, 159, 183, 240, 157, 159, 184, 240, 157, 159, 185, 240, 157, 159, 186, 240, 157, 159, 187, 240, 157, 159, 188, 240, 157, 159, 189, 240, 157, 159, 190, 240, 157, 159, 191 }
' 数学粗体数字（UTF-8编码）
集_粗体＝ { 240, 157, 159, 142, 240, 157, 159, 143, 240, 157, 159, 144, 240, 157, 159, 145, 240, 157, 159, 146, 240, 157, 159, 147, 240, 157, 159, 148, 240, 157, 159, 149, 240, 157, 159, 150, 240, 157, 159, 151 }
' 双线数字（UTF-8编码）
集_双线＝ { 240, 157, 159, 152, 240, 157, 159, 153, 240, 157, 159, 154, 240, 157, 159, 155, 240, 157, 159, 156, 240, 157, 159, 157, 240, 157, 159, 158, 240, 157, 159, 159, 240, 157, 159, 160, 240, 157, 159, 161 }
' 实心数字（UTF-8编码）
集_实心＝ { 226, 147, 191, 226, 157, 182, 226, 157, 183, 226, 157, 184, 226, 157, 185, 226, 157, 186, 226, 157, 187, 226, 157, 188, 226, 157, 189, 226, 157, 190 }
' 圆圈数字（UTF-8编码）
集_圆圈＝ { 226, 147, 170, 226, 145, 160, 226, 145, 161, 226, 145, 162, 226, 145, 163, 226, 145, 164, 226, 145, 165, 226, 145, 166, 226, 145, 167, 226, 145, 168 }
清除数组 (数字数组.成员)
自动拆分字节集 (集_上字, 数字数组.成员)
自动拆分字节集 (集_下字, 数字数组.成员, 3)
自动拆分字节集 (集_细体, 数字数组.成员, 4)
自动拆分字节集 (集_粗体, 数字数组.成员, 4)
自动拆分字节集 (集_双线, 数字数组.成员, 4)
自动拆分字节集 (集_实心, 数字数组.成员, 3)
自动拆分字节集 (集_圆圈, 数字数组.成员, 3)

子程序名	返回值类型	公开	备注
自动拆分字节集
参数名	类型	参考	可空	数组	备注
源字节集	字节集
目标数组	字节集			√
单字符长度	整数型		√

变量名	类型	静态	数组	备注
当前位置	整数型
当前长度	整数型
总长度	整数型
安全计数器	整数型			' 防止无限循环

总长度＝取字节集长度 (源字节集)
当前位置＝ 1
安全计数器＝ 0

判断循环首 (当前位置 ≤ 总长度且安全计数器＜ 100) ' 最多处理100字符防止死循环

安全计数器＝安全计数器＋ 1

' 确定当前字符长度

如果 (是否为空 (单字符长度))

如果 (当前位置＋ 1 ≤ 总长度且源字节集 [当前位置] ＝ 194)

当前长度＝ 2 ' 处理2字节字符（123）

当前长度＝ 3 ' 默认按3字节

当前长度＝单字符长度

' 严格边界检查

如果 (当前位置＋当前长度－ 1 ＞总长度)

输出调试文本 (“警告：跳过不完整字符，位置=” ＋到文本 (当前位置))

跳出循环 ()

' 添加到数组

重定义数组 (目标数组, 真, 取数组成员数 (目标数组) ＋ 1)

目标数组 [取数组成员数 (目标数组)] ＝取字节集中间 (源字节集, 当前位置, 当前长度)

当前位置＝当前位置＋当前长度

判断循环尾 ()

子程序名	返回值类型	公开	备注
生成特殊字符	字节集

变量名	类型	静态	数组	备注
结果	字节集
换行符	字节集

换行符＝ { 13, 10 }
' 上标数字（特殊处理2字节字符）
结果＝结果＋生成上标数字 () ＋换行符
' 其他字符集（统一处理）
结果＝结果＋生成字符集 (集_下字, 3) ＋换行符  ' 下标
结果＝结果＋生成字符集 (集_细体, 4) ＋换行符  ' 细体
结果＝结果＋生成字符集 (集_粗体, 4) ＋换行符  ' 粗体
结果＝结果＋生成字符集 (集_双线, 4) ＋换行符  ' 双线
结果＝结果＋生成字符集 (集_实心, 3) ＋换行符  ' 实心
结果＝结果＋生成字符集 (集_圆圈, 3)
返回 (结果)

子程序名	返回值类型	公开	备注
生成上标数字	字节集

变量名	类型	静态	数组	备注
结果	字节集
当前位置	整数型
换行符	字节集

换行符＝ { 13, 10 }
当前位置＝ 1

判断循环首 (当前位置 ≤ 取字节集长度 (集_上字))

如果 (当前位置＋ 1 ≤ 取字节集长度 (集_上字) 且集_上字 [当前位置] ＝ 194)

结果＝结果＋取字节集中间 (集_上字, 当前位置, 2) ' 处理2字节字符（123）

当前位置＝当前位置＋ 2

如果 (当前位置＋ 2 ≤ 取字节集长度 (集_上字))

结果＝结果＋取字节集中间 (集_上字, 当前位置, 3) ' 处理3字节字符

当前位置＝当前位置＋ 3

跳出循环 ()

如果 (横竖＝假且当前位置 ≤ 取字节集长度 (集_上字))

结果＝结果＋换行符

判断循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
生成字符集	字节集
参数名	类型	参考	可空	数组	备注
字符集	字节集
单字符长度	整数型

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
换行符	字节集

换行符＝ { 13, 10 }

计次循环首 (取字节集长度 (字符集) ÷ 单字符长度, i)

结果＝结果＋取字节集中间 (字符集, (i － 1) × 单字符长度＋ 1, 单字符长度)

如果 (横竖＝假且 i ＜取字节集长度 (字符集) ÷ 单字符长度)

结果＝结果＋换行符

计次循环尾 ()
返回 (结果)

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
集_上字	字节集
集_下字	字节集
集_粗体	字节集
集_细体	字节集
集_圆圈	字节集
集_实心	字节集
集_双线	字节集
横竖	逻辑型
数字数组	自定义

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

变量名	类型	静态	数组	备注
测试结果	字节集
结果	字节集
i	整数型
测试号	文本型
特殊号码	字节集
替换	替换规则		0

置随机数种子 ()
清除数组 (数字数组.成员)
横竖＝假 ' 设为假测试单独一行显示，设为真测试连续显示
初始化 ()
测试结果＝ { 239, 187, 191 } ' UTF-8 BOM
测试结果＝测试结果＋生成特殊字符 ()

计次循环首 (取数组成员数 (数字数组.成员), i)

如果 (横竖)

结果＝结果＋数字数组.成员 [i] ＋ { 13, 10 }

如果 (i ％ 10 ＝ 0)

结果＝结果＋数字数组.成员 [i] ＋ { 13, 10 }

结果＝结果＋数字数组.成员 [i]

计次循环尾 ()
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\测试结果.txt”, 结果)
测试号＝ “18812345678”
重定义数组 (替换, 真, 11)

计次循环首 (11, i)

替换 [i].位置啊＝取随机数 (1, 11)

替换 [i].类型啊＝取随机数 (1, 8) ' 8个类型的特殊数字

计次循环尾 ()
特殊号码＝混合替换数字 (测试号, 替换)
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\混合号码.txt”, { 239, 187, 191 } ＋特殊号码)
结束 ()

子程序名	返回值类型	公开	备注
混合替换数字	字节集
参数名	类型	参考	可空	数组	备注
原始文本	文本型
规则数组	替换规则			√

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
j	整数型
当前字符	文本型
数字值	整数型
数组索引	整数型
默认类型	整数型
当前类型	整数型

' 默认规则：未指定的位置使用上标数字
默认类型＝ 1

计次循环首 (取文本长度 (原始文本), i)

当前字符＝取文本中间 (原始文本, i, 1)

' 查找当前字符的规则

当前类型＝默认类型

计次循环首 (取数组成员数 (规则数组), j)

如果 (规则数组 [j].位置啊＝ i)

当前类型＝规则数组 [j].类型啊

跳出循环 ()

计次循环尾 ()

' 处理数字

如果 (当前字符 ≥ “0” 且当前字符 ≤ “9”)

数字值＝到整数 (当前字符)

数组索引＝数字值＋ 1 �� (当前类型－ 1) × 10

' 安全边界检查

如果 (数组索引 ≥ 1 且数组索引 ≤ 取数组成员数 (数字数组.成员))

结果＝结果＋数字数组.成员 [数组索引]

结果＝结果＋到字节集 (当前字符) ' 索引越界保持原样

结果＝结果＋到字节集 (当前字符) ' 非数字字符原样保留

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
混合替换数字1	字节集
参数名	类型	参考	可空	数组	备注
原始文本	文本型
规则数组	替换规则			√

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
j	整数型
当前字符	文本型
当前规则	替换规则
默认规则	替换规则

' 默认规则：未指定的位置使用上标数字
默认规则.类型啊＝ 1

计次循环首 (取文本长度 (原始文本), i)

当前字符＝取文本中间 (原始文本, i, 1)

' 查找当前字符的规则

当前规则＝默认规则

计次循环首 (取数组成员数 (规则数组), j)

如果 (规则数组 [j].位置啊＝ i)

当前规则＝规则数组 [j]

跳出循环 ()

计次循环尾 ()

' 处理数字

如果 (是否数字 (当前字符))

结果＝结果＋数字数组.成员 [到整数 (当前字符) ＋ 1 �� (当前规则.类型啊－ 1) × 10]

结果＝结果＋到字节集 (当前字符)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
是否数字	逻辑型
参数名	类型	参考	可空	数组	备注
字符	文本型

变量名	类型	静态	数组	备注
编码	整数型

编码＝取代码 (字符, )
返回 (编码 ≥ 48 且编码 ≤ 57) ' ASCII码中0=48, 9=57

子程序名	返回值类型	公开	备注
初始化

' 上标数字（UTF-8编码）
集_上字＝ { 226, 129, 176, 194, 185, 194, 178, 194, 179, 226, 129, 180, 226, 129, 181, 226, 129, 182, 226, 129, 183, 226, 129, 184, 226, 129, 185 }
' 下标数字（UTF-8编码）
集_下字＝ { 226, 130, 128, 226, 130, 129, 226, 130, 130, 226, 130, 131, 226, 130, 132, 226, 130, 133, 226, 130, 134, 226, 130, 135, 226, 130, 136, 226, 130, 137 }
' 数学细体数字（UTF-8编码）
集_细体＝ { 240, 157, 159, 182, 240, 157, 159, 183, 240, 157, 159, 184, 240, 157, 159, 185, 240, 157, 159, 186, 240, 157, 159, 187, 240, 157, 159, 188, 240, 157, 159, 189, 240, 157, 159, 190, 240, 157, 159, 191 }
' 数学粗体数字（UTF-8编码）
集_粗体＝ { 240, 157, 159, 142, 240, 157, 159, 143, 240, 157, 159, 144, 240, 157, 159, 145, 240, 157, 159, 146, 240, 157, 159, 147, 240, 157, 159, 148, 240, 157, 159, 149, 240, 157, 159, 150, 240, 157, 159, 151 }
' 双线数字（UTF-8编码）
集_双线＝ { 240, 157, 159, 152, 240, 157, 159, 153, 240, 157, 159, 154, 240, 157, 159, 155, 240, 157, 159, 156, 240, 157, 159, 157, 240, 157, 159, 158, 240, 157, 159, 159, 240, 157, 159, 160, 240, 157, 159, 161 }
' 实心数字（UTF-8编码）
集_实心＝ { 226, 147, 191, 226, 157, 182, 226, 157, 183, 226, 157, 184, 226, 157, 185, 226, 157, 186, 226, 157, 187, 226, 157, 188, 226, 157, 189, 226, 157, 190 }
' 圆圈数字（UTF-8编码）
集_圆圈＝ { 226, 147, 170, 226, 145, 160, 226, 145, 161, 226, 145, 162, 226, 145, 163, 226, 145, 164, 226, 145, 165, 226, 145, 166, 226, 145, 167, 226, 145, 168 }
清除数组 (数字数组.成员)
自动拆分字节集 (集_上字, 数字数组.成员)
自动拆分字节集 (集_下字, 数字数组.成员, 3)
自动拆分字节集 (集_细体, 数字数组.成员, 4)
自动拆分字节集 (集_粗体, 数字数组.成员, 4)
自动拆分字节集 (集_双线, 数字数组.成员, 4)
自动拆分字节集 (集_实心, 数字数组.成员, 3)
自动拆分字节集 (集_圆圈, 数字数组.成员, 3)

子程序名	返回值类型	公开	备注
自动拆分字节集
参数名	类型	参考	可空	数组	备注
源字节集	字节集
目标数组	字节集			√
单字符长度	整数型		√

变量名	类型	静态	数组	备注
当前位置	整数型
当前长度	整数型
总长度	整数型
安全计数器	整数型			' 防止无限循环

总长度＝取字节集长度 (源字节集)
当前位置＝ 1
安全计数器＝ 0

判断循环首 (当前位置 ≤ 总长度且安全计数器＜ 100) ' 最多处理100字符防止死循环

安全计数器＝安全计数器＋ 1

' 确定当前字符长度

如果 (是否为空 (单字符长度))

如果 (当前位置＋ 1 ≤ 总长度且源字节集 [当前位置] ＝ 194)

当前长度＝ 2 ' 处理2字节字符（123）

当前长度＝ 3 ' 默认按3字节

当前长度＝单字符长度

' 严格边界检查

如果 (当前位置＋当前长度－ 1 ＞总长度)

输出调试文本 (“警告：跳过不完整字符，位置=” ＋到文本 (当前位置))

跳出循环 ()

' 添加到数组

重定义数组 (目标数组, 真, 取数组成员数 (目标数组) ＋ 1)

目标数组 [取数组成员数 (目标数组)] ＝取字节集中间 (源字节集, 当前位置, 当前长度)

当前位置＝当前位置＋当前长度

判断循环尾 ()

子程序名	返回值类型	公开	备注
生成特殊字符	字节集

变量名	类型	静态	数组	备注
结果	字节集
换行符	字节集

换行符＝ { 13, 10 }
' 上标数字（特殊处理2字节字符）
结果＝结果＋生成上标数字 () ＋换行符
' 其他字符集（统一处理）
结果＝结果＋生成字符集 (集_下字, 3) ＋换行符  ' 下标
结果＝结果＋生成字符集 (集_细体, 4) ＋换行符  ' 细体
结果＝结果＋生成字符集 (集_粗体, 4) ＋换行符  ' 粗体
结果＝结果＋生成字符集 (集_双线, 4) ＋换行符  ' 双线
结果＝结果＋生成字符集 (集_实心, 3) ＋换行符  ' 实心
结果＝结果＋生成字符集 (集_圆圈, 3)
返回 (结果)

子程序名	返回值类型	公开	备注
生成上标数字	字节集

变量名	类型	静态	数组	备注
结果	字节集
当前位置	整数型
换行符	字节集

换行符＝ { 13, 10 }
当前位置＝ 1

判断循环首 (当前位置 ≤ 取字节集长度 (集_上字))

如果 (当前位置＋ 1 ≤ 取字节集长度 (集_上字) 且集_上字 [当前位置] ＝ 194)

结果＝结果＋取字节集中间 (集_上字, 当前位置, 2) ' 处理2字节字符（123）

当前位置＝当前位置＋ 2

如果 (当前位置＋ 2 ≤ 取字节集长度 (集_上字))

结果＝结果＋取字节集中间 (集_上字, 当前位置, 3) ' 处理3字节字符

当前位置＝当前位置＋ 3

跳出循环 ()

如果 (横竖＝假且当前位置 ≤ 取字节集长度 (集_上字))

结果＝结果＋换行符

判断循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
生成字符集	字节集
参数名	类型	参考	可空	数组	备注
字符集	字节集
单字符长度	整数型

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
换行符	字节集

换行符＝ { 13, 10 }

计次循环首 (取字节集长度 (字符集) ÷ 单字符长度, i)

结果＝结果＋取字节集中间 (字符集, (i － 1) × 单字符长度＋ 1, 单字符长度)

如果 (横竖＝假且 i ＜取字节集长度 (字符集) ÷ 单字符长度)

结果＝结果＋换行符

计次循环尾 ()
返回 (结果)

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
集_上字	字节集
集_下字	字节集
集_粗体	字节集
集_细体	字节集
集_圆圈	字节集
集_实心	字节集
集_双线	字节集
横竖	逻辑型
数字数组	自定义

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

变量名	类型	静态	数组	备注
测试结果	字节集
结果	字节集
i	整数型
测试号	文本型
特殊号码	字节集
替换	替换规则		0

置随机数种子 ()
清除数组 (数字数组.成员)
横竖＝假 ' 设为假测试单独一行显示，设为真测试连续显示
初始化 ()
测试结果＝ { 239, 187, 191 } ' UTF-8 BOM
测试结果＝测试结果＋生成特殊字符 ()

计次循环首 (取数组成员数 (数字数组.成员), i)

如果 (横竖)

结果＝结果＋数字数组.成员 [i] ＋ { 13, 10 }

如果 (i ％ 10 ＝ 0)

结果＝结果＋数字数组.成员 [i] ＋ { 13, 10 }

结果＝结果＋数字数组.成员 [i]

计次循环尾 ()
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\测试结果.txt”, 结果)
测试号＝ “18812345678”
重定义数组 (替换, 真, 11)

计次循环首 (11, i)

替换 [i].位置啊＝取随机数 (1, 11)

替换 [i].类型啊＝取随机数 (1, 8) ' 8个类型的特殊数字

计次循环尾 ()
特殊号码＝混合替换数字 (测试号, 替换)
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\混合号码.txt”, { 239, 187, 191 } ＋特殊号码)
结束 ()

子程序名	返回值类型	公开	备注
混合替换数字	字节集
参数名	类型	参考	可空	数组	备注
原始文本	文本型
规则数组	替换规则			√

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
j	整数型
当前字符	文本型
数字值	整数型
数组索引	整数型
默认类型	整数型
当前类型	整数型

' 默认规则：未指定的位置使用上标数字
默认类型＝ 1

计次循环首 (取文本长度 (原始文本), i)

当前字符＝取文本中间 (原始文本, i, 1)

' 查找当前字符的规则

当前类型＝默认类型

计次循环首 (取数组成员数 (规则数组), j)

如果 (规则数组 [j].位置啊＝ i)

当前类型＝规则数组 [j].类型啊

跳出循环 ()

计次循环尾 ()

' 处理数字

如果 (当前字符 ≥ “0” 且当前字符 ≤ “9”)

数字值＝到整数 (当前字符)

数组索引＝数字值＋ 1 �� (当前类型－ 1) × 10

' 安全边界检查

如果 (数组索引 ≥ 1 且数组索引 ≤ 取数组成员数 (数字数组.成员))

结果＝结果＋数字数组.成员 [数组索引]

结果＝结果＋到字节集 (当前字符) ' 索引越界保持原样

结果＝结果＋到字节集 (当前字符) ' 非数字字符原样保留

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
混合替换数字1	字节集
参数名	类型	参考	可空	数组	备注
原始文本	文本型
规则数组	替换规则			√

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
j	整数型
当前字符	文本型
当前规则	替换规则
默认规则	替换规则

' 默认规则：未指定的位置使用上标数字
默认规则.类型啊＝ 1

计次循环首 (取文本长度 (原始文本), i)

当前字符＝取文本中间 (原始文本, i, 1)

' 查找当前字符的规则

当前规则＝默认规则

计次循环首 (取数组成员数 (规则数组), j)

如果 (规则数组 [j].位置啊＝ i)

当前规则＝规则数组 [j]

跳出循环 ()

计次循环尾 ()

' 处理数字

如果 (是否数字 (当前字符))

结果＝结果＋数字数组.成员 [到整数 (当前字符) ＋ 1 �� (当前规则.类型啊－ 1) × 10]

结果＝结果＋到字节集 (当前字符)

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
是否数字	逻辑型
参数名	类型	参考	可空	数组	备注
字符	文本型

变量名	类型	静态	数组	备注
编码	整数型

编码＝取代码 (字符, )
返回 (编码 ≥ 48 且编码 ≤ 57) ' ASCII码中0=48, 9=57

子程序名	返回值类型	公开	备注
初始化

' 上标数字（UTF-8编码）
集_上字＝ { 226, 129, 176, 194, 185, 194, 178, 194, 179, 226, 129, 180, 226, 129, 181, 226, 129, 182, 226, 129, 183, 226, 129, 184, 226, 129, 185 }
' 下标数字（UTF-8编码）
集_下字＝ { 226, 130, 128, 226, 130, 129, 226, 130, 130, 226, 130, 131, 226, 130, 132, 226, 130, 133, 226, 130, 134, 226, 130, 135, 226, 130, 136, 226, 130, 137 }
' 数学细体数字（UTF-8编码）
集_细体＝ { 240, 157, 159, 182, 240, 157, 159, 183, 240, 157, 159, 184, 240, 157, 159, 185, 240, 157, 159, 186, 240, 157, 159, 187, 240, 157, 159, 188, 240, 157, 159, 189, 240, 157, 159, 190, 240, 157, 159, 191 }
' 数学粗体数字（UTF-8编码）
集_粗体＝ { 240, 157, 159, 142, 240, 157, 159, 143, 240, 157, 159, 144, 240, 157, 159, 145, 240, 157, 159, 146, 240, 157, 159, 147, 240, 157, 159, 148, 240, 157, 159, 149, 240, 157, 159, 150, 240, 157, 159, 151 }
' 双线数字（UTF-8编码）
集_双线＝ { 240, 157, 159, 152, 240, 157, 159, 153, 240, 157, 159, 154, 240, 157, 159, 155, 240, 157, 159, 156, 240, 157, 159, 157, 240, 157, 159, 158, 240, 157, 159, 159, 240, 157, 159, 160, 240, 157, 159, 161 }
' 实心数字（UTF-8编码）
集_实心＝ { 226, 147, 191, 226, 157, 182, 226, 157, 183, 226, 157, 184, 226, 157, 185, 226, 157, 186, 226, 157, 187, 226, 157, 188, 226, 157, 189, 226, 157, 190 }
' 圆圈数字（UTF-8编码）
集_圆圈＝ { 226, 147, 170, 226, 145, 160, 226, 145, 161, 226, 145, 162, 226, 145, 163, 226, 145, 164, 226, 145, 165, 226, 145, 166, 226, 145, 167, 226, 145, 168 }
清除数组 (数字数组.成员)
自动拆分字节集 (集_上字, 数字数组.成员)
自动拆分字节集 (集_下字, 数字数组.成员, 3)
自动拆分字节集 (集_细体, 数字数组.成员, 4)
自动拆分字节集 (集_粗体, 数字数组.成员, 4)
自动拆分字节集 (集_双线, 数字数组.成员, 4)
自动拆分字节集 (集_实心, 数字数组.成员, 3)
自动拆分字节集 (集_圆圈, 数字数组.成员, 3)

子程序名	返回值类型	公开	备注
自动拆分字节集
参数名	类型	参考	可空	数组	备注
源字节集	字节集
目标数组	字节集			√
单字符长度	整数型		√

变量名	类型	静态	数组	备注
当前位置	整数型
当前长度	整数型
总长度	整数型
安全计数器	整数型			' 防止无限循环

总长度＝取字节集长度 (源字节集)
当前位置＝ 1
安全计数器＝ 0

判断循环首 (当前位置 ≤ 总长度且安全计数器＜ 100) ' 最多处理100字符防止死循环

安全计数器＝安全计数器＋ 1

' 确定当前字符长度

如果 (是否为空 (单字符长度))

如果 (当前位置＋ 1 ≤ 总长度且源字节集 [当前位置] ＝ 194)

当前长度＝ 2 ' 处理2字节字符（123）

当前长度＝ 3 ' 默认按3字节

当前长度＝单字符长度

' 严格边界检查

如果 (当前位置＋当前长度－ 1 ＞总长度)

输出调试文本 (“警告：跳过不完整字符，位置=” ＋到文本 (当前位置))

跳出循环 ()

' 添加到数组

重定义数组 (目标数组, 真, 取数组成员数 (目标数组) ＋ 1)

目标数组 [取数组成员数 (目标数组)] ＝取字节集中间 (源字节集, 当前位置, 当前长度)

当前位置＝当前位置＋当前长度

判断循环尾 ()

子程序名	返回值类型	公开	备注
生成特殊字符	字节集

变量名	类型	静态	数组	备注
结果	字节集
换行符	字节集

换行符＝ { 13, 10 }
' 上标数字（特殊处理2字节字符）
结果＝结果＋生成上标数字 () ＋换行符
' 其他字符集（统一处理）
结果＝结果＋生成字符集 (集_下字, 3) ＋换行符  ' 下标
结果＝结果＋生成字符集 (集_细体, 4) ＋换行符  ' 细体
结果＝结果＋生成字符集 (集_粗体, 4) ＋换行符  ' 粗体
结果＝结果＋生成字符集 (集_双线, 4) ＋换行符  ' 双线
结果＝结果＋生成字符集 (集_实心, 3) ＋换行符  ' 实心
结果＝结果＋生成字符集 (集_圆圈, 3)
返回 (结果)

子程序名	返回值类型	公开	备注
生成上标数字	字节集

变量名	类型	静态	数组	备注
结果	字节集
当前位置	整数型
换行符	字节集

换行符＝ { 13, 10 }
当前位置＝ 1

判断循环首 (当前位置 ≤ 取字节集长度 (集_上字))

如果 (当前位置＋ 1 ≤ 取字节集长度 (集_上字) 且集_上字 [当前位置] ＝ 194)

结果＝结果＋取字节集中间 (集_上字, 当前位置, 2) ' 处理2字节字符（123）

当前位置＝当前位置＋ 2

如果 (当前位置＋ 2 ≤ 取字节集长度 (集_上字))

结果＝结果＋取字节集中间 (集_上字, 当前位置, 3) ' 处理3字节字符

当前位置＝当前位置＋ 3

跳出循环 ()

如果 (横竖＝假且当前位置 ≤ 取字节集长度 (集_上字))

结果＝结果＋换行符

判断循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备注
生成字符集	字节集
参数名	类型	参考	可空	数组	备注
字符集	字节集
单字符长度	整数型

变量名	类型	静态	数组	备注
结果	字节集
i	整数型
换行符	字节集

换行符＝ { 13, 10 }

计次循环首 (取字节集长度 (字符集) ÷ 单字符长度, i)

结果＝结果＋取字节集中间 (字符集, (i － 1) × 单字符长度＋ 1, 单字符长度)

如果 (横竖＝假且 i ＜取字节集长度 (字符集) ÷ 单字符长度)

结果＝结果＋换行符

计次循环尾 ()
返回 (结果)

.版本 2<br />
.支持库 shell<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 集_上字, 字节集<br />
.程序集变量 集_下字, 字节集<br />
.程序集变量 集_粗体, 字节集<br />
.程序集变量 集_细体, 字节集<br />
.程序集变量 集_圆圈, 字节集<br />
.程序集变量 集_实心, 字节集<br />
.程序集变量 集_双线, 字节集<br />
.程序集变量 横竖, 逻辑型<br />
.程序集变量 数字数组, 自定义<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 测试结果, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 测试号, 文本型<br />
.局部变量 特殊号码, 字节集<br />
.局部变量 替换, 替换规则, , "0"<br />
<br />
置随机数种子 ()<br />
清除数组 (数字数组.成员)<br />
<br />
横竖 ＝ 假  ' 设为假测试单独一行显示，设为真测试连续显示<br />
初始化 ()<br />
测试结果 ＝ { 239, 187, 191 }  ' UTF-8 BOM<br />
测试结果 ＝ 测试结果 ＋ 生成特殊字符 ()<br />
<br />
.计次循环首 (取数组成员数 (数字数组.成员), i)<br />
    .如果 (横竖)<br />
        结果 ＝ 结果 ＋ 数字数组.成员 <i> ＋ { 13, 10 }<br />
    .否则<br />
        .如果 (i ％ 10 ＝ 0)<br />
            结果 ＝ 结果 ＋ 数字数组.成员 <i> ＋ { 13, 10 }<br />
        .否则<br />
            结果 ＝ 结果 ＋ 数字数组.成员 <i><br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
写到文件 (取特定目录 (#系统桌面) ＋ “\测试结果.txt”, 结果)<br />
<br />
<br />
测试号 ＝ “18812345678”<br />
<br />
重定义数组 (替换, 真, 11)<br />
.计次循环首 (11, i)<br />
    替换 <i>.位置啊 ＝ 取随机数 (1, 11)<br />
    替换 <i>.类型啊 ＝ 取随机数 (1, 8)  ' 8个类型的特殊数字<br />
<br />
.计次循环尾 ()<br />
特殊号码 ＝ 混合替换数字 (测试号, 替换)<br />
写到文件 (取特定目录 (#系统桌面) ＋ “\混合号码.txt”, { 239, 187, 191 } ＋ 特殊号码)<br />
<br />
结束 ()<br />
<br />
.子程序 混合替换数字, 字节集<br />
.参数 原始文本, 文本型<br />
.参数 规则数组, 替换规则, 数组<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 当前字符, 文本型<br />
.局部变量 数字值, 整数型<br />
.局部变量 数组索引, 整数型<br />
.局部变量 默认类型, 整数型<br />
.局部变量 当前类型, 整数型<br />
<br />
' 默认规则：未指定的位置使用上标数字<br />
默认类型 ＝ 1<br />
<br />
.计次循环首 (取文本长度 (原始文本), i)<br />
    当前字符 ＝ 取文本中间 (原始文本, i, 1)<br />
<br />
    ' 查找当前字符的规则<br />
    当前类型 ＝ 默认类型<br />
    .计次循环首 (取数组成员数 (规则数组), j)<br />
        .如果 (规则数组 [j].位置啊 ＝ i)<br />
            当前类型 ＝ 规则数组 [j].类型啊<br />
            跳出循环 ()<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
<br />
    ' 处理数字<br />
    .如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)<br />
        数字值 ＝ 到整数 (当前字符)<br />
        数组索引 ＝ 数字值 ＋ 1 ＋ (当前类型 － 1) × 10<br />
<br />
        ' 安全边界检查<br />
        .如果 (数组索引 ≥ 1 且 数组索引 ≤ 取数组成员数 (数字数组.成员))<br />
            结果 ＝ 结果 ＋ 数字数组.成员 [数组索引]<br />
        .否则<br />
            结果 ＝ 结果 ＋ 到字节集 (当前字符)  ' 索引越界保持原样<br />
        .如果结束<br />
<br />
    .否则<br />
        结果 ＝ 结果 ＋ 到字节集 (当前字符)  ' 非数字字符原样保留<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
<br />
返回 (结果)<br />
<br />
.子程序 混合替换数字1, 字节集<br />
.参数 原始文本, 文本型<br />
.参数 规则数组, 替换规则, 数组<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 当前字符, 文本型<br />
.局部变量 当前规则, 替换规则<br />
.局部变量 默认规则, 替换规则<br />
<br />
' 默认规则：未指定的位置使用上标数字<br />
默认规则.类型啊 ＝ 1<br />
.计次循环首 (取文本长度 (原始文本), i)<br />
    当前字符 ＝ 取文本中间 (原始文本, i, 1)<br />
    ' 查找当前字符的规则<br />
    当前规则 ＝ 默认规则<br />
    .计次循环首 (取数组成员数 (规则数组), j)<br />
<br />
        .如果 (规则数组 [j].位置啊 ＝ i)<br />
            当前规则 ＝ 规则数组 [j]<br />
            跳出循环 ()<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
    ' 处理数字<br />
    .如果 (是否数字 (当前字符))<br />
        结果 ＝ 结果 ＋ 数字数组.成员 [到整数 (当前字符) ＋ 1 ＋ (当前规则.类型啊 － 1) × 10]<br />
    .否则<br />
        结果 ＝ 结果 ＋ 到字节集 (当前字符)<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
返回 (结果)<br />
<br />
.子程序 是否数字, 逻辑型<br />
.参数 字符, 文本型<br />
.局部变量 编码, 整数型<br />
<br />
编码 ＝ 取代码 (字符, )<br />
返回 (编码 ≥ 48 且 编码 ≤ 57)  ' ASCII码中0=48, 9=57<br />
<br />
.子程序 初始化<br />
<br />
<br />
' 上标数字（UTF-8编码）<br />
集_上字 ＝ { 226, 129, 176, 194, 185, 194, 178, 194, 179, 226, 129, 180, 226, 129, 181, 226, 129, 182, 226, 129, 183, 226, 129, 184, 226, 129, 185 }<br />
<br />
' 下标数字（UTF-8编码）<br />
集_下字 ＝ { 226, 130, 128, 226, 130, 129, 226, 130, 130, 226, 130, 131, 226, 130, 132, 226, 130, 133, 226, 130, 134, 226, 130, 135, 226, 130, 136, 226, 130, 137 }<br />
<br />
' 数学细体数字（UTF-8编码）<br />
集_细体 ＝ { 240, 157, 159, 182, 240, 157, 159, 183, 240, 157, 159, 184, 240, 157, 159, 185, 240, 157, 159, 186, 240, 157, 159, 187, 240, 157, 159, 188, 240, 157, 159, 189, 240, 157, 159, 190, 240, 157, 159, 191 }<br />
<br />
' 数学粗体数字（UTF-8编码）<br />
集_粗体 ＝ { 240, 157, 159, 142, 240, 157, 159, 143, 240, 157, 159, 144, 240, 157, 159, 145, 240, 157, 159, 146, 240, 157, 159, 147, 240, 157, 159, 148, 240, 157, 159, 149, 240, 157, 159, 150, 240, 157, 159, 151 }<br />
<br />
' 双线数字（UTF-8编码）<br />
集_双线 ＝ { 240, 157, 159, 152, 240, 157, 159, 153, 240, 157, 159, 154, 240, 157, 159, 155, 240, 157, 159, 156, 240, 157, 159, 157, 240, 157, 159, 158, 240, 157, 159, 159, 240, 157, 159, 160, 240, 157, 159, 161 }<br />
<br />
' 实心数字（UTF-8编码）<br />
集_实心 ＝ { 226, 147, 191, 226, 157, 182, 226, 157, 183, 226, 157, 184, 226, 157, 185, 226, 157, 186, 226, 157, 187, 226, 157, 188, 226, 157, 189, 226, 157, 190 }<br />
<br />
' 圆圈数字（UTF-8编码）<br />
集_圆圈 ＝ { 226, 147, 170, 226, 145, 160, 226, 145, 161, 226, 145, 162, 226, 145, 163, 226, 145, 164, 226, 145, 165, 226, 145, 166, 226, 145, 167, 226, 145, 168 }<br />
<br />
清除数组 (数字数组.成员)<br />
自动拆分字节集 (集_上字, 数字数组.成员)<br />
自动拆分字节集 (集_下字, 数字数组.成员, 3)<br />
自动拆分字节集 (集_细体, 数字数组.成员, 4)<br />
自动拆分字节集 (集_粗体, 数字数组.成员, 4)<br />
自动拆分字节集 (集_双线, 数字数组.成员, 4)<br />
自动拆分字节集 (集_实心, 数字数组.成员, 3)<br />
自动拆分字节集 (集_圆圈, 数字数组.成员, 3)<br />
<br />
<br />
.子程序 自动拆分字节集<br />
.参数 源字节集, 字节集<br />
.参数 目标数组, 字节集, 数组<br />
.参数 单字符长度, 整数型, 可空<br />
.局部变量 当前位置, 整数型<br />
.局部变量 当前长度, 整数型<br />
.局部变量 总长度, 整数型<br />
.局部变量 安全计数器, 整数型, , , ' 防止无限循环<br />
<br />
总长度 ＝ 取字节集长度 (源字节集)<br />
当前位置 ＝ 1<br />
安全计数器 ＝ 0<br />
<br />
.判断循环首 (当前位置 ≤ 总长度 且 安全计数器 ＜ 100)  ' 最多处理100字符防止死循环<br />
    安全计数器 ＝ 安全计数器 ＋ 1<br />
<br />
    ' 确定当前字符长度<br />
    .如果 (是否为空 (单字符长度))<br />
        .如果 (当前位置 ＋ 1 ≤ 总长度 且 源字节集 [当前位置] ＝ 194)<br />
            当前长度 ＝ 2  ' 处理2字节字符（123）<br />
        .否则<br />
            当前长度 ＝ 3  ' 默认按3字节<br />
        .如果结束<br />
<br />
    .否则<br />
        当前长度 ＝ 单字符长度<br />
    .如果结束<br />
<br />
    ' 严格边界检查<br />
    .如果 (当前位置 ＋ 当前长度 － 1 ＞ 总长度)<br />
        输出调试文本 (“警告：跳过不完整字符，位置=” ＋ 到文本 (当前位置))<br />
        跳出循环 ()<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
    ' 添加到数组<br />
    重定义数组 (目标数组, 真, 取数组成员数 (目标数组) ＋ 1)<br />
    目标数组 [取数组成员数 (目标数组)] ＝ 取字节集中间 (源字节集, 当前位置, 当前长度)<br />
    当前位置 ＝ 当前位置 ＋ 当前长度<br />
.判断循环尾 ()<br />
<br />
.子程序 生成特殊字符, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
<br />
' 上标数字（特殊处理2字节字符）<br />
结果 ＝ 结果 ＋ 生成上标数字 () ＋ 换行符<br />
<br />
' 其他字符集（统一处理）<br />
结果 ＝ 结果 ＋ 生成字符集 (集_下字, 3) ＋ 换行符  ' 下标<br />
结果 ＝ 结果 ＋ 生成字符集 (集_细体, 4) ＋ 换行符  ' 细体<br />
结果 ＝ 结果 ＋ 生成字符集 (集_粗体, 4) ＋ 换行符  ' 粗体<br />
结果 ＝ 结果 ＋ 生成字符集 (集_双线, 4) ＋ 换行符  ' 双线<br />
结果 ＝ 结果 ＋ 生成字符集 (集_实心, 3) ＋ 换行符  ' 实心<br />
结果 ＝ 结果 ＋ 生成字符集 (集_圆圈, 3)<br />
返回 (结果)<br />
<br />
.子程序 生成上标数字, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 当前位置, 整数型<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
当前位置 ＝ 1<br />
.判断循环首 (当前位置 ≤ 取字节集长度 (集_上字))<br />
    .如果 (当前位置 ＋ 1 ≤ 取字节集长度 (集_上字) 且 集_上字 [当前位置] ＝ 194)<br />
        结果 ＝ 结果 ＋ 取字节集中间 (集_上字, 当前位置, 2)  ' 处理2字节字符（123）<br />
        当前位置 ＝ 当前位置 ＋ 2<br />
    .否则<br />
        .如果 (当前位置 ＋ 2 ≤ 取字节集长度 (集_上字))<br />
            结果 ＝ 结果 ＋ 取字节集中间 (集_上字, 当前位置, 3)  ' 处理3字节字符<br />
            当前位置 ＝ 当前位置 ＋ 3<br />
        .否则<br />
            跳出循环 ()<br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
    .如果 (横竖 ＝ 假 且 当前位置 ≤ 取字节集长度 (集_上字))<br />
        结果 ＝ 结果 ＋ 换行符<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.判断循环尾 ()<br />
返回 (结果)<br />
<br />
.子程序 生成字符集, 字节集<br />
.参数 字符集, 字节集<br />
.参数 单字符长度, 整数型<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
.计次循环首 (取字节集长度 (字符集) ÷ 单字符长度, i)<br />
    结果 ＝ 结果 ＋ 取字节集中间 (字符集, (i － 1) × 单字符长度 ＋ 1, 单字符长度)<br />
    .如果 (横竖 ＝ 假 且 i ＜ 取字节集长度 (字符集) ÷ 单字符长度)<br />
        结果 ＝ 结果 ＋ 换行符<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
返回 (结果)<br />
.版本 2<br />
.支持库 shell<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 集_上字, 字节集<br />
.程序集变量 集_下字, 字节集<br />
.程序集变量 集_粗体, 字节集<br />
.程序集变量 集_细体, 字节集<br />
.程序集变量 集_圆圈, 字节集<br />
.程序集变量 集_实心, 字节集<br />
.程序集变量 集_双线, 字节集<br />
.程序集变量 横竖, 逻辑型<br />
.程序集变量 数字数组, 自定义<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 测试结果, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 测试号, 文本型<br />
.局部变量 特殊号码, 字节集<br />
.局部变量 替换, 替换规则, , "0"<br />
<br />
置随机数种子 ()<br />
清除数组 (数字数组.成员)<br />
<br />
横竖 ＝ 假  ' 设为假测试单独一行显示，设为真测试连续显示<br />
初始化 ()<br />
测试结果 ＝ { 239, 187, 191 }  ' UTF-8 BOM<br />
测试结果 ＝ 测试结果 ＋ 生成特殊字符 ()<br />
<br />
.计次循环首 (取数组成员数 (数字数组.成员), i)<br />
    .如果 (横竖)<br />
        结果 ＝ 结果 ＋ 数字数组.成员 <i> ＋ { 13, 10 }<br />
    .否则<br />
        .如果 (i ％ 10 ＝ 0)<br />
            结果 ＝ 结果 ＋ 数字数组.成员 <i> ＋ { 13, 10 }<br />
        .否则<br />
            结果 ＝ 结果 ＋ 数字数组.成员 <i><br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
写到文件 (取特定目录 (#系统桌面) ＋ “\测试结果.txt”, 结果)<br />
<br />
<br />
测试号 ＝ “18812345678”<br />
<br />
重定义数组 (替换, 真, 11)<br />
.计次循环首 (11, i)<br />
    替换 <i>.位置啊 ＝ 取随机数 (1, 11)<br />
    替换 <i>.类型啊 ＝ 取随机数 (1, 8)  ' 8个类型的特殊数字<br />
<br />
.计次循环尾 ()<br />
特殊号码 ＝ 混合替换数字 (测试号, 替换)<br />
写到文件 (取特定目录 (#系统桌面) ＋ “\混合号码.txt”, { 239, 187, 191 } ＋ 特殊号码)<br />
<br />
结束 ()<br />
<br />
.子程序 混合替换数字, 字节集<br />
.参数 原始文本, 文本型<br />
.参数 规则数组, 替换规则, 数组<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 当前字符, 文本型<br />
.局部变量 数字值, 整数型<br />
.局部变量 数组索引, 整数型<br />
.局部变量 默认类型, 整数型<br />
.局部变量 当前类型, 整数型<br />
<br />
' 默认规则：未指定的位置使用上标数字<br />
默认类型 ＝ 1<br />
<br />
.计次循环首 (取文本长度 (原始文本), i)<br />
    当前字符 ＝ 取文本中间 (原始文本, i, 1)<br />
<br />
    ' 查找当前字符的规则<br />
    当前类型 ＝ 默认类型<br />
    .计次循环首 (取数组成员数 (规则数组), j)<br />
        .如果 (规则数组 [j].位置啊 ＝ i)<br />
            当前类型 ＝ 规则数组 [j].类型啊<br />
            跳出循环 ()<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
<br />
    ' 处理数字<br />
    .如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)<br />
        数字值 ＝ 到整数 (当前字符)<br />
        数组索引 ＝ 数字值 ＋ 1 ＋ (当前类型 － 1) × 10<br />
<br />
        ' 安全边界检查<br />
        .如果 (数组索引 ≥ 1 且 数组索引 ≤ 取数组成员数 (数字数组.成员))<br />
            结果 ＝ 结果 ＋ 数字数组.成员 [数组索引]<br />
        .否则<br />
            结果 ＝ 结果 ＋ 到字节集 (当前字符)  ' 索引越界保持原样<br />
        .如果结束<br />
<br />
    .否则<br />
        结果 ＝ 结果 ＋ 到字节集 (当前字符)  ' 非数字字符原样保留<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
<br />
返回 (结果)<br />
<br />
.子程序 混合替换数字1, 字节集<br />
.参数 原始文本, 文本型<br />
.参数 规则数组, 替换规则, 数组<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 当前字符, 文本型<br />
.局部变量 当前规则, 替换规则<br />
.局部变量 默认规则, 替换规则<br />
<br />
' 默认规则：未指定的位置使用上标数字<br />
默认规则.类型啊 ＝ 1<br />
.计次循环首 (取文本长度 (原始文本), i)<br />
    当前字符 ＝ 取文本中间 (原始文本, i, 1)<br />
    ' 查找当前字符的规则<br />
    当前规则 ＝ 默认规则<br />
    .计次循环首 (取数组成员数 (规则数组), j)<br />
<br />
        .如果 (规则数组 [j].位置啊 ＝ i)<br />
            当前规则 ＝ 规则数组 [j]<br />
            跳出循环 ()<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
    ' 处理数字<br />
    .如果 (是否数字 (当前字符))<br />
        结果 ＝ 结果 ＋ 数字数组.成员 [到整数 (当前字符) ＋ 1 ＋ (当前规则.类型啊 － 1) × 10]<br />
    .否则<br />
        结果 ＝ 结果 ＋ 到字节集 (当前字符)<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
返回 (结果)<br />
<br />
.子程序 是否数字, 逻辑型<br />
.参数 字符, 文本型<br />
.局部变量 编码, 整数型<br />
<br />
编码 ＝ 取代码 (字符, )<br />
返回 (编码 ≥ 48 且 编码 ≤ 57)  ' ASCII码中0=48, 9=57<br />
<br />
.子程序 初始化<br />
<br />
<br />
' 上标数字（UTF-8编码）<br />
集_上字 ＝ { 226, 129, 176, 194, 185, 194, 178, 194, 179, 226, 129, 180, 226, 129, 181, 226, 129, 182, 226, 129, 183, 226, 129, 184, 226, 129, 185 }<br />
<br />
' 下标数字（UTF-8编码）<br />
集_下字 ＝ { 226, 130, 128, 226, 130, 129, 226, 130, 130, 226, 130, 131, 226, 130, 132, 226, 130, 133, 226, 130, 134, 226, 130, 135, 226, 130, 136, 226, 130, 137 }<br />
<br />
' 数学细体数字（UTF-8编码）<br />
集_细体 ＝ { 240, 157, 159, 182, 240, 157, 159, 183, 240, 157, 159, 184, 240, 157, 159, 185, 240, 157, 159, 186, 240, 157, 159, 187, 240, 157, 159, 188, 240, 157, 159, 189, 240, 157, 159, 190, 240, 157, 159, 191 }<br />
<br />
' 数学粗体数字（UTF-8编码）<br />
集_粗体 ＝ { 240, 157, 159, 142, 240, 157, 159, 143, 240, 157, 159, 144, 240, 157, 159, 145, 240, 157, 159, 146, 240, 157, 159, 147, 240, 157, 159, 148, 240, 157, 159, 149, 240, 157, 159, 150, 240, 157, 159, 151 }<br />
<br />
' 双线数字（UTF-8编码）<br />
集_双线 ＝ { 240, 157, 159, 152, 240, 157, 159, 153, 240, 157, 159, 154, 240, 157, 159, 155, 240, 157, 159, 156, 240, 157, 159, 157, 240, 157, 159, 158, 240, 157, 159, 159, 240, 157, 159, 160, 240, 157, 159, 161 }<br />
<br />
' 实心数字（UTF-8编码）<br />
集_实心 ＝ { 226, 147, 191, 226, 157, 182, 226, 157, 183, 226, 157, 184, 226, 157, 185, 226, 157, 186, 226, 157, 187, 226, 157, 188, 226, 157, 189, 226, 157, 190 }<br />
<br />
' 圆圈数字（UTF-8编码）<br />
集_圆圈 ＝ { 226, 147, 170, 226, 145, 160, 226, 145, 161, 226, 145, 162, 226, 145, 163, 226, 145, 164, 226, 145, 165, 226, 145, 166, 226, 145, 167, 226, 145, 168 }<br />
<br />
清除数组 (数字数组.成员)<br />
自动拆分字节集 (集_上字, 数字数组.成员)<br />
自动拆分字节集 (集_下字, 数字数组.成员, 3)<br />
自动拆分字节集 (集_细体, 数字数组.成员, 4)<br />
自动拆分字节集 (集_粗体, 数字数组.成员, 4)<br />
自动拆分字节集 (集_双线, 数字数组.成员, 4)<br />
自动拆分字节集 (集_实心, 数字数组.成员, 3)<br />
自动拆分字节集 (集_圆圈, 数字数组.成员, 3)<br />
<br />
<br />
.子程序 自动拆分字节集<br />
.参数 源字节集, 字节集<br />
.参数 目标数组, 字节集, 数组<br />
.参数 单字符长度, 整数型, 可空<br />
.局部变量 当前位置, 整数型<br />
.局部变量 当前长度, 整数型<br />
.局部变量 总长度, 整数型<br />
.局部变量 安全计数器, 整数型, , , ' 防止无限循环<br />
<br />
总长度 ＝ 取字节集长度 (源字节集)<br />
当前位置 ＝ 1<br />
安全计数器 ＝ 0<br />
<br />
.判断循环首 (当前位置 ≤ 总长度 且 安全计数器 ＜ 100)  ' 最多处理100字符防止死循环<br />
    安全计数器 ＝ 安全计数器 ＋ 1<br />
<br />
    ' 确定当前字符长度<br />
    .如果 (是否为空 (单字符长度))<br />
        .如果 (当前位置 ＋ 1 ≤ 总长度 且 源字节集 [当前位置] ＝ 194)<br />
            当前长度 ＝ 2  ' 处理2字节字符（123）<br />
        .否则<br />
            当前长度 ＝ 3  ' 默认按3字节<br />
        .如果结束<br />
<br />
    .否则<br />
        当前长度 ＝ 单字符长度<br />
    .如果结束<br />
<br />
    ' 严格边界检查<br />
    .如果 (当前位置 ＋ 当前长度 － 1 ＞ 总长度)<br />
        输出调试文本 (“警告：跳过不完整字符，位置=” ＋ 到文本 (当前位置))<br />
        跳出循环 ()<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
    ' 添加到数组<br />
    重定义数组 (目标数组, 真, 取数组成员数 (目标数组) ＋ 1)<br />
    目标数组 [取数组成员数 (目标数组)] ＝ 取字节集中间 (源字节集, 当前位置, 当前长度)<br />
    当前位置 ＝ 当前位置 ＋ 当前长度<br />
.判断循环尾 ()<br />
<br />
.子程序 生成特殊字符, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
<br />
' 上标数字（特殊处理2字节字符）<br />
结果 ＝ 结果 ＋ 生成上标数字 () ＋ 换行符<br />
<br />
' 其他字符集（统一处理）<br />
结果 ＝ 结果 ＋ 生成字符集 (集_下字, 3) ＋ 换行符  ' 下标<br />
结果 ＝ 结果 ＋ 生成字符集 (集_细体, 4) ＋ 换行符  ' 细体<br />
结果 ＝ 结果 ＋ 生成字符集 (集_粗体, 4) ＋ 换行符  ' 粗体<br />
结果 ＝ 结果 ＋ 生成字符集 (集_双线, 4) ＋ 换行符  ' 双线<br />
结果 ＝ 结果 ＋ 生成字符集 (集_实心, 3) ＋ 换行符  ' 实心<br />
结果 ＝ 结果 ＋ 生成字符集 (集_圆圈, 3)<br />
返回 (结果)<br />
<br />
.子程序 生成上标数字, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 当前位置, 整数型<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
当前位置 ＝ 1<br />
.判断循环首 (当前位置 ≤ 取字节集长度 (集_上字))<br />
    .如果 (当前位置 ＋ 1 ≤ 取字节集长度 (集_上字) 且 集_上字 [当前位置] ＝ 194)<br />
        结果 ＝ 结果 ＋ 取字节集中间 (集_上字, 当前位置, 2)  ' 处理2字节字符（123）<br />
        当前位置 ＝ 当前位置 ＋ 2<br />
    .否则<br />
        .如果 (当前位置 ＋ 2 ≤ 取字节集长度 (集_上字))<br />
            结果 ＝ 结果 ＋ 取字节集中间 (集_上字, 当前位置, 3)  ' 处理3字节字符<br />
            当前位置 ＝ 当前位置 ＋ 3<br />
        .否则<br />
            跳出循环 ()<br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
    .如果 (横竖 ＝ 假 且 当前位置 ≤ 取字节集长度 (集_上字))<br />
        结果 ＝ 结果 ＋ 换行符<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.判断循环尾 ()<br />
返回 (结果)<br />
<br />
.子程序 生成字符集, 字节集<br />
.参数 字符集, 字节集<br />
.参数 单字符长度, 整数型<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
.计次循环首 (取字节集长度 (字符集) ÷ 单字符长度, i)<br />
    结果 ＝ 结果 ＋ 取字节集中间 (字符集, (i － 1) × 单字符长度 ＋ 1, 单字符长度)<br />
    .如果 (横竖 ＝ 假 且 i ＜ 取字节集长度 (字符集) ÷ 单字符长度)<br />
        结果 ＝ 结果 ＋ 换行符<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
返回 (结果)<br />
.版本 2<br />
.支持库 shell<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 集_上字, 字节集<br />
.程序集变量 集_下字, 字节集<br />
.程序集变量 集_粗体, 字节集<br />
.程序集变量 集_细体, 字节集<br />
.程序集变量 集_圆圈, 字节集<br />
.程序集变量 集_实心, 字节集<br />
.程序集变量 集_双线, 字节集<br />
.程序集变量 横竖, 逻辑型<br />
.程序集变量 数字数组, 自定义<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 测试结果, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 测试号, 文本型<br />
.局部变量 特殊号码, 字节集<br />
.局部变量 替换, 替换规则, , "0"<br />
<br />
置随机数种子 ()<br />
清除数组 (数字数组.成员)<br />
<br />
横竖 ＝ 假  ' 设为假测试单独一行显示，设为真测试连续显示<br />
初始化 ()<br />
测试结果 ＝ { 239, 187, 191 }  ' UTF-8 BOM<br />
测试结果 ＝ 测试结果 ＋ 生成特殊字符 ()<br />
<br />
.计次循环首 (取数组成员数 (数字数组.成员), i)<br />
    .如果 (横竖)<br />
        结果 ＝ 结果 ＋ 数字数组.成员 <i> ＋ { 13, 10 }<br />
    .否则<br />
        .如果 (i ％ 10 ＝ 0)<br />
            结果 ＝ 结果 ＋ 数字数组.成员 <i> ＋ { 13, 10 }<br />
        .否则<br />
            结果 ＝ 结果 ＋ 数字数组.成员 <i><br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
写到文件 (取特定目录 (#系统桌面) ＋ “\测试结果.txt”, 结果)<br />
<br />
<br />
测试号 ＝ “18812345678”<br />
<br />
重定义数组 (替换, 真, 11)<br />
.计次循环首 (11, i)<br />
    替换 <i>.位置啊 ＝ 取随机数 (1, 11)<br />
    替换 <i>.类型啊 ＝ 取随机数 (1, 8)  ' 8个类型的特殊数字<br />
<br />
.计次循环尾 ()<br />
特殊号码 ＝ 混合替换数字 (测试号, 替换)<br />
写到文件 (取特定目录 (#系统桌面) ＋ “\混合号码.txt”, { 239, 187, 191 } ＋ 特殊号码)<br />
<br />
结束 ()<br />
<br />
.子程序 混合替换数字, 字节集<br />
.参数 原始文本, 文本型<br />
.参数 规则数组, 替换规则, 数组<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 当前字符, 文本型<br />
.局部变量 数字值, 整数型<br />
.局部变量 数组索引, 整数型<br />
.局部变量 默认类型, 整数型<br />
.局部变量 当前类型, 整数型<br />
<br />
' 默认规则：未指定的位置使用上标数字<br />
默认类型 ＝ 1<br />
<br />
.计次循环首 (取文本长度 (原始文本), i)<br />
    当前字符 ＝ 取文本中间 (原始文本, i, 1)<br />
<br />
    ' 查找当前字符的规则<br />
    当前类型 ＝ 默认类型<br />
    .计次循环首 (取数组成员数 (规则数组), j)<br />
        .如果 (规则数组 [j].位置啊 ＝ i)<br />
            当前类型 ＝ 规则数组 [j].类型啊<br />
            跳出循环 ()<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
<br />
    ' 处理数字<br />
    .如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)<br />
        数字值 ＝ 到整数 (当前字符)<br />
        数组索引 ＝ 数字值 ＋ 1 ＋ (当前类型 － 1) × 10<br />
<br />
        ' 安全边界检查<br />
        .如果 (数组索引 ≥ 1 且 数组索引 ≤ 取数组成员数 (数字数组.成员))<br />
            结果 ＝ 结果 ＋ 数字数组.成员 [数组索引]<br />
        .否则<br />
            结果 ＝ 结果 ＋ 到字节集 (当前字符)  ' 索引越界保持原样<br />
        .如果结束<br />
<br />
    .否则<br />
        结果 ＝ 结果 ＋ 到字节集 (当前字符)  ' 非数字字符原样保留<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
<br />
返回 (结果)<br />
<br />
.子程序 混合替换数字1, 字节集<br />
.参数 原始文本, 文本型<br />
.参数 规则数组, 替换规则, 数组<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 当前字符, 文本型<br />
.局部变量 当前规则, 替换规则<br />
.局部变量 默认规则, 替换规则<br />
<br />
' 默认规则：未指定的位置使用上标数字<br />
默认规则.类型啊 ＝ 1<br />
.计次循环首 (取文本长度 (原始文本), i)<br />
    当前字符 ＝ 取文本中间 (原始文本, i, 1)<br />
    ' 查找当前字符的规则<br />
    当前规则 ＝ 默认规则<br />
    .计次循环首 (取数组成员数 (规则数组), j)<br />
<br />
        .如果 (规则数组 [j].位置啊 ＝ i)<br />
            当前规则 ＝ 规则数组 [j]<br />
            跳出循环 ()<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
    ' 处理数字<br />
    .如果 (是否数字 (当前字符))<br />
        结果 ＝ 结果 ＋ 数字数组.成员 [到整数 (当前字符) ＋ 1 ＋ (当前规则.类型啊 － 1) × 10]<br />
    .否则<br />
        结果 ＝ 结果 ＋ 到字节集 (当前字符)<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
返回 (结果)<br />
<br />
.子程序 是否数字, 逻辑型<br />
.参数 字符, 文本型<br />
.局部变量 编码, 整数型<br />
<br />
编码 ＝ 取代码 (字符, )<br />
返回 (编码 ≥ 48 且 编码 ≤ 57)  ' ASCII码中0=48, 9=57<br />
<br />
.子程序 初始化<br />
<br />
<br />
' 上标数字（UTF-8编码）<br />
集_上字 ＝ { 226, 129, 176, 194, 185, 194, 178, 194, 179, 226, 129, 180, 226, 129, 181, 226, 129, 182, 226, 129, 183, 226, 129, 184, 226, 129, 185 }<br />
<br />
' 下标数字（UTF-8编码）<br />
集_下字 ＝ { 226, 130, 128, 226, 130, 129, 226, 130, 130, 226, 130, 131, 226, 130, 132, 226, 130, 133, 226, 130, 134, 226, 130, 135, 226, 130, 136, 226, 130, 137 }<br />
<br />
' 数学细体数字（UTF-8编码）<br />
集_细体 ＝ { 240, 157, 159, 182, 240, 157, 159, 183, 240, 157, 159, 184, 240, 157, 159, 185, 240, 157, 159, 186, 240, 157, 159, 187, 240, 157, 159, 188, 240, 157, 159, 189, 240, 157, 159, 190, 240, 157, 159, 191 }<br />
<br />
' 数学粗体数字（UTF-8编码）<br />
集_粗体 ＝ { 240, 157, 159, 142, 240, 157, 159, 143, 240, 157, 159, 144, 240, 157, 159, 145, 240, 157, 159, 146, 240, 157, 159, 147, 240, 157, 159, 148, 240, 157, 159, 149, 240, 157, 159, 150, 240, 157, 159, 151 }<br />
<br />
' 双线数字（UTF-8编码）<br />
集_双线 ＝ { 240, 157, 159, 152, 240, 157, 159, 153, 240, 157, 159, 154, 240, 157, 159, 155, 240, 157, 159, 156, 240, 157, 159, 157, 240, 157, 159, 158, 240, 157, 159, 159, 240, 157, 159, 160, 240, 157, 159, 161 }<br />
<br />
' 实心数字（UTF-8编码）<br />
集_实心 ＝ { 226, 147, 191, 226, 157, 182, 226, 157, 183, 226, 157, 184, 226, 157, 185, 226, 157, 186, 226, 157, 187, 226, 157, 188, 226, 157, 189, 226, 157, 190 }<br />
<br />
' 圆圈数字（UTF-8编码）<br />
集_圆圈 ＝ { 226, 147, 170, 226, 145, 160, 226, 145, 161, 226, 145, 162, 226, 145, 163, 226, 145, 164, 226, 145, 165, 226, 145, 166, 226, 145, 167, 226, 145, 168 }<br />
<br />
清除数组 (数字数组.成员)<br />
自动拆分字节集 (集_上字, 数字数组.成员)<br />
自动拆分字节集 (集_下字, 数字数组.成员, 3)<br />
自动拆分字节集 (集_细体, 数字数组.成员, 4)<br />
自动拆分字节集 (集_粗体, 数字数组.成员, 4)<br />
自动拆分字节集 (集_双线, 数字数组.成员, 4)<br />
自动拆分字节集 (集_实心, 数字数组.成员, 3)<br />
自动拆分字节集 (集_圆圈, 数字数组.成员, 3)<br />
<br />
<br />
.子程序 自动拆分字节集<br />
.参数 源字节集, 字节集<br />
.参数 目标数组, 字节集, 数组<br />
.参数 单字符长度, 整数型, 可空<br />
.局部变量 当前位置, 整数型<br />
.局部变量 当前长度, 整数型<br />
.局部变量 总长度, 整数型<br />
.局部变量 安全计数器, 整数型, , , ' 防止无限循环<br />
<br />
总长度 ＝ 取字节集长度 (源字节集)<br />
当前位置 ＝ 1<br />
安全计数器 ＝ 0<br />
<br />
.判断循环首 (当前位置 ≤ 总长度 且 安全计数器 ＜ 100)  ' 最多处理100字符防止死循环<br />
    安全计数器 ＝ 安全计数器 ＋ 1<br />
<br />
    ' 确定当前字符长度<br />
    .如果 (是否为空 (单字符长度))<br />
        .如果 (当前位置 ＋ 1 ≤ 总长度 且 源字节集 [当前位置] ＝ 194)<br />
            当前长度 ＝ 2  ' 处理2字节字符（123）<br />
        .否则<br />
            当前长度 ＝ 3  ' 默认按3字节<br />
        .如果结束<br />
<br />
    .否则<br />
        当前长度 ＝ 单字符长度<br />
    .如果结束<br />
<br />
    ' 严格边界检查<br />
    .如果 (当前位置 ＋ 当前长度 － 1 ＞ 总长度)<br />
        输出调试文本 (“警告：跳过不完整字符，位置=” ＋ 到文本 (当前位置))<br />
        跳出循环 ()<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
    ' 添加到数组<br />
    重定义数组 (目标数组, 真, 取数组成员数 (目标数组) ＋ 1)<br />
    目标数组 [取数组成员数 (目标数组)] ＝ 取字节集中间 (源字节集, 当前位置, 当前长度)<br />
    当前位置 ＝ 当前位置 ＋ 当前长度<br />
.判断循环尾 ()<br />
<br />
.子程序 生成特殊字符, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
<br />
' 上标数字（特殊处理2字节字符）<br />
结果 ＝ 结果 ＋ 生成上标数字 () ＋ 换行符<br />
<br />
' 其他字符集（统一处理）<br />
结果 ＝ 结果 ＋ 生成字符集 (集_下字, 3) ＋ 换行符  ' 下标<br />
结果 ＝ 结果 ＋ 生成字符集 (集_细体, 4) ＋ 换行符  ' 细体<br />
结果 ＝ 结果 ＋ 生成字符集 (集_粗体, 4) ＋ 换行符  ' 粗体<br />
结果 ＝ 结果 ＋ 生成字符集 (集_双线, 4) ＋ 换行符  ' 双线<br />
结果 ＝ 结果 ＋ 生成字符集 (集_实心, 3) ＋ 换行符  ' 实心<br />
结果 ＝ 结果 ＋ 生成字符集 (集_圆圈, 3)<br />
返回 (结果)<br />
<br />
.子程序 生成上标数字, 字节集<br />
.局部变量 结果, 字节集<br />
.局部变量 当前位置, 整数型<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
当前位置 ＝ 1<br />
.判断循环首 (当前位置 ≤ 取字节集长度 (集_上字))<br />
    .如果 (当前位置 ＋ 1 ≤ 取字节集长度 (集_上字) 且 集_上字 [当前位置] ＝ 194)<br />
        结果 ＝ 结果 ＋ 取字节集中间 (集_上字, 当前位置, 2)  ' 处理2字节字符（123）<br />
        当前位置 ＝ 当前位置 ＋ 2<br />
    .否则<br />
        .如果 (当前位置 ＋ 2 ≤ 取字节集长度 (集_上字))<br />
            结果 ＝ 结果 ＋ 取字节集中间 (集_上字, 当前位置, 3)  ' 处理3字节字符<br />
            当前位置 ＝ 当前位置 ＋ 3<br />
        .否则<br />
            跳出循环 ()<br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
    .如果 (横竖 ＝ 假 且 当前位置 ≤ 取字节集长度 (集_上字))<br />
        结果 ＝ 结果 ＋ 换行符<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.判断循环尾 ()<br />
返回 (结果)<br />
<br />
.子程序 生成字符集, 字节集<br />
.参数 字符集, 字节集<br />
.参数 单字符长度, 整数型<br />
.局部变量 结果, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 换行符, 字节集<br />
<br />
换行符 ＝ { 13, 10 }<br />
.计次循环首 (取字节集长度 (字符集) ÷ 单字符长度, i)<br />
    结果 ＝ 结果 ＋ 取字节集中间 (字符集, (i － 1) × 单字符长度 ＋ 1, 单字符长度)<br />
    .如果 (横竖 ＝ 假 且 i ＜ 取字节集长度 (字符集) ÷ 单字符长度)<br />
        结果 ＝ 结果 ＋ 换行符<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
返回 (结果)<br />

数据类型名	公开	备注
自定义
成员名	类型	传址	数组	备注
成员	字节集		1

数据类型名	公开	备注
替换规则
成员名	类型	传址	数组	备注
位置啊	整数型
类型啊	整数型