到逻辑型() 应该是目前最完美的处理 - 精易论坛

子程序名	返回值类型	公开	备注
到逻辑型	逻辑型		非0数值,非空字符串,非空字节集返回真,其他返回假,支持所有基础数据类型,禁止传递非基础数据类型,否则都返回假
参数名	类型	参考	可空	数组	备注
数据	通用型				如果传递过来的是文本或字节集,并且这个数据是"假",那也返回假,有没有空格都支持,支持传递栈地址,堆地址

变量名	类型	静态	数组	备注
addr	整数型
bin	字节集
ret	字节集

置入代码 ({ 139, 69, 8, 137, 69, 252 })  ' 取参数地址,存到第一个变量
IsBadCodePtr (addr)  ' 判断指针是否有效
置入代码 ({ 131, 248, 0, 118, 7, 139, 69, 8, 201, 194, 4, 0 })  ' 如果指针无效,则返回,非0返回真
IsBadCodePtr (指针到整数 (addr))  ' 在判断一下,有可能用户传递过来的是变量的栈地址
置入代码 ({ 11, 192, 117, 8, 139, 69, 8, 139, 0, 137, 69, 252 })  ' 如果传递过来的是栈地址,那就取堆地址,并放到第一个变量,如果不是则不处理
bin ＝指针到字节集 (addr, 4)  ' 取这个地址的4个字节,做为一个判断是字节集还是文本的方法
' 这样的判断不是很严谨,如果有人非要搞事情,传递个  字符(1)+字符(0)+字符(0)+字符(0),那这里也会被判断为字节集,不过搞事情的人不多,不要紧

判断 (bin ＝ { 1, 0, 0, 0 }) ' 传过来的是字节集类型

ret ＝指针到字节集 (addr ＋ 8, 指针到整数 (addr ＋ 4)) ' 字节集从第八个字节才是实际数据,第4-第七个字节是数据长度,把数据取出来

ret ＝子字节集替换 (ret, { 32 }, , , ) ' 删除全部的空格

如果真 (ret ＝到字节集 (“假”)) ' 如果这个字节集是"假" 这个字,也返回假,这里不做非ansi编码的判断,需要的自己加

返回 (假)

返回 (ret ≠ { }) ' 剩下的只要不是空字节集就返回真

' 不做非基础类型的判断,只做文本和字节集的判断

如果真 (删全部空 (指针到文本 (addr)) ＝ “假”) ' 如果传递过来的是"假" 那就返回假,这里不做非ansi编码的判断,需要的自己加

返回 (假)

返回 (取字节集左边 (bin, 1) ≠ { 0 }) ' 剩下的只要不是空字符串都返回真
返回 (假)

.版本 2<br />
<br />
.子程序 到逻辑型, 逻辑型, , 非0数值,非空字符串,非空字节集返回真,其他返回假,支持所有基础数据类型,禁止传递非基础数据类型,否则都返回假<br />
.参数 数据, 通用型, , 如果传递过来的是文本或字节集,并且这个数据是"假",那也返回假,有没有空格都支持,支持传递栈地址,堆地址<br />
.局部变量 addr, 整数型<br />
.局部变量 bin, 字节集<br />
.局部变量 ret, 字节集<br />
<br />
置入代码 ({ 139, 69, 8, 137, 69, 252 })  ' 取参数地址,存到第一个变量<br />
IsBadCodePtr (addr)  ' 判断指针是否有效<br />
置入代码 ({ 131, 248, 0, 118, 7, 139, 69, 8, 201, 194, 4, 0 })  ' 如果指针无效,则返回,非0返回真<br />
IsBadCodePtr (指针到整数 (addr))  ' 在判断一下,有可能用户传递过来的是变量的栈地址<br />
置入代码 ({ 11, 192, 117, 8, 139, 69, 8, 139, 0, 137, 69, 252 })  ' 如果传递过来的是栈地址,那就取堆地址,并放到第一个变量,如果不是则不处理<br />
<br />
bin ＝ 指针到字节集 (addr, 4)  ' 取这个地址的4个字节,做为一个判断是字节集还是文本的方法<br />
' 这样的判断不是很严谨,如果有人非要搞事情,传递个  字符(1)+字符(0)+字符(0)+字符(0),那这里也会被判断为字节集,不过搞事情的人不多,不要紧<br />
.判断开始 (bin ＝ { 1, 0, 0, 0 })  ' 传过来的是字节集类型<br />
    ret ＝ 指针到字节集 (addr ＋ 8, 指针到整数 (addr ＋ 4))  ' 字节集从第八个字节才是实际数据,第4-第七个字节是数据长度,把数据取出来<br />
    ret ＝ 子字节集替换 (ret, { 32 }, , , )  ' 删除全部的空格<br />
    .如果真 (ret ＝ 到字节集 (“假”))  ' 如果这个字节集是"假" 这个字,也返回假,这里不做非ansi编码的判断,需要的自己加<br />
        返回 (假)<br />
    .如果真结束<br />
    返回 (ret ≠ {  })  ' 剩下的只要不是空字节集就返回真<br />
<br />
.默认<br />
    ' 不做非基础类型的判断,只做文本和字节集的判断<br />
    .如果真 (删全部空 (指针到文本 (addr)) ＝ “假”)  ' 如果传递过来的是"假" 那就返回假,这里不做非ansi编码的判断,需要的自己加<br />
        返回 (假)<br />
    .如果真结束<br />
    返回 (取字节集左边 (bin, 1) ≠ { 0 })  ' 剩下的只要不是空字符串都返回真<br />
.判断结束<br />
返回 (假)