精易论坛

标题: 颜色转换,RGB和十六进制互转 [打印本页]

作者: wuwenhao    时间: 2024-10-14 23:27
标题: 颜色转换,RGB和十六进制互转
  
子程序名返回值类型公开备 注
颜色转换文本型 十六进制和RGB互转
参数名类 型参考可空数组备 注
颜色文本型支持格式:R,G,B  或  #000000
如果 (寻找文本 (颜色, “#”, , ) ≠ -1)
返回 (到文本 (进制_十六到十 (取文本中间 (颜色, 2, 2)))“,”到文本 (进制_十六到十 (取文本中间 (颜色, 4, 2)))“,”到文本 (进制_十六到十 (取文本中间 (颜色, 6, 2))))



返回 (“#”取文本右边 (进制_十到十六 (到长整数 (文本_取左边 (颜色, “,”, , )), ), 2)取文本右边 (进制_十到十六 (到长整数 (文本_取出中间文本 (颜色, “,”, “,”, , )), ), 2)取文本右边 (进制_十到十六 (到长整数 (文本_取右边 (颜色, “,”, , )), ), 2))



作者: wh1234567    时间: 2024-10-15 00:10
加油!努力学习!
作者: 真冬    时间: 2024-10-15 01:32
  
子程序名返回值类型公开备 注
颜色转换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)
计次循环尾 ()


返回 (结果)



作者: 沙漠之丘    时间: 2024-10-15 01:50

支持6666666666666666666
作者: renhe2018    时间: 2024-10-15 03:30
看着不错,支持。
作者: wuqingg    时间: 2024-10-15 08:47

作者: 一指温柔    时间: 2024-10-15 08:59
感谢分享
作者: 396384183    时间: 2024-10-15 11:24

大佬nb66666666666666666
作者: bianyuan456    时间: 2024-10-15 12:41
已经顶贴,感谢您对论坛的支持!
作者: 胖子葛格    时间: 2024-10-15 18:31
感谢大神分享~!
作者: 亿万    时间: 2024-10-15 22:35
感谢分享,很给力!~
作者: wh1234567    时间: 2024-10-16 00:48
感谢分享
作者: year1970    时间: 2024-10-16 07:55
感谢分享
作者: please    时间: 2024-10-17 09:38
感谢分享,支持开源!!!
作者: jzc123    时间: 2024-10-17 15:04
7777777777777777777777777
作者: aiboboxx    时间: 2024-10-20 09:03
感谢分享!!!0ZtykWj6Jj
作者: aiboboxx    时间: 2024-10-20 20:48
感谢分享!!!YtkFzCV0Lr
作者: 胖子葛格    时间: 2024-10-22 10:23
感谢大神分享~!
作者: 熊不熊    时间: 2024-12-4 08:24
感谢分享,很给力!~
作者: 大战武藤兰    时间: 2024-12-14 23:51
我看看怎么个是
作者: mxai    时间: 2025-1-21 16:03
我看看。




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4