7bit编码,7bit解码,把8字节编码成7字节 短xinpdu解析用到

嫂子

其他语言有现成的 翻译即可。我是翻译自 Delphi代码

一一一2

什么时候会用到这个

晴天大佬

灵感吖

支持一下，下载看看

嫂子

解码

  

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

变量名	类 型	静态	数组	备 注
srclen	整数型
nsrc	整数型
tmpchar	整数型
nbyte	整数型
pDst	文本型
nleft	整数型
a	文本型

srclen ＝ 取文本长度 (data)
nsrc ＝ 1
nbyte ＝ 0
nleft ＝ 0
判断循环首 (nsrc ＜ srclen)
tmpchar ＝ Hex2Int (取文本中间 (data, nsrc, 2))
pDst ＝ pDst ＋ 字符 (位与 (位或 (左移 (tmpchar, nbyte), nleft), 127))
nleft ＝ 右移 (tmpchar, 7 － nbyte)
nbyte ＝ nbyte ＋ 1
如果真 (nbyte ＝ 7)
pDst ＝ pDst ＋ 字符 (nleft)
nbyte ＝ 0
nleft ＝ 0
nsrc ＝ nsrc ＋ 2
判断循环尾 ()
返回 (pDst)

.版本 2<br /> <br /> .子程序 Decode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 srclen, 整数型<br /> .局部变量 nsrc, 整数型<br /> .局部变量 tmpchar, 整数型<br /> .局部变量 nbyte, 整数型<br /> .局部变量 pDst, 文本型<br /> .局部变量 nleft, 整数型<br /> .局部变量 a, 文本型<br /> <br /> srclen ＝ 取文本长度 (data)<br /> nsrc ＝ 1<br /> nbyte ＝ 0<br /> nleft ＝ 0<br /> .判断循环首 (nsrc ＜ srclen)<br />     tmpchar ＝ Hex2Int (取文本中间 (data, nsrc, 2))<br />     pDst ＝ pDst ＋ 字符 (位与 (位或 (左移 (tmpchar, nbyte), nleft), 127))<br />     nleft ＝ 右移 (tmpchar, 7 － nbyte)<br />     nbyte ＝ nbyte ＋ 1<br />     .如果真 (nbyte ＝ 7)<br />         pDst ＝ pDst ＋ 字符 (nleft)<br />         nbyte ＝ 0<br />         nleft ＝ 0<br />     .如果真结束<br />     nsrc ＝ nsrc ＋ 2<br /> .判断循环尾 ()<br /> 返回 (pDst)

嫂子

  

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

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
cur	整数型
j	整数型
t	文本型
res	文本型

len ＝ 取文本长度 (data)
i ＝ 1
判断循环首 (i ≤ len)
判断 (i ＜ len)
cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)
cur ＝ 位与 (右移 (取代码 (data, i), j), 255)
t ＝ 格式化文本 (“%2.2X”, cur)
res ＝ res ＋ t
i ＝ i ＋ 1
j ＝ (j ＋ 1) ％ 7
如果真 (j ＝ 0)
i ＝ i ＋ 1

判断循环尾 ()
返回 (res)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 Encode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 cur, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 res, 文本型<br /> <br /> len ＝ 取文本长度 (data)<br /> i ＝ 1<br /> .判断循环首 (i ≤ len)<br />     .判断开始 (i ＜ len)<br />         cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)<br />     .默认<br />         cur ＝ 位与 (右移 (取代码 (data, i), j), 255)<br />     .判断结束<br />     t ＝ 格式化文本 (“%2.2X”, cur)<br />     res ＝ res ＋ t<br />     i ＝ i ＋ 1<br />     j ＝ (j ＋ 1) ％ 7<br />     .如果真 (j ＝ 0)<br />         i ＝ i ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (res)

嫂子

给你个标准写法

  

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

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
cur	整数型
j	整数型
t	文本型
res	文本型

len ＝ 取文本长度 (data)
i ＝ 1
判断循环首 (i ≤ len)
判断 (i ＜ len)
cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)
cur ＝ 位与 (右移 (取代码 (data, i), j), 255)
t ＝ 格式化文本 (“%2.2X”, cur)
res ＝ res ＋ t
i ＝ i ＋ 1
j ＝ (j ＋ 1) ％ 7
如果真 (j ＝ 0)
i ＝ i ＋ 1

判断循环尾 ()
返回 (res)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 Encode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 cur, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 res, 文本型<br /> <br /> len ＝ 取文本长度 (data)<br /> i ＝ 1<br /> .判断循环首 (i ≤ len)<br />     .判断开始 (i ＜ len)<br />         cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)<br />     .默认<br />         cur ＝ 位与 (右移 (取代码 (data, i), j), 255)<br />     .判断结束<br />     t ＝ 格式化文本 (“%2.2X”, cur)<br />     res ＝ res ＋ t<br />     i ＝ i ＋ 1<br />     j ＝ (j ＋ 1) ％ 7<br />     .如果真 (j ＝ 0)<br />         i ＝ i ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (res)