文本如何转换成16进制字节集数据

小志很ok

就像这样的 333333?釔悙 转换得到 33 33 33 33 33 33 3F E1 90 90 90  

疯子的决定

我找找 我好像有个源 自己写的！{:3_245:}

疯子的决定

是这种吗？！

zhjane

.版本 2

.子程序 取十进制, 整数型, , 将非十进制的标准格式文本转换成十进制整数值
.参数 欲转换的值, 文本型, , 欲转换的值，文本型！
.参数 数值类型, 整数型, 可空, 0，#十六进制；1，#十进制（默认）；2，#八进制；3，#二进制
.局部变量 s, 整数型, , , 最终结果
.局部变量 a, 整数型, , , 中间变量
.局部变量 b, 整数型, , , 中间变量
.局部变量 c, 文本型, , , 中间变量
.局部变量 d, 整数型, , , 中间变量

欲转换的值 ＝ 到小写 (欲转换的值)
.如果真 (是否为空 (数值类型))
    数值类型 ＝ 1
.如果真结束
s ＝ 0
.判断开始 (数值类型 ＝ 0)
    a ＝ 取文本长度 (欲转换的值)
    .变量循环首 (1, a, 1, b)
        c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
        .如果真 (取代码 (c, ) ≤ 取代码 (“f”, ) 且 取代码 (c, ) ≥ 取代码 (“a”, ) 或 取代码 (c, ) ≤ 取代码 (“F”, ) 且 取代码 (c, ) ≥ 取代码 (“A”, ))
            .如果真 (取代码 (c, ) ≥ 取代码 (“A”, ) 且 取代码 (c, ) ≤ 取代码 (“F”, ))
                d ＝ 取代码 (c, ) － 取代码 (“A”, ) ＋ 10
            .如果真结束
            .如果真 (取代码 (c, ) ≥ 取代码 (“a”, ) 且 取代码 (c, ) ≤ 取代码 (“f”, ))
                d ＝ 取代码 (c, ) － 取代码 (“a”, ) ＋ 10
            .如果真结束

        .如果真结束
        .如果真 (取代码 (c, ) ≤ 取代码 (“9”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
            d ＝ 到数值 (c)
        .如果真结束
        s ＝ s ＋ 求次方 (16, b － 1) × d
    .变量循环尾 ()
.默认

.判断结束
.判断开始 (数值类型 ＝ 1)
    s ＝ 到数值 (欲转换的值)
.默认

.判断结束
.判断开始 (数值类型 ＝ 2)
    a ＝ 取文本长度 (欲转换的值)
    .变量循环首 (1, a, 1, b)
        c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
        .如果真 (取代码 (c, ) ≤ 取代码 (“7”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
            d ＝ 到数值 (c)
        .如果真结束
        s ＝ s ＋ 求次方 (8, b － 1) × d
    .变量循环尾 ()
.默认

.判断结束
.判断开始 (数值类型 ＝ 3)
    a ＝ 取文本长度 (欲转换的值)
    .变量循环首 (1, a, 1, b)
        c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
        .如果真 (取代码 (c, ) ≤ 取代码 (“1”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
            d ＝ 到数值 (c)
        .如果真结束
        s ＝ s ＋ 求次方 (2, b － 1) × d
    .变量循环尾 ()
.默认

.判断结束
返回 (s)

.子程序 十六进制转文本, 文本型, , By:泪闯天涯
.参数 欲转换文本, 文本型
.局部变量 Bin, 字节集
.局部变量 n, 整数型
.局部变量 i, 整数型

n ＝ 取文本长度 (欲转换文本) ÷ 2
Bin ＝ 取空白字节集 (n)
.计次循环首 (n, i)
    Bin [i] ＝ 取十进制 (取文本中间 (欲转换文本, (i － 1) × 2 ＋ 1, 2), 0)
.计次循环尾 ()
返回 (到文本 (Bin))

.子程序 转十六进制文本, 文本型, , By:泪闯天涯
.参数 欲转换文本, 文本型
.局部变量 Bin, 字节集
.局部变量 str, 文本型
.局部变量 i, 整数型

Bin ＝ 到字节集 (欲转换文本)
.计次循环首 (取字节集长度 (Bin), i)
    str ＝ str ＋ 取文本右边 (“00” ＋ 取十六进制文本 (Bin [i]), 2)
.计次循环尾 ()
返回 (str)

zhjane

{:3_244:}这个可以实现~

疯子的决定

直接上附件 希望你满意！{:3_244:}

16进制与文本转换.rar (78.65 KB, 下载次数: 2495)

2012-3-16 23:00 上传

点击文件名下载附件

小志很ok

非常感谢,谢谢

ForeverLover

疯子的决定 发表于 2012-3-16 22:51
是这种吗？！

表示你这个源码，我在易官方论坛见过~

疯子的决定

╰☆流年 一逝☆╰ 发表于 2012-3-16 23:30
表示你这个源码，我在易官方论坛见过~

表示这个源 我1年前都在电脑压这了！

kingsee

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 a, 字节集
   
5. .局部变量 i, 整数型
   
6. .局部变量 b, 整数型
   
7. .局部变量 c, 文本型
   
8. 
   
9. 编辑框1.内容 ＝ “”
   
10. a ＝ 到字节集 (“333333?釔悙”)
    
11. .计次循环首 (取字节集长度 (a), i)
    
12.     b ＝ 取字节集数据 (a, #整数型, i)
    
13.     c ＝ 取文本右边 (取十六进制文本 (b), 2)
    
14.     编辑框1.加入文本 (c ＋ “，”)
    
15. 
    
16. .计次循环尾 ()
    

复制代码