颜色转换，RGB和十六进制互转

wh1234567

感谢分享

亿万

感谢分享，很给力！~

胖子葛格

感谢大神分享~！

bianyuan456

已经顶贴，感谢您对论坛的支持！

396384183

大佬nb66666666666666666

一指温柔

感谢分享

wuqingg

renhe2018

看着不错，支持。

沙漠之丘

支持6666666666666666666

真冬

  

子程序名	返回值类型	公开	备 注
颜色转换2	文本型		十六进制和RGB互转
参数名	类 型	参考	可空	数组	备 注
参数_颜色	文本型				支持格式：R,G,B  或  #000000

变量名	类 型	静态	数组	备 注
i1	整数型
十六位置	整数型
十计算	整数型
高低位	逻辑型
结果	文本型
分割	文本型		0

判断 (寻找文本 (参数_颜色, “#”, , 假) ≠ -1)
变量循环首 (取文本长度 (参数_颜色), 1, -1, i1)
十六位置 ＝ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (参数_颜色, i1, 1), , 真)
如果真 (十六位置 ≠ -1)
十六位置 ＝ 十六位置 － 1
判断 (高低位 ＝ 假)
十计算 ＝ 十六位置
高低位 ＝ 真
十计算 ＝ 十计算 ＋ 十六位置 × 16
结果 ＝ 到文本 (十计算) ＋ “,” ＋ 结果
高低位 ＝ 假


变量循环尾 ()
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)
判断 (寻找文本 (参数_颜色, “,”, , 假) ≠ -1)
分割 ＝ 分割文本 (参数_颜色, , )
重定义数组 (分割, 真, 3)
' 结果 ＝ 格式化文本 (“#%02X%02X%02X”, 到整数 (a [1]), 到整数 (a [2]), 到整数 (a [3]))
结果 ＝ “#”
计次循环首 (3, i1)
结果 ＝ 结果 ＋ 取文本右边 (“0” ＋ 取十六进制文本 (到整数 (分割 [i1])), 2)
计次循环尾 ()


返回 (结果)

.版本 2<br /> <br /> .子程序 颜色转换2, 文本型, 公开, 十六进制和RGB互转<br /> .参数 参数_颜色, 文本型, , 支持格式：R,G,B  或  #000000<br /> .局部变量 i1, 整数型<br /> .局部变量 十六位置, 整数型<br /> .局部变量 十计算, 整数型<br /> .局部变量 高低位, 逻辑型<br /> .局部变量 结果, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> <br /> .判断开始 (寻找文本 (参数_颜色, “#”, , 假) ≠ -1)<br />     .变量循环首 (取文本长度 (参数_颜色), 1, -1, i1)<br />         十六位置 ＝ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (参数_颜色, i1, 1), , 真)<br />         .如果真 (十六位置 ≠ -1)<br />             十六位置 ＝ 十六位置 － 1<br />             .判断开始 (高低位 ＝ 假)<br />                 十计算 ＝ 十六位置<br />                 高低位 ＝ 真<br />             .默认<br />                 十计算 ＝ 十计算 ＋ 十六位置 × 16<br />                 结果 ＝ 到文本 (十计算) ＋ “,” ＋ 结果<br />                 高低位 ＝ 假<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)<br /> .判断 (寻找文本 (参数_颜色, “,”, , 假) ≠ -1)<br />     分割 ＝ 分割文本 (参数_颜色, , )<br />     重定义数组 (分割, 真, 3)<br />     ' 结果 ＝ 格式化文本 (“#%02X%02X%02X”, 到整数 (a [1]), 到整数 (a [2]), 到整数 (a [3]))<br />     结果 ＝ “#”<br />     .计次循环首 (3, i1)<br />         结果 ＝ 结果 ＋ 取文本右边 (“0” ＋ 取十六进制文本 (到整数 (分割 [i1])), 2)<br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (结果)