.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 web, 文本型 .局部变量 a, 整数型 .局部变量 z, 字节集 .局部变量 cd, 整数型 .局部变量 jc, 整数型 web ＝ 编辑框1.内容 cd ＝ 取文本长度 (web) ÷ 2 z ＝ 取空白字节集 (cd) .如果真 (取文本长度 (web) ％ 2 ＝ 0) ' 字符串不是双数 那就不再处理了 a ＝ 1 .计次循环首 (cd, jc) z [jc] ＝ 十六到十 (取文本中间 (web, a, 2)) a ＝ a ＋ 2 .计次循环尾 () 调试输出 (z, 到文本 (z)) ' 写到文件 (取特定目录 (3) ＋ “name.txt”, z) .如果真结束 .子程序 十六到十, 整数型, , 由于是字符串处理信息所以我就这样写的 .参数 进制, 文本型, , 只是支持2字符判断 1个会自动加入 如：2a 或 a .局部变量 cd, 整数型 .局部变量 x, 文本型 .局部变量 s, 文本型, , "2" .局部变量 hex, 文本型, , "6" .局部变量 hez, 整数型, , "6" .局部变量 jc, 整数型 cd ＝ 取文本长度 (进制) ' 长度判断不用我说吧 .如果 (cd ＜ 2) ' 检测小于2个数据就执行下面的信息 x ＝ “0” ＋ 进制 ' 这里补上好算 .否则 x ＝ 进制 ' 没有就算了， .如果结束 ' 判断上面的数 s [1] ＝ 到大写 (取文本中间 (x, 1, 1)) ' 取第一位数 s [2] ＝ 到大写 (取文本中间 (x, 2, 1)) ' 最大就是2字符所以 你输入再多也没有用 hex ＝ { “A”, “B”, “C”, “D”, “E”, “F” } ' 这是16进制文本 hez ＝ { 10, 11, 12, 13, 14, 15 } ' 这是10进制数据 对应上面的数 A=10 ......F=15 .计次循环首 (取数组成员数 (hex), jc) ' 所以这里判断 .如果真 (hex [jc] ＝ s [1]) ' 判断第一个数组数 hex 是16进制 hez 是 10 进制 s [1] ＝ 到文本 (hez [jc]) .如果真结束 .如果真 (hex [jc] ＝ s [2]) ' 判断第二个数组数 hex 是16进制 hez 是 10 进制 s [2] ＝ 到文本 (hez [jc]) ' 如果这里 s[2]原数据是 b 那么 现在 就是 11 也就是 对应的 hez数组 前面计次在判断 .如果真结束 处理事件 () ' 我们要安全处理 所以要事件处理，小数据加不加都无所谓，但是我觉得加上还是好些，免得卡的没法动 .计次循环尾 () ' 调试输出 (s) ' 这里就是结果转换的数据了，作为测试输出一下 返回 (到整数 (s [1]) × 16 ＋ 到整数 (s [2])) ' 计算 算法就是 第一个数据 s[1] × 16 + s[2] 后一个数据 就是 10进制 ' 堆存不懂得兄弟 去看 小甲鱼的 进制转换 视频 讲的还可以的 .子程序 _按钮2_被单击 调试输出 (十六到十 (编辑框2.内容))