逻辑型数组转换为整数。整数怎么转换成逻辑数组。有没有快捷方式

金子不是废铁

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 逻辑数组, 逻辑型, , "0"
.局部变量 计次, 整数型
.局部变量 十进制, 文本型
.局部变量 二进制, 文本型

' 初始化逻辑数组
逻辑数组 ＝ { 真, 真, 假, 真 }
.计次循环首 (取数组成员数 (逻辑数组), 计次)
    ' 转换到二进制
    二进制 ＝ 二进制 ＋ 到文本 (到整数 (逻辑数组 [计次]))
.计次循环尾 ()
' 转换到十进制
十进制 ＝ 转换任意进制 (二进制, 2, 10)
调试输出 (十进制)


.子程序 转换任意进制, 文本型, 公开, 可以将从二进制到三十六进制的数值随意进行转换(返回转换后的文本)
.参数 被转换文本, 文本型, , 欲被转换的文本(不可以转换负数以及小数)
.参数 被转换进制, 整数型, , 被转换文本的进制(2-36之间)
.参数 转换的进制, 整数型, , 要转换到的进制(2-36之间)
.局部变量 欲转换文本, 文本型
.局部变量 临时文本, 文本型
.局部变量 临时数值, 长整数型
.局部变量 计次变量, 整数型

.如果真 (被转换进制 ＜ 2 或 转换的进制 ＜ 2 或 被转换进制 ＞ 36 或 转换的进制 ＞ 36)  ' 判断两个“进制系数”是否正确
    输出调试文本 (“参数错误-进制只能在2-36之间”)
    返回 (“”)
.如果真结束
被转换文本 ＝ 到大写 (到半角 (被转换文本))  ' 规范参数
.计次循环首 (取文本长度 (被转换文本), 计次变量)
    临时文本 ＝ 取文本中间 (被转换文本, 计次变量, 1)
    .如果真 (寻找文本 (取文本左边 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 被转换进制), 临时文本, , 假) ＝ -1)
        临时文本 ＝ “参数错误-” ＋ 被转换文本 ＋ “不是一个有效的” ＋ 取文本左边 (数值到金额 (被转换进制, 真), 取文本长度 (数值到金额 (被转换进制, 真)) － 4) ＋ “进制数！”
        跳出循环 ()
    .如果真结束
    .如果真 (计次变量 ＝ 取文本长度 (被转换文本))
        临时文本 ＝ “”
    .如果真结束

.计次循环尾 ()
.如果真 (临时文本 ≠ “”)
    输出调试文本 (临时文本)
    返回 (“”)
.如果真结束
' 以上为数据处理代码
.如果真 (被转换进制 ＝ 转换的进制)
    返回 (被转换文本)
.如果真结束
.计次循环首 (取文本长度 (被转换文本), 计次变量)  ' 整数转换开始
    临时数值 ＝ (寻找文本 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取文本中间 (被转换文本, 计次变量, 1), , 真) － 1) × 求次方 (被转换进制, 取文本长度 (被转换文本) － 计次变量) ＋ 临时数值
.计次循环尾 ()
.判断循环首 (临时数值 ＞ 转换的进制 － 1)
    欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 到数值 (到文本 (临时数值 ％ 转换的进制)) ＋ 1, 1) ＋ 欲转换文本
    临时数值 ＝ 取整 (临时数值 ÷ 转换的进制)
.判断循环尾 ()
欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值 ＋ 1, 1) ＋ 欲转换文本  ' 整数转换结束
返回 (欲转换文本)

小奶瓶

  

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

处理 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
处理

变量名	类 型	静态	数组	备 注
逻辑数组	逻辑型		0
计次	整数型
十进制	文本型
二进制	文本型
逻辑数组A	逻辑型		0
逻辑	逻辑型

' 初始化逻辑数组
逻辑数组 ＝ { 真, 真, 假, 真 }
计次循环首 (取数组成员数 (逻辑数组), 计次)
' 转换到二进制
二进制 ＝ 二进制 ＋ 到文本 (到整数 (逻辑数组 [计次]))
计次循环尾 ()
计次循环首 (取文本长度 (二进制), 计次)
' 转换到逻辑
逻辑 ＝ 整数到逻辑 (到整数 (取文本中间 (二进制, 计次, 1)))
加入成员 (逻辑数组A, 逻辑)
计次循环尾 ()
调试输出 (二进制, 逻辑数组A)

子程序名	返回值类型	公开	备 注
整数到逻辑	逻辑型
参数名	类 型	参考	可空	数组	备 注
整数	整数型

返回 (选择 (整数 ＝ 1, 真, 假))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 处理 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 处理<br /> .局部变量 逻辑数组, 逻辑型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 十进制, 文本型<br /> .局部变量 二进制, 文本型<br /> .局部变量 逻辑数组A, 逻辑型, , "0"<br /> .局部变量 逻辑, 逻辑型<br /> <br /> ' 初始化逻辑数组<br /> 逻辑数组 ＝ { 真, 真, 假, 真 }<br /> .计次循环首 (取数组成员数 (逻辑数组), 计次)<br />     ' 转换到二进制<br />     二进制 ＝ 二进制 ＋ 到文本 (到整数 (逻辑数组 [计次]))<br /> .计次循环尾 ()<br /> .计次循环首 (取文本长度 (二进制), 计次)<br />     ' 转换到逻辑<br />     逻辑 ＝ 整数到逻辑 (到整数 (取文本中间 (二进制, 计次, 1)))<br />     加入成员 (逻辑数组A, 逻辑)<br /> .计次循环尾 ()<br /> 调试输出 (二进制, 逻辑数组A)<br /> <br /> .子程序 整数到逻辑, 逻辑型<br /> .参数 整数, 整数型<br /> <br /> 返回 (选择 (整数 ＝ 1, 真, 假))

冰之棱

写一个子程序，配参数，然后快捷批量转换

金子不是废铁

冰之棱 发表于 2019-12-29 21:37
写一个子程序，配参数，然后快捷批量转换

指教下。搞不懂