获取变体型的具体类型 - 精易论坛

子程序名	返回值类型	公开	备注
获取变体类型	整数型
参数名	类型	参考	可空	数组	备注
_VAR	变体型

变量名	类型	静态	数组	备注
_Addr	整数型
_Addr_1	整数型
_VAR_TYPE	整数型

_Addr ＝取数据_通用型 (_VAR)
_VAR_TYPE ＝指针到整数 (_Addr ＋ 0)
调试输出 (“数据类型: ” ＋变体_取类型 (_VAR_TYPE))
返回 (_VAR_TYPE)

子程序名	返回值类型	公开	备注
变体_取类型	文本型		部分特殊类型可能不准
参数名	类型	参考	可空	数组	备注
Code	整数型

变量名	类型	静态	数组	备注
_Code	整数型
_Msg	文本型

如果 (Code ≥ 8192)

_Msg ＝ “ - 数组”

_Code ＝ Code ％ 8192

_Code ＝ Code

判断 (_Code ＝ 0)

_Msg ＝ “Empty” ＋ _Msg

判断 (_Code ＝ 1)

_Msg ＝ “Null” ＋ _Msg

判断 (_Code ＝ 2)

_Msg ＝ “整数型” ＋ _Msg

判断 (_Code ＝ 3 或 _Code ＝ 14)

_Msg ＝ “长整数型” ＋ _Msg

判断 (_Code ＝ 4)

_Msg ＝ “小数型” ＋ _Msg

判断 (_Code ＝ 5)

_Msg ＝ “双精度小数型” ＋ _Msg

判断 (_Code ＝ 6)

_Msg ＝ “货币型” ＋ _Msg

判断 (_Code ＝ 7)

_Msg ＝ “时间日期型” ＋ _Msg

判断 (_Code ＝ 8)

_Msg ＝ “文本型” ＋ _Msg

判断 (_Code ＝ 9)

_Msg ＝ “对象” ＋ _Msg

判断 (_Code ＝ 10)

_Msg ＝ “错误” ＋ _Msg

判断 (_Code ＝ 11 或 _Code ＝ 16)

_Msg ＝ “逻辑型” ＋ _Msg

判断 (_Code ＝ 12)

_Msg ＝ “变体型” ＋ _Msg

判断 (_Code ＝ 13)

_Msg ＝ “对象” ＋ _Msg

判断 (_Code ＝ 17)

_Msg ＝ “字节型” ＋ _Msg

_Msg ＝ “未知”
返回 (_Msg)

子程序名	返回值类型	公开	备注
取数据_通用型	整数型		取到的是变量在堆中的地址,和取变量数据地址() 一样,注意: 字节集数据需要+8,前8位是标准,字节集型数据建议使用取指针_字节集型()
参数名	类型	参考	可空	数组	备注
变量	通用型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 获取变体类型, 整数型<br />
.参数 _VAR, 变体型, 参考<br />
.局部变量 _Addr, 整数型<br />
.局部变量 _Addr_1, 整数型<br />
.局部变量 _VAR_TYPE, 整数型<br />
<br />
_Addr ＝ 取数据_通用型 (_VAR)<br />
_VAR_TYPE ＝ 指针到整数 (_Addr ＋ 0)<br />
调试输出 (“数据类型: ” ＋ 变体_取类型 (_VAR_TYPE))<br />
返回 (_VAR_TYPE)<br />
<br />
<br />
.子程序 变体_取类型, 文本型, 公开, 部分特殊类型可能不准<br />
.参数 Code, 整数型<br />
.局部变量 _Code, 整数型<br />
.局部变量 _Msg, 文本型<br />
<br />
.如果 (Code ≥ 8192)<br />
    _Msg ＝ “ - 数组”<br />
    _Code ＝ Code ％ 8192<br />
.否则<br />
    _Code ＝ Code<br />
.如果结束<br />
<br />
.判断开始 (_Code ＝ 0)<br />
    _Msg ＝ “Empty” ＋ _Msg<br />
.判断 (_Code ＝ 1)<br />
    _Msg ＝ “Null” ＋ _Msg<br />
.判断 (_Code ＝ 2)<br />
    _Msg ＝ “整数型” ＋ _Msg<br />
.判断 (_Code ＝ 3 或 _Code ＝ 14)<br />
    _Msg ＝ “长整数型” ＋ _Msg<br />
.判断 (_Code ＝ 4)<br />
    _Msg ＝ “小数型” ＋ _Msg<br />
.判断 (_Code ＝ 5)<br />
    _Msg ＝ “双精度小数型” ＋ _Msg<br />
.判断 (_Code ＝ 6)<br />
    _Msg ＝ “货币型” ＋ _Msg<br />
.判断 (_Code ＝ 7)<br />
    _Msg ＝ “时间日期型” ＋ _Msg<br />
.判断 (_Code ＝ 8)<br />
    _Msg ＝ “文本型” ＋ _Msg<br />
.判断 (_Code ＝ 9)<br />
    _Msg ＝ “对象” ＋ _Msg<br />
.判断 (_Code ＝ 10)<br />
    _Msg ＝ “错误” ＋ _Msg<br />
.判断 (_Code ＝ 11 或 _Code ＝ 16)<br />
    _Msg ＝ “逻辑型” ＋ _Msg<br />
.判断 (_Code ＝ 12)<br />
    _Msg ＝ “变体型” ＋ _Msg<br />
.判断 (_Code ＝ 13)<br />
    _Msg ＝ “对象” ＋ _Msg<br />
.判断 (_Code ＝ 17)<br />
    _Msg ＝ “字节型” ＋ _Msg<br />
.默认<br />
    _Msg ＝ “未知”<br />
.判断结束<br />
返回 (_Msg)<br />
<br />
.子程序 取数据_通用型, 整数型, , 取到的是变量在堆中的地址,和 取变量数据地址() 一样,注意: 字节集数据需要+8,前8位是标准,字节集型数据建议使用 取指针_字节集型()<br />
.参数 变量, 通用型, 参考<br />
<br />
置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br />
返回 (0)