取所有GB2312汉字作为取首拼音码表

输出调试文本 (“ExceptionText：” ＋ __GetExceptionText () ＋ #换行符 ＋ “DbgCallStack：” ＋ __GetDbgCallStack ())
.如果真 (文件是否存在 (取运行目录 () ＋ “\crash.dmp”))
.如果真 (信息框 (“崩溃的DMP文件已经写在了：” ＋ 取运行目录 () ＋ “\crash.dmp ！” ＋ #换行符 ＋ “是否继续写出？”, #询问图标 ＋ 4, “温馨提示”, 取窗口句柄 ()) ＝ #否钮)
返回 ()
.如果真结束

.如果真结束
ExceptDumpFile (取运行目录 () ＋ “\crash.dmp”, #MiniDumpWithIndirectlyReferencedMemory)
信息框 (“崩溃的DMP文件已经写在了：” ＋ 取运行目录 () ＋ “\crash.dmp ！”, #信息图标, “温馨提示”, 取窗口句柄 ())

文件号 ＝ 取空白文本 (300000)
地址 ＝ 取变量数据地址 (文件号)
c ＝ { 0, 0 }
.变量循环首 (176, 247, 1, a)
.变量循环首 (161, 254, 1, b)
c [1] ＝ a
c [2] ＝ b
进度 ＝ a × 1000 ＋ b
.如果 (取文本左边 (取拼音 (到文本 (c), 1), 1) ≠ “”)
写到内存 (取文本左边 (取拼音 (到文本 (c), 1), 1), 地址 ＋ 进度, 1)
.否则

.如果结束

.变量循环尾 ()
.变量循环尾 ()
集_码表 ＝ 删首尾空 (文件号)
' 写到文件 (“d:\首拼音编码表.txt”, 到字节集 (删首尾空 (文件号)))
编辑框2.内容 ＝ 删首尾空 (文件号)