文本转二进制源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 s

标签1.标题 ＝ “”
s ＝ 15
.计次循环首 (15, a)
    重画 ()
    标签1.标题 ＝ 标签1.标题 ＋ 到文本 (s) ＋ “÷2=” ＋ 到文本 (到整数 (s ÷ 2)) ＋ “余” ＋ 到文本 (s ％ 2) ＋ #换行符
    s ＝ s － 1
    延迟 (36)
.计次循环尾 ()


.子程序 _按钮2_被单击, , , 37%/4

编辑框3.内容 ＝ 文本到二进制 (编辑框2.内容)

.子程序 文本到二进制, 文本型
.参数 文本, 文本型
.局部变量 数据, 字节集
.局部变量 长度, 整数型
.局部变量 计次, 整数型
.局部变量 hex, 文本型
.局部变量 txt, 文本型
.局部变量 二进制数据, 文本型

数据 ＝ 到字节集 (文本)
长度 ＝ 取字节集长度 (数据)
' 调试输出 (数据)
txt ＝ “”
.计次循环首 (长度, 计次)
    hex ＝ 十转十六 (数据 [计次])
    ' 调试输出 (hex)
    二进制数据 ＝ 十六转二 (hex)
    txt ＝ txt ＋ 二进制数据
    处理事件 ()
.计次循环尾 ()
返回 (txt)

.子程序 二进制到文本, 文本型
.参数 数据, 文本型
.局部变量 二进制表, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 段, 文本型
.局部变量 c, 整数型
.局部变量 b
.局部变量 结果, 文本型
.局部变量 txt, 字节集
.局部变量 q, 文本型

二进制表 ＝ 分割文本 (#进制表, #换行符, )
txt ＝ 取空白字节集 (取文本长度 (数据) ÷ 8)
c ＝ 1
.计次循环首 (取文本长度 (数据) ÷ 4, )
    段 ＝ 取文本中间 (数据, c, 4)
    c ＝ c ＋ 4
    ' 调试输出 (段, c)
    ' 延迟 (540)
    .计次循环首 (取数组成员数 (二进制表), a)
        .如果真 (取文本右边 (二进制表 [a], 4) ＝ 段)
            结果 ＝ 取文本左边 (二进制表 [a], 1)  ' 16进制
            q ＝ q ＋ 结果
            ' 调试输出 (结果)
        .如果真结束
        处理事件 ()
    .计次循环尾 ()
.计次循环尾 ()
编辑框4.内容 ＝ q
b ＝ 1
.计次循环首 (取文本长度 (q) ÷ 2, a)
    txt [a] ＝ 十六转十 (取文本中间 (q, b, 2))
    ' 调试输出 (取文本中间 (q, b, 2))
    b ＝ b ＋ 2
    处理事件 ()
.计次循环尾 ()
' 调试输出 (txt)
返回 (到文本 (txt))

.子程序 十转十六, 文本型
.参数 数, 整数型, , bu能超过255
.局部变量 hex, 文本型, , "6"
.局部变量 hee, 文本型, , "6"
.局部变量 十, 文本型
.局部变量 个, 文本型
.局部变量 a, 整数型

hex ＝ { “A”, “B”, “C”, “D”, “E”, “F” }
hee ＝ { “10”, “11”, “12”, “13”, “14”, “15” }
十 ＝ 到文本 (到整数 (数 ÷ 16))
个 ＝ 到文本 (数 ％ 16)
.计次循环首 (取数组成员数 (hex), a)
    .如果真 (十 ＝ hee [a])
        十 ＝ hex [a]
    .如果真结束
    .如果真 (个 ＝ hee [a])
        个 ＝ hex [a]
    .如果真结束
    处理事件 ()
.计次循环尾 ()
返回 (十 ＋ 个)


.子程序 十六转十, 整数型
.参数 hex数, 文本型
.局部变量 hex, 文本型, , "6"
.局部变量 十, 文本型
.局部变量 个, 文本型
.局部变量 a, 整数型
.局部变量 hee, 文本型, , "6"
.局部变量 结果, 整数型
.局部变量 定1, 逻辑型, , "2"

hex ＝ { “A”, “B”, “C”, “D”, “E”, “F” }
hee ＝ { “10”, “11”, “12”, “13”, “14”, “15” }
.计次循环首 (取数组成员数 (hex), a)
    .如果真 (定1 [1] ＝ 假)
        .如果 (到大写 (取文本左边 (hex数, 1)) ＝ hex [a])
            十 ＝ hee [a]
            定1 [1] ＝ 真
        .否则
            十 ＝ 取文本左边 (hex数, 1)
        .如果结束

    .如果真结束
    .如果真 (定1 [2] ＝ 假)
        .如果 (到大写 (取文本右边 (hex数, 1)) ＝ hex [a])
            个 ＝ hee [a]
            定1 [2] ＝ 真
        .否则
            个 ＝ 取文本右边 (hex数, 1)
        .如果结束

    .如果真结束
    处理事件 ()
.计次循环尾 ()
' 调试输出 (十, 个)
结果 ＝ 到整数 (十) × 16 ＋ 到整数 (个)
返回 (结果)

.子程序 十六转二, 文本型
.参数 hex, 文本型
.局部变量 十, 文本型
.局部变量 个, 文本型
.局部变量 二进制表, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 结果, 文本型
.局部变量 定, 逻辑型

十 ＝ 到大写 (取文本左边 (hex, 1))
个 ＝ 到大写 (取文本右边 (hex, 1))
' 调试输出 (十, 个)
二进制表 ＝ 分割文本 (#进制表, #换行符, )
结果 ＝ “”
.计次循环首 (取数组成员数 (二进制表), a)

    .如果真 (取文本左边 (二进制表 [a], 1) ＝ 十)
        结果 ＝ 结果 ＋ 取文本右边 (二进制表 [a], 4)

    .如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (二进制表), a)
    .如果真 (取文本左边 (二进制表 [a], 1) ＝ 个)
        结果 ＝ 结果 ＋ 取文本右边 (二进制表 [a], 4)
    .如果真结束

.计次循环尾 ()
返回 (结果)

.子程序 _按钮3_被单击

编辑框3.内容 ＝ 二进制到文本 (编辑框2.内容)


.子程序 _按钮4_被单击

调试输出 (十六转十 (“d5”), 十转十六 (10), 十六转二 (“31”))


.子程序 __启动窗口_创建完毕

@汉族