| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 数组 | 文本型 | | 0 |
| i | 整数型 | | |
| 新文本 | 文本型 | | |
| 拼音 | 文本型 | | |
| 数量 | 整数型 | | |
文本_逐字分割 (源文本, 数组
)数量 ＝
取数组成员数 (数组
)
计次循环首 (数量, i
)
拼音 ＝
取拼音 (数组
[i
], 1
)
判断 (数量 ＝ i
)
新文本 ＝ 新文本 ＋
到大写_汇编 (取文本左边_汇编 (拼音, 1
)) ＋
取文本右边_汇编 (拼音,
取文本长度_汇编 (拼音
) － 1
)
新文本 ＝ 新文本 ＋
到大写_汇编 (取文本左边_汇编 (拼音, 1
)) ＋
取文本右边_汇编 (拼音,
取文本长度_汇编 (拼音
) － 1
) ＋
“ ”
计次循环尾 ()返回 (新文本
)
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 两个取拼音函数 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 全局_拼音表 | 表 | |
| 全局_拼音二维数组 | 文本型 | 0 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 拼音_数组 | 文本型 | | 0 |
| i | 整数型 | | |
| 字符 | 文本型 | | |
| 字符_字节集 | 字节集 | | |
重定义数组 (全局_拼音二维数组, 假, 256, 256
)拼音_数组 ＝
分割文本 ( #拼音字典, “,”,
)计次循环首 (取数组成员数 (拼音_数组
), i
)字符 ＝
取文本左边 (拼音_数组
[i
], 2
)如果真 (取文本长度 (字符
) ＝ 2
)字符_字节集 ＝
到字节集 (字符
)全局_拼音二维数组
[字符_字节集
[1
]]
[字符_字节集
[2
]] ＝
取文本右边 (拼音_数组
[i
],
取文本长度 (拼音_数组
[i
]) － 2
)
计次循环尾 ()|
| 取拼音_数组 | 文本型 | |
|
| 文本 | 文本型 | | | |
保留非汉字 | 逻辑型 | | | | 分隔符 | 文本型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| bytes | 字节集 | | |
| bytesLen | 整数型 | | |
| i | 整数型 | | |
| result | 文本型 | | |
如果真 (是否为空 (分隔符
))
分隔符 ＝
“ ”bytes ＝ 到字节集 (文本)bytesLen ＝
取字节集长度 (bytes
)i ＝ 1
判断循环首 (i ＜ bytesLen
)判断 (bytes
[i
] ＞ 128
) result ＝ result ＋ 全局_拼音二维数组
[bytes
[i
]]
[bytes
[i ＋ 1
]] ＋ 分隔符
i ＝ i ＋ 2
判断 (bytes
[i
] ＝ 13
且 bytes
[i ＋ 1
] ＝ 10
且 保留非汉字
) 
result ＝ result ＋
#换行符 
i ＝ i ＋ 2
如果真 (保留非汉字
)result ＝ result ＋
字符 (bytes
[i
]) ＋ 分隔符
i ＝ i ＋ 1判断循环尾 ()如果真 (i ＝ bytesLen
且 保留非汉字
)result ＝ result ＋
字符 (bytes
[i
])返回 (删尾空 (result
))
