接口鉴权计算？字典升序？完全看不懂 - 精易论坛

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

调试输出 (getSign ({ “aa=11”, “dd=22”, “bb=33”, “cc=44” }, “dfsdfsdfsdf”))

子程序名	返回值类型	公开	备注
getSign	文本型
参数名	类型	参考	可空	数组	备注
params	文本型
appkey	文本型

变量名	类型	静态	数组	备注
i	整数型
_params	文本型		0
str	文本型
_param	文本型		0

排序 (params, _params)

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

_param ＝分割文本 (_params [i], “=”, )

str ＝ str ＋ _param [1] ＋ “=” ＋编码_URL编码 (_param [2]) ＋ “&”

计次循环尾 ()
str ＝ str ＋ “app_key=” ＋ appkey
返回 (到大写 (取数据摘要 (到字节集 (str))))

子程序名	返回值类型	公开	备注
排序
参数名	类型	参考	可空	数组	备注
数组	文本型
返回数组	文本型

变量名	类型	静态	数组	备注
i	整数型
整数数组	整数型		0
文数	文本型		0
文本数组	文本型		1,2
k	整数型
j	整数型

重定义数组 (文本数组, 假, 取数组成员数 (数组), 2)

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

加入成员 (整数数组, 取代码 (数组 [i], 1))

数组 [i] ＝到文本 (取代码 (数组 [i], 1)) ＋ “，” ＋数组 [i] ＋ “，”

文数＝分割文本 (数组 [i], “，”, )

文本数组 [i] [1] ＝文数 [1]

文本数组 [i] [2] ＝文数 [2]

计次循环尾 ()
数组排序 (整数数组, 真)
调试输出 (整数数组)
重定义数组 (返回数组, 假, 取数组成员数 (数组))

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

计次循环首 (取数组成员数 (整数数组), k)

如果真 (文本数组 [k] [1] ＝到文本 (整数数组 [i]) 且返回数组 [k] ≠ 文本数组 [k] [2])

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

如果真 (返回数组 [j] ≠ 文本数组 [k] [2])

返回数组 [i] ＝文本数组 [k] [2]

跳出循环 ()

计次循环尾 ()

跳出循环 ()

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br />
.支持库 spec<br />
.支持库 dp1<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
调试输出 (getSign ({ “aa=11”, “dd=22”, “bb=33”, “cc=44” }, “dfsdfsdfsdf”))<br />
<br />
<br />
<br />
.子程序 getSign, 文本型<br />
.参数 params, 文本型, 数组<br />
.参数 appkey, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 _params, 文本型, , "0"<br />
.局部变量 str, 文本型<br />
.局部变量 _param, 文本型, , "0"<br />
<br />
排序 (params, _params)<br />
<br />
.计次循环首 (取数组成员数 (_params), i)<br />
    _param ＝ 分割文本 (_params <i>, “=”, )<br />
    str ＝ str ＋ _param [1] ＋ “=” ＋ 编码_URL编码 (_param [2]) ＋ “&”<br />
.计次循环尾 ()<br />
str ＝ str ＋ “app_key=” ＋ appkey<br />
返回 (到大写 (取数据摘要 (到字节集 (str))))<br />
<br />
.子程序 排序<br />
.参数 数组, 文本型, 数组<br />
.参数 返回数组, 文本型, 数组<br />
.局部变量 i, 整数型<br />
.局部变量 整数数组, 整数型, , "0"<br />
.局部变量 文数, 文本型, , "0"<br />
.局部变量 文本数组, 文本型, , "1,2"<br />
.局部变量 k, 整数型<br />
.局部变量 j, 整数型<br />
<br />
重定义数组 (文本数组, 假, 取数组成员数 (数组), 2)<br />
.计次循环首 (取数组成员数 (数组), i)<br />
    加入成员 (整数数组, 取代码 (数组 <i>, 1))<br />
    数组 <i> ＝ 到文本 (取代码 (数组 <i>, 1)) ＋ “，” ＋ 数组 <i> ＋ “，”<br />
    文数 ＝ 分割文本 (数组 <i>, “，”, )<br />
    文本数组 <i> [1] ＝ 文数 [1]<br />
    文本数组 <i> [2] ＝ 文数 [2]<br />
.计次循环尾 ()<br />
数组排序 (整数数组, 真)<br />
调试输出 (整数数组)<br />
重定义数组 (返回数组, 假, 取数组成员数 (数组))<br />
.计次循环首 (取数组成员数 (数组), i)<br />
    .计次循环首 (取数组成员数 (整数数组), k)<br />
        .如果真 (文本数组 [k] [1] ＝ 到文本 (整数数组 <i>) 且 返回数组 [k] ≠ 文本数组 [k] [2])<br />
            .计次循环首 (取数组成员数 (数组), j)<br />
                .如果真 (返回数组 [j] ≠ 文本数组 [k] [2])<br />
                    返回数组 <i> ＝ 文本数组 [k] [2]<br />
                    跳出循环 ()<br />
                .如果真结束<br />
<br />
            .计次循环尾 ()<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.计次循环尾 ()

窗口程序集名	保留	保留	备注
窗口程序集1

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

拖放对象1.zc拖放控件 (图片框1.取窗口句柄 ())
地址2 ＝ “https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”
app_id ＝ “1106852855”
key ＝ “zeMXD1mByXXA3TRu”

子程序名	返回值类型	公开	备注
_按钮1_被单击

' 1.图片框得到图片并备份，判断图片文件大小，超过1M进行压缩处理。
' 2.将图片转换成编码.
' 3.计算出时间戳和随机数.
' 4.申请密钥，计算出指定值。
' 5.把所有信息按要求发送至服务器进行识别.
' 6.处理返回的信息，分类输出至超级列表框.

子程序名	返回值类型	公开	备注
_拖放对象1_得到文件
参数名	类型	参考	可空	数组	备注
接收到的文件路径	文本型

图片框1.图片＝读入文件 (接收到的文件路径)
编辑框2.加入文本 (“图片读取成功，图片路径为：” ＋接收到的文件路径＋ #换行符 )

子程序名	返回值类型	公开	备注
导入图片			导入图片

变量名	类型	静态	数组	备注
文件大小	整数型			把图片框接收到的图片进行备份并重命名

a1 ＝到文本 (取现行时间 ())
标签1.标题＝ a1

如果 (文件是否存在 (“C:\temp\0”)) ' 检查原图文件夹是否存在否则创建

编辑框2.加入文本 (“缓存目录已存在。C:\temp\0” ＋ #换行符 )

创建目录 (“C:\temp\0”)

编辑框2.加入文本 (“缓存目录创建成功。C:\temp\0” ＋ #换行符 )

写到文件 (“C:\temp\0\” ＋ a1 ＋ “.jpg”, 图片框1.图片) ' 把图片框的图片进行保存
编辑框2.加入文本 (“图片已缓存，文件名为：” ＋ a1 ＋ “.jpg” ＋ #换行符 )
文件_枚举1 (“C:\temp\0\”, a1 ＋ “.jpg”, &Dbgfile) ' 枚举当前图片

子程序名	返回值类型	公开	备注
Dbgfile			判断图片大小，当图片大于1M时进行压缩。
参数名	类型	参考	可空	数组	备注
lpath	文本型
lfile	文本型

变量名	类型	静态	数组	备注
fileByte

fileByte ＝取文件尺寸 (lpath ＋ lfile) ÷ 1024 ' 取文件大小
' 编辑框1.内容＝ lpath ＋ lfile ＋ “ 图片大小：” ＋到文本 (fileByte) ＋ “ kb”
编辑框1.内容＝到文本 (fileByte) ' 输出显示文件大小

如果 (到整数 (编辑框1.内容) ＞ 1024) ' 判断图片大小

编辑框2.加入文本 (“图片超过限制大小，正在压缩。（限制大小为1M）”)

如果 (文件是否存在 (“C:\temp\1”)) ' 检查压缩后图片文件夹是否存在否则创建

创建目录 (“C:\temp\1”)

转换到JPG (“C:\temp\0\” ＋ a1 ＋ “.jpg”, “C:\temp\1\” ＋ a1 ＋ “.jpg”, 假, 75, 真, 0) ' 压缩图片

a2 ＝到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”) ' 声明变量a2为压缩后的文件名

编辑框2.加入文本 (“图片压缩完成。” ＋ #换行符 )

图片框1.图片＝读入文件 (a2) ' 图片框重新读入压缩后的文件

编辑框2.加入文本 (“重新读取压缩后文件成功” ＋ #换行符 )

' 是否需要再次判断文件大小
写到文件 (“C:\temp\1\” ＋ a1 ＋ “.jpg”, 图片框1.图片) ' 把图片框的图片进行保存
a3 ＝到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)
转换 ()
' ---------------------下面的代码需要上传API处理---------------------------------
' AppID：1106852855 AppKey：zeMXD1mByXXA3TRu

子程序名	返回值类型	公开	备注
转换			把图片框的图片转换为BASE64编码，输出到编辑框2

变量名	类型	静态	数组	备注
图片编码	文本型

按钮1.标题＝ “正在转换编码”
按钮1.禁止＝真
图片编码＝到文本 (编码_BASE64编码 (图片框1.图片))
编辑框2.加入文本 (“图片BASE64编码” ＋ #换行符＋图片编码＋ #换行符 )
' 编辑框2.内容＝编码_BASE64编码 (图片框1.图片)
按钮1.标题＝ “正在识别”
按钮1.禁止＝假
签名 ()

子程序名	返回值类型	公开	备注
签名			申请签名

变量名	类型	静态	数组	备注
返回数据	文本型

时间_取现行时间戳 ()
返回数据＝到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, 1, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key:” ＋ key, ))
' 编辑框2.内容＝到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, “post”, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key1:” ＋ key, ))
编辑框2.加入文本 (返回数据)

子程序名	返回值类型	公开	备注
随机数			生成一个10位随机数

变量名	类型	静态	数组	备注
长度	整数型
是否有数字	逻辑型
首字母是否大写	逻辑型
index	整数型
cbAsci	文本型

置随机数种子 ()

计次循环首 (10, )

index ＝取随机数 (1, 3)

如果真 (首字母是否大写＝真)

index ＝ 2

首字母是否大写＝假

如果真 (是否有数字＝假)

如果真 (index ＝ 1)

index ＝ 3

判断 (index ＝ 1)

' 数字

cbAsci ＝ cbAsci ＋到文本 (到字节集 (到字节 (取随机数 (48, 57))))

判断 (index ＝ 2)

' 大写字母

cbAsci ＝ cbAsci ＋到文本 (到字节集 (到字节 (取随机数 (65, 90))))

判断 (index ＝ 3)

' 小写字母

cbAsci ＝ cbAsci ＋到文本 (到字节集 (到字节 (取随机数 (97, 122))))

计次循环尾 ()
编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符 )
nonce_str ＝ cbAsci
返回 (cbAsci)
' 置随机数种子 ()
nonce_str ＝到文本 (字符 (取随机数 (65, 90)))
' 编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符)

子程序名	返回值类型	公开	备注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类型	参考	可空	数组	备注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类型	静态	数组	备注
毫秒数	文本型
间隔时间文本	文本型
返回值	文本型

置随机数种子 ()
毫秒数＝到文本 (取随机数 (10000, 90000))
间隔时间文本＝到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 )) ＋毫秒数
' 判断 (是否取十位时间戳)
返回值＝取文本左边 (间隔时间文本, 10)
' 返回值＝取文本左边 (间隔时间文本, 13)
' 调试输出 (返回值)
编辑框2.加入文本 (“秒级时间戳为：” ＋返回值＋ #换行符 )
time_stamp ＝返回值
返回 (返回值)

子程序名	返回值类型	公开	备注
发送			发送所有信息到服务器

' [url]http://ai.qq.com/doc/ocrdriverlicenseocr.shtml[/url]
' 编码_BASE64编码 (到字节集 (“admin” ＋字符 (10) ＋ “admin”))

i支持库列表	支持库注释
edroptarget	拖放支持库
eImgConverter	图像格式转换支持库

.版本 2<br />
.支持库 edroptarget<br />
.支持库 eImgConverter<br />
<br />
.程序集 窗口程序集1<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
拖放对象1.zc拖放控件 (图片框1.取窗口句柄 ())<br />
地址2 ＝ “https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”<br />
app_id ＝ “1106852855”<br />
key ＝ “zeMXD1mByXXA3TRu”<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
' 1.图片框得到图片并备份，判断图片文件大小，超过1M进行压缩处理。<br />
' 2.将图片转换成编码.<br />
' 3.计算出时间戳和随机数.<br />
' 4.申请密钥，计算出指定值。<br />
' 5.把所有信息按要求发送至服务器进行识别.<br />
' 6.处理返回的信息，分类输出至超级列表框.<br />
<br />
.子程序 _拖放对象1_得到文件<br />
.参数 接收到的文件路径, 文本型<br />
<br />
图片框1.图片 ＝ 读入文件 (接收到的文件路径)<br />
编辑框2.加入文本 (“图片读取成功，图片路径为：” ＋ 接收到的文件路径 ＋ #换行符)<br />
<br />
<br />
.子程序 导入图片, , , 导入图片<br />
.局部变量 文件大小, 整数型, , , 把图片框接收到的图片进行备份并重命名<br />
<br />
a1 ＝ 到文本 (取现行时间 ())<br />
标签1.标题 ＝ a1<br />
.如果 (文件是否存在 (“C:\temp\0”))  ' 检查原图文件夹是否存在 否则创建<br />
    编辑框2.加入文本 (“缓存目录已存在。C:\temp\0” ＋ #换行符)<br />
.否则<br />
    创建目录 (“C:\temp\0”)<br />
    编辑框2.加入文本 (“缓存目录创建成功。C:\temp\0” ＋ #换行符)<br />
.如果结束<br />
<br />
写到文件 (“C:\temp\0\” ＋ a1 ＋ “.jpg”, 图片框1.图片)  ' 把图片框的图片进行保存<br />
编辑框2.加入文本 (“图片已缓存，文件名为：” ＋ a1 ＋ “.jpg” ＋ #换行符)<br />
文件_枚举1 (“C:\temp\0\”, a1 ＋ “.jpg”, &Dbgfile)  ' 枚举当前图片<br />
<br />
<br />
.子程序 Dbgfile, , , 判断图片大小，当图片大于1M时进行压缩。<br />
.参数 lpath, 文本型<br />
.参数 lfile, 文本型<br />
.局部变量 fileByte<br />
<br />
<br />
fileByte ＝ 取文件尺寸 (lpath ＋ lfile) ÷ 1024  ' 取文件大小<br />
' 编辑框1.内容 ＝ lpath ＋ lfile ＋ “ 图片大小：” ＋ 到文本 (fileByte) ＋ “ kb”<br />
编辑框1.内容 ＝ 到文本 (fileByte)  ' 输出显示文件大小<br />
.如果 (到整数 (编辑框1.内容) ＞ 1024)  ' 判断图片大小<br />
    编辑框2.加入文本 (“图片超过限制大小，正在压缩。（限制大小为1M）”)<br />
    .如果 (文件是否存在 (“C:\temp\1”))  ' 检查压缩后图片文件夹是否存在 否则创建<br />
<br />
    .否则<br />
        创建目录 (“C:\temp\1”)<br />
    .如果结束<br />
    转换到JPG (“C:\temp\0\” ＋ a1 ＋ “.jpg”, “C:\temp\1\” ＋ a1 ＋ “.jpg”, 假, 75, 真, 0)  ' 压缩图片<br />
    a2 ＝ 到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)  ' 声明变量a2为压缩后的文件名<br />
    编辑框2.加入文本 (“图片压缩完成。” ＋ #换行符)<br />
    图片框1.图片 ＝ 读入文件 (a2)  ' 图片框重新读入压缩后的文件<br />
    编辑框2.加入文本 (“重新读取压缩后文件成功” ＋ #换行符)<br />
.否则<br />
    ' 是否需要再次判断文件大小<br />
.如果结束<br />
写到文件 (“C:\temp\1\” ＋ a1 ＋ “.jpg”, 图片框1.图片)  ' 把图片框的图片进行保存<br />
a3 ＝ 到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)<br />
转换 ()<br />
<br />
' ---------------------下面的代码需要上传API处理---------------------------------<br />
<br />
' AppID：1106852855  AppKey：zeMXD1mByXXA3TRu<br />
<br />
<br />
<br />
.子程序 转换, , , 把图片框的图片转换为BASE64编码，输出到编辑框2<br />
.局部变量 图片编码, 文本型<br />
<br />
<br />
按钮1.标题 ＝ “正在转换编码”<br />
按钮1.禁止 ＝ 真<br />
图片编码 ＝ 到文本 (编码_BASE64编码 (图片框1.图片))<br />
编辑框2.加入文本 (“图片BASE64编码” ＋ #换行符 ＋ 图片编码 ＋ #换行符)<br />
' 编辑框2.内容 ＝ 编码_BASE64编码 (图片框1.图片)<br />
按钮1.标题 ＝ “正在识别”<br />
按钮1.禁止 ＝ 假<br />
签名 ()<br />
<br />
<br />
.子程序 签名, , , 申请签名<br />
.局部变量 返回数据, 文本型<br />
<br />
时间_取现行时间戳 ()<br />
返回数据 ＝ 到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, 1, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key:” ＋ key, ))<br />
' 编辑框2.内容 ＝ 到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, “post”, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key1:” ＋ key, ))<br />
编辑框2.加入文本 (返回数据)<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
.子程序 随机数, , , 生成一个10位随机数<br />
.局部变量 长度, 整数型<br />
.局部变量 是否有数字, 逻辑型<br />
.局部变量 首字母是否大写, 逻辑型<br />
.局部变量 index, 整数型<br />
.局部变量 cbAsci, 文本型<br />
<br />
置随机数种子 ()<br />
.计次循环首 (10, )<br />
    index ＝ 取随机数 (1, 3)<br />
    .如果真 (首字母是否大写 ＝ 真)<br />
        index ＝ 2<br />
        首字母是否大写 ＝ 假<br />
    .如果真结束<br />
<br />
    .如果真 (是否有数字 ＝ 假)<br />
        .如果真 (index ＝ 1)<br />
            index ＝ 3<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
    .判断开始 (index ＝ 1)<br />
        ' 数字<br />
        cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (48, 57))))<br />
    .判断 (index ＝ 2)<br />
        ' 大写字母<br />
        cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (65, 90))))<br />
    .判断 (index ＝ 3)<br />
        ' 小写字母<br />
        cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (97, 122))))<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
.计次循环尾 ()<br />
编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符)<br />
nonce_str ＝ cbAsci<br />
返回 (cbAsci)<br />
<br />
<br />
<br />
<br />
<br />
<br />
' 置随机数种子 ()<br />
nonce_str ＝ 到文本 (字符 (取随机数 (65, 90)))<br />
' 编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符)<br />
<br />
<br />
<br />
.子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br />
.参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br />
.局部变量 毫秒数, 文本型<br />
.局部变量 间隔时间文本, 文本型<br />
.局部变量 返回值, 文本型<br />
<br />
置随机数种子 ()<br />
毫秒数 ＝ 到文本 (取随机数 (10000, 90000))<br />
间隔时间文本 ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒)) ＋ 毫秒数<br />
' 判断 (是否取十位时间戳)<br />
返回值 ＝ 取文本左边 (间隔时间文本, 10)<br />
' 返回值 ＝ 取文本左边 (间隔时间文本, 13)<br />
' 调试输出 (返回值)<br />
编辑框2.加入文本 (“秒级时间戳为：” ＋ 返回值 ＋ #换行符)<br />
time_stamp ＝ 返回值<br />
<br />
返回 (返回值)<br />
<br />
<br />
<br />
.子程序 发送, , , 发送所有信息到服务器<br />
<br />
<br />
' <a href="http://ai.qq.com/doc/ocrdriverlicenseocr.shtml" target="_blank">http://ai.qq.com/doc/ocrdriverlicenseocr.shtml</a><br />
<br />
<br />
' 编码_BASE64编码 (到字节集 (“admin” ＋ 字符 (10) ＋ “admin”))

数据类型名	公开	备注
排序文本
成员名	类型	传址	数组	备注
文本	文本型
数值	大数

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

变量名	类型	静态	数组	备注
appkey	文本型

appkey ＝ “a95eceb1ac8c24ee28b70f7dbba912bf” ' appkey是例子中提供的实参，参考”https://ai.qq.com/doc/auth.shtml“
调试输出 (到大写 (取数据摘要 (到字节集 (lexicographicalOrder (“app_id=10000,key1=TXAI开放平台,key2=示例仅供参考,nonce_str=20e3408a79,time_stamp=1493449657”, 真) ＋ “app_key=” ＋ appkey))))

子程序名	返回值类型	公开	备注
lexicographicalOrder	文本型
参数名	类型	参考	可空	数组	备注
toBeSorted	文本型				待排序的文本,用“,”分开每一个参数
urlCoding	逻辑型				是否URL编码

变量名	类型	静态	数组	备注
排序文本	文本型		0
临时组	排序文本		0
计次_A	整数型
计次_B	整数型
字符代码	整数型
当前文本	排序文本
临时文本	文本型
返回值	文本型
待替换文本	文本型

返回值＝ “”
排序文本＝分割文本 (toBeSorted, “,”, )

计次循环首 (取数组成员数 (排序文本), 计次_A)

当前文本.文本＝排序文本 [计次_A]

临时文本＝ “”

计次循环首 (取文本长度 (排序文本 [计次_A]), 计次_B)

字符代码＝取代码 (到大写 (取文本中间 (排序文本 [计次_A], 计次_B, 1)), )

如果真 (取反 (字符代码 ≥ 48 且字符代码 ≤ 57 或字符代码 ≥ 65 且字符代码 ≤ 90))

字符代码＝取代码 (到大写 (取拼音 (取文本中间 (排序文本 [计次_A], 计次_B, 2), 1)), ) ＋ 100

如果真 (字符代码 ≠ 100)

如果 (计次_B ＝ 1)

临时文本＝到文本 (字符代码) ＋ “.”

临时文本＝临时文本＋取文本右边 (“000” ＋到文本 (字符代码), 3)

计次循环尾 ()

当前文本.数值.导入文本 (临时文本)

加入成员 (临时组, 当前文本)

计次循环尾 ()

计次循环首 (取数组成员数 (临时组) － 1, 计次_B)

计次循环首 (取数组成员数 (临时组) －计次_B, 计次_A)

如果真 (临时组 [计次_A].数值.大于 (临时组 [计次_A ＋ 1].数值))

当前文本.文本＝临时组 [计次_A].文本

当前文本.数值＝临时组 [计次_A].数值

临时组 [计次_A].文本＝临时组 [计次_A ＋ 1].文本

临时组 [计次_A].数值＝临时组 [计次_A ＋ 1].数值

临时组 [计次_A ＋ 1].文本＝当前文本.文本

临时组 [计次_A ＋ 1].数值＝当前文本.数值

计次循环尾 ()

如果 (取数组成员数 (临时组) ＝取数组成员数 (排序文本))

计次循环首 (取数组成员数 (临时组), 计次_A)

排序文本 [计次_A] ＝临时组 [计次_A].文本

计次循环尾 ()

计次循环首 (取数组成员数 (排序文本), 计次_A)

返回值＝返回值＋排序文本 [计次_A] ＋ “、”

计次循环尾 ()

' 上面排序完毕，下面开始转码

如果 (urlCoding ＝真)

计次循环首 (取数组成员数 (排序文本), 计次_A)

待替换文本＝文本_取出中间文本 (返回值, “=”, “、”)

返回值＝子文本替换 (返回值, 待替换文本, 编码_URL编码 (待替换文本, 真, 真), , 1, 真)

返回值＝子文本替换 (返回值, “=”, “!--!”, , 1, 真)

计次循环尾 ()

计次循环首 (取数组成员数 (排序文本), 计次_A)
返回值＝子文本替换 (返回值, “!--!”, “=”, , 1, 真)
返回值＝子文本替换 (返回值, “、”, “&”, , 1, 真)

计次循环尾 ()返回 (返回值)

i支持库列表	支持库注释
eCalc	数值计算支持库
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br />
.支持库 eCalc<br />
<br />
.数据类型 排序文本<br />
    .成员 文本, 文本型<br />
    .成员 数值, 大数<br />
.版本 2<br />
.支持库 spec<br />
.支持库 dp1<br />
.支持库 eCalc<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 appkey, 文本型<br />
<br />
appkey ＝ “a95eceb1ac8c24ee28b70f7dbba912bf”  ' appkey是例子中提供的实参，参考”https://ai.qq.com/doc/auth.shtml“<br />
调试输出 (到大写 (取数据摘要 (到字节集 (lexicographicalOrder (“app_id=10000,key1=TXAI开放平台,key2=示例仅供参考,nonce_str=20e3408a79,time_stamp=1493449657”, 真) ＋ “app_key=” ＋ appkey))))<br />
<br />
.子程序 lexicographicalOrder, 文本型<br />
.参数 toBeSorted, 文本型, , 待排序的文本,用“,”分开每一个参数<br />
.参数 urlCoding, 逻辑型, , 是否URL编码<br />
.局部变量 排序文本, 文本型, , "0"<br />
.局部变量 临时组, 排序文本, , "0"<br />
.局部变量 计次_A, 整数型<br />
.局部变量 计次_B, 整数型<br />
.局部变量 字符代码, 整数型<br />
.局部变量 当前文本, 排序文本<br />
.局部变量 临时文本, 文本型<br />
.局部变量 返回值, 文本型<br />
.局部变量 待替换文本, 文本型<br />
<br />
返回值 ＝ “”<br />
排序文本 ＝ 分割文本 (toBeSorted, “,”, )<br />
.计次循环首 (取数组成员数 (排序文本), 计次_A)<br />
    当前文本.文本 ＝ 排序文本 [计次_A]<br />
    临时文本 ＝ “”<br />
    .计次循环首 (取文本长度 (排序文本 [计次_A]), 计次_B)<br />
        字符代码 ＝ 取代码 (到大写 (取文本中间 (排序文本 [计次_A], 计次_B, 1)), )<br />
        .如果真 (取反 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ≥ 65 且 字符代码 ≤ 90))<br />
            字符代码 ＝ 取代码 (到大写 (取拼音 (取文本中间 (排序文本 [计次_A], 计次_B, 2), 1)), ) ＋ 100<br />
        .如果真结束<br />
        .如果真 (字符代码 ≠ 100)<br />
            .如果 (计次_B ＝ 1)<br />
                临时文本 ＝ 到文本 (字符代码) ＋ “.”<br />
            .否则<br />
                临时文本 ＝ 临时文本 ＋ 取文本右边 (“000” ＋ 到文本 (字符代码), 3)<br />
            .如果结束<br />
<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
    当前文本.数值.导入文本 (临时文本)<br />
    加入成员 (临时组, 当前文本)<br />
.计次循环尾 ()<br />
.计次循环首 (取数组成员数 (临时组) － 1, 计次_B)<br />
    .计次循环首 (取数组成员数 (临时组) － 计次_B, 计次_A)<br />
        .如果真 (临时组 [计次_A].数值.大于 (临时组 [计次_A ＋ 1].数值))<br />
            当前文本.文本 ＝ 临时组 [计次_A].文本<br />
            当前文本.数值 ＝ 临时组 [计次_A].数值<br />
            临时组 [计次_A].文本 ＝ 临时组 [计次_A ＋ 1].文本<br />
            临时组 [计次_A].数值 ＝ 临时组 [计次_A ＋ 1].数值<br />
            临时组 [计次_A ＋ 1].文本 ＝ 当前文本.文本<br />
            临时组 [计次_A ＋ 1].数值 ＝ 当前文本.数值<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
.如果 (取数组成员数 (临时组) ＝ 取数组成员数 (排序文本))<br />
    .计次循环首 (取数组成员数 (临时组), 计次_A)<br />
        排序文本 [计次_A] ＝ 临时组 [计次_A].文本<br />
    .计次循环尾 ()<br />
    .计次循环首 (取数组成员数 (排序文本), 计次_A)<br />
        返回值 ＝ 返回值 ＋ 排序文本 [计次_A] ＋ “、”<br />
    .计次循环尾 ()<br />
.否则<br />
<br />
.如果结束<br />
' 上面排序完毕，下面开始转码<br />
.如果 (urlCoding ＝ 真)<br />
    .计次循环首 (取数组成员数 (排序文本), 计次_A)<br />
        待替换文本 ＝ 文本_取出中间文本 (返回值, “=”, “、”)<br />
        返回值 ＝ 子文本替换 (返回值, 待替换文本, 编码_URL编码 (待替换文本, 真, 真), , 1, 真)<br />
        返回值 ＝ 子文本替换 (返回值, “=”, “!--!”, , 1, 真)<br />
    .计次循环尾 ()<br />
.否则<br />
<br />
.如果结束<br />
.计次循环首 (取数组成员数 (排序文本), 计次_A)<br />
    返回值 ＝ 子文本替换 (返回值, “!--!”, “=”, , 1, 真)<br />
    返回值 ＝ 子文本替换 (返回值, “、”, “&”, , 1, 真)<br />
.计次循环尾 ()<br />
返回 (返回值)