BSON解析，求大神帮忙解决下！！

youxigw

2224848 发表于 2025-7-23 13:13
[e=1].版本 2

.子程序 字节集_取中间, 字节集, 公开

您好！好像缺的是这几个呢！

字节集_取字节
字节集_取出字节集
字节集_字节到整数

2224848

youxigw 发表于 2025-7-23 13:54
您好！好像缺的是这几个呢！

字节集_取字节

  

子程序名	返回值类型	公开	备 注
字节集到十六进制文本	文本型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集

变量名	类 型	静态	数组	备 注
结果	文本型
i	整数型

结果 ＝ “”
计次循环首 (取字节集长度 (字节集数据), i)
结果 ＝ 结果 ＋ 取十六进制文本 (字节集数据 [i]) ＋ “ ”
计次循环尾 ()
' 去掉末尾空格
如果 (取文本长度 (结果) ＞ 0)
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)



返回 (结果)

子程序名	返回值类型	公开	备 注
字节集_取字节	整数型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
位置	整数型

如果 (位置 ＜ 1 或 位置 ＞ 取字节集长度 (字节集数据))
返回 (0)


返回 (字节集数据 [位置])

子程序名	返回值类型	公开	备 注
字节集_取出字节集	字节集
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
起始位置	整数型
长度	整数型

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

' 参数校验
如果 (起始位置 ＜ 1 或 长度 ＜ 1)
返回 ({  })



' 自动调整长度防止越界
如果 (起始位置 ＋ 长度 － 1 ＞ 取字节集长度 (字节集数据))
长度 ＝ 取字节集长度 (字节集数据) － 起始位置 ＋ 1
如果 (长度 ＜ 1)
返回 ({  })




' 提取子字节集
结果 ＝ 取空白字节集 (长度)
计次循环首 (长度, i)
结果 [i] ＝ 字节集数据 [起始位置 ＋ i － 1]
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
字节集_字节到整数	整数型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
是否小端模式	逻辑型

变量名	类 型	静态	数组	备 注
长度	整数型
结果	整数型
i	整数型

长度 ＝ 取字节集长度 (字节集数据)
如果 (长度 ＞ 4)  ' 整数型最多4字节
长度 ＝ 4



' 默认小端模式
如果 (是否为空 (是否小端模式))
是否小端模式 ＝ 真



如果 (是否小端模式)
' 小端模式(低位在前)
计次循环首 (长度, i)
结果 ＝ 结果 ＋ 左移 (字节集数据 [i], (i － 1) × 8)
计次循环尾 ()
' 大端模式(高位在前)
计次循环首 (长度, i)
结果 ＝ 结果 ＋ 左移 (字节集数据 [i], (长度 － i) × 8)
计次循环尾 ()

返回 (结果)

.版本 2<br /> <br /> .子程序 字节集到十六进制文本, 文本型<br /> .参数 字节集数据, 字节集<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 结果 ＝ “”<br /> .计次循环首 (取字节集长度 (字节集数据), i)<br />     结果 ＝ 结果 ＋ 取十六进制文本 (字节集数据 <i>) ＋ “ ”<br /> .计次循环尾 ()<br /> <br /> ' 去掉末尾空格<br /> .如果 (取文本长度 (结果) ＞ 0)<br />     结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)<br /> .否则<br /> <br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 字节集_取字节, 整数型<br /> .参数 字节集数据, 字节集<br /> .参数 位置, 整数型<br /> <br /> .如果 (位置 ＜ 1 或 位置 ＞ 取字节集长度 (字节集数据))<br />     返回 (0)<br /> .否则<br /> <br /> .如果结束<br /> 返回 (字节集数据 [位置])<br /> <br /> .子程序 字节集_取出字节集, 字节集<br /> .参数 字节集数据, 字节集<br /> .参数 起始位置, 整数型<br /> .参数 长度, 整数型<br /> .局部变量 结果, 字节集<br /> .局部变量 i, 整数型<br /> <br /> ' 参数校验<br /> .如果 (起始位置 ＜ 1 或 长度 ＜ 1)<br />     返回 ({  })<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 自动调整长度防止越界<br /> .如果 (起始位置 ＋ 长度 － 1 ＞ 取字节集长度 (字节集数据))<br />     长度 ＝ 取字节集长度 (字节集数据) － 起始位置 ＋ 1<br />     .如果 (长度 ＜ 1)<br />         返回 ({  })<br />     .否则<br /> <br />     .如果结束<br /> <br /> .否则<br /> .如果结束<br /> <br /> ' 提取子字节集<br /> 结果 ＝ 取空白字节集 (长度)<br /> .计次循环首 (长度, i)<br />     结果 <i> ＝ 字节集数据 [起始位置 ＋ i － 1]<br /> .计次循环尾 ()<br /> <br /> 返回 (结果)<br /> <br /> .子程序 字节集_字节到整数, 整数型<br /> .参数 字节集数据, 字节集<br /> .参数 是否小端模式, 逻辑型, 可空<br /> .局部变量 长度, 整数型<br /> .局部变量 结果, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 长度 ＝ 取字节集长度 (字节集数据)<br /> .如果 (长度 ＞ 4)  ' 整数型最多4字节<br />     长度 ＝ 4<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 默认小端模式<br /> .如果 (是否为空 (是否小端模式))<br />     是否小端模式 ＝ 真<br /> .否则<br /> <br /> .如果结束<br /> <br /> .如果 (是否小端模式)<br />     ' 小端模式(低位在前)<br />     .计次循环首 (长度, i)<br />         结果 ＝ 结果 ＋ 左移 (字节集数据 <i>, (i － 1) × 8)<br />     .计次循环尾 ()<br /> .否则<br />     ' 大端模式(高位在前)<br />     .计次循环首 (长度, i)<br />         结果 ＝ 结果 ＋ 左移 (字节集数据 <i>, (长度 － i) × 8)<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> 返回 (结果)