取文本简单的方法

黑咖啡

数字0-9的Hex，长度不定，但一定是双数。如“30313233343536373839”，输出结果0123456789，其实结果也不重要。
我想用几种不同的方法，输出的结果一致，判断它就是数字0-9的Hex。
源文本可能任意位置段出现其他非数字的Hex。只有连续的N个长度以上0-9的Hex才要。
有完全严谨的方法不，大佬们？



例源文本：
234330313233903435363738953930AF3132863334353637383951 →30313233/3435363738/3930/3132/33343536373839

samll88

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
n	整数型
正则	正则表达式类
a	文本型

a ＝ “234330313233903435363738953930AF3132863334353637383951 →30313233/3435363738/3930/3132/33343536373839”
正则.创建 (“[0-9]{10}”, a, , , , )
计次循环首 (正则.取匹配数量 (), n)
调试输出 (正则.取匹配文本 (n, ))
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 a, 文本型<br /> <br /> a ＝ “234330313233903435363738953930AF3132863334353637383951 →30313233/3435363738/3930/3132/33343536373839”<br /> 正则.创建 (“[0-9]{10}”, a, , , , )<br /> .计次循环首 (正则.取匹配数量 (), n)<br />     调试输出 (正则.取匹配文本 (n, ))<br /> .计次循环尾 ()

黑咖啡

samll88 发表于 2025-4-2 10:34
[e=0].版本 2
.支持库 spec

NONONO

b0y

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
b	字节集
i	整数型
tmp	字节集

b ＝ 到字节集 (“234330313233903435363738953930AF3132863334353637383951”)
变量循环首 (1, 取字节集长度 (b), 2, i)
如果 (b [i] ＝ 51)
如果 (b [i ＋ 1] ≥ 48 且 b [i ＋ 1] ≤ 57)
tmp ＝ tmp ＋ 取字节集中间 (b, i, 2)
如果真 (tmp ≠ {  })
调试输出 (到文本 (tmp))
tmp ＝ {  }


如果真 (tmp ≠ {  })
调试输出 (到文本 (tmp))
tmp ＝ {  }


变量循环尾 ()
' * “30313233”
' * “3435363738”
' * “3930”
' * “3132”
' * “33343536373839”
' 被调试易程序运行完毕

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 b, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 tmp, 字节集<br /> <br /> b ＝ 到字节集 (“234330313233903435363738953930AF3132863334353637383951”)<br /> .变量循环首 (1, 取字节集长度 (b), 2, i)<br />     .如果 (b <i> ＝ 51)<br />         .如果 (b [i ＋ 1] ≥ 48 且 b [i ＋ 1] ≤ 57)<br />             tmp ＝ tmp ＋ 取字节集中间 (b, i, 2)<br />         .否则<br />             .如果真 (tmp ≠ {  })<br />                 调试输出 (到文本 (tmp))<br />                 tmp ＝ {  }<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .否则<br />         .如果真 (tmp ≠ {  })<br />             调试输出 (到文本 (tmp))<br />             tmp ＝ {  }<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> ' * “30313233”<br /> ' * “3435363738”<br /> ' * “3930”<br /> ' * “3132”<br /> ' * “33343536373839”<br /> ' 被调试易程序运行完毕

黑咖啡

不止是3起头后面跟着0-9。还要单数是3，双数是0-9。原文本肯定是双数。如“1333313836”取出33313836

补充内容 (2025-4-2 11:11):
有这种正则不，我问问ai看看

补充内容 (2025-4-2 11:46):
完了，AI也傻眼了

b0y

黑咖啡 发表于 2025-4-2 11:10
不止是3起头后面跟着0-9。还要单数是3，双数是0-9。原文本肯定是双数。如“1333313836”取出33313836

补充 ...

16进制文本 0-9  单数肯定是3开头的   没毛病

samll88

黑咖啡 发表于 2025-4-2 11:10
不止是3起头后面跟着0-9。还要单数是3，双数是0-9。原文本肯定是双数。如“1333313836”取出33313836

补充 ...

正则.创建 (“3[0-9]{10}”, a, , , , )

补充内容 (2025-4-2 11:29):
正则.创建 (“3[0-9]{7}”, a, , , , )

神行

以下，经测试完全正确。

.版本 2

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

.子程序 __启动窗口_创建完毕
.局部变量 源文本, 文本型
.局部变量 结果1, 文本型

源文本 ＝ “234330313233903435363738953930AF3132863334353637383951”
结果1 ＝ 提取连续Hex对 (源文本)
输出调试文本 (结果1)  ' 期望输出：30313233/3435363738/3132/33343536373839


.子程序 提取连续Hex对, 文本型
.参数 源文本, 文本型
.局部变量 结果, 文本型
.局部变量 临时组, 文本型
.局部变量 i, 整数型
.局部变量 当前对, 文本型
.局部变量 上一对, 文本型
.局部变量 当前值, 整数型
.局部变量 上一值, 整数型
.局部变量 有效对计数, 整数型

结果 ＝ “”
临时组 ＝ “”
上一对 ＝ “”
上一值 ＝ -1
有效对计数 ＝ 0

' 确保源文本长度为偶数
.如果 (取文本长度 (源文本) ％ 2 ≠ 0)
    源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)
.否则

.如果结束

.计次循环首 (取文本长度 (源文本) ÷ 2, i)
    当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)

    ' 检查是否为有效的十六进制对
    .如果 (是否为有效Hex对 (当前对))
        当前值 ＝ 十六进制到整数 (当前对)

        .如果 (上一值 ＝ -1)
            ' 第一对有效数字
            临时组 ＝ 当前对
            上一值 ＝ 当前值
            有效对计数 ＝ 1
        .否则
            .如果 (当前值 ＝ 上一值 ＋ 1)
                ' 连续的数字对
                临时组 ＝ 临时组 ＋ 当前对
                上一值 ＝ 当前值
                有效对计数 ＝ 有效对计数 ＋ 1
            .否则
                ' 不连续，结束当前组
                .如果 (有效对计数 ≥ 2)
                    .如果 (结果 ＝ “”)
                        结果 ＝ 临时组
                    .否则
                        结果 ＝ 结果 ＋ “/” ＋ 临时组
                    .如果结束

                .否则
                .如果结束

                临时组 ＝ 当前对
                上一值 ＝ 当前值
                有效对计数 ＝ 1
            .如果结束

        .如果结束

    .否则
        ' 无效的十六进制对，结束当前组
        .如果 (有效对计数 ≥ 2)
            .如果 (结果 ＝ “”)
                结果 ＝ 临时组
            .否则
                结果 ＝ 结果 ＋ “/” ＋ 临时组
            .如果结束

        .否则
        .如果结束

        临时组 ＝ “”
        上一值 ＝ -1
        有效对计数 ＝ 0
    .如果结束

.计次循环尾 ()

' 处理最后一组
.如果 (有效对计数 ≥ 2)
    .如果 (结果 ＝ “”)
        结果 ＝ 临时组
    .否则
        结果 ＝ 结果 ＋ “/” ＋ 临时组
    .如果结束

.否则
.如果结束

返回 (结果)

.子程序 是否为有效Hex对, 逻辑型
.参数 hex对, 文本型
.局部变量 i, 整数型
.局部变量 字符, 文本型

.如果 (取文本长度 (hex对) ≠ 2)
    返回 (假)
.否则

.如果结束

.计次循环首 (2, i)
    字符 ＝ 取文本中间 (hex对, i, 1)

    .如果 (字符 ≥ “0” 且 字符 ≤ “9”)
        ' 是数字，有效
    .否则
        .如果 (字符 ≥ “A” 且 字符 ≤ “F”)
            ' 是大写字母A-F，有效
        .否则
            .如果 (字符 ≥ “a” 且 字符 ≤ “f”)
                ' 是小写字母a-f，有效
            .否则
                返回 (假)  ' 不是有效的十六进制字符
            .如果结束

        .如果结束

    .如果结束

.计次循环尾 ()

返回 (真)

.子程序 十六进制到整数, 整数型
.参数 hex文本, 文本型
.局部变量 结果, 整数型
.局部变量 i, 整数型
.局部变量 当前字符, 文本型
.局部变量 当前值, 整数型

结果 ＝ 0

.计次循环首 (取文本长度 (hex文本), i)
    当前字符 ＝ 取文本中间 (hex文本, i, 1)

    .如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)
        当前值 ＝ 取代码 (当前字符, ) － 取代码 (“0”, )
    .否则
        .如果 (当前字符 ≥ “A” 且 当前字符 ≤ “F”)
            当前值 ＝ 取代码 (当前字符, ) － 取代码 (“A”, ) ＋ 10
        .否则
            .如果 (当前字符 ≥ “a” 且 当前字符 ≤ “f”)
                当前值 ＝ 取代码 (当前字符, ) － 取代码 (“a”, ) ＋ 10
            .否则
                返回 (0)
            .如果结束

        .如果结束

    .如果结束

    结果 ＝ 结果 × 16 ＋ 当前值
.计次循环尾 ()

返回 (结果)

神行

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
源文本	文本型
结果1	文本型

源文本 ＝ “234330313233903435363738953930AF3132863334353637383951”
结果1 ＝ 提取连续Hex对 (源文本)
输出调试文本 (结果1)  ' 期望输出：30313233/3435363738/3132/33343536373839

子程序名	返回值类型	公开	备 注
提取连续Hex对	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

变量名	类 型	静态	数组	备 注
结果	文本型
临时组	文本型
i	整数型
当前对	文本型
上一对	文本型
当前值	整数型
上一值	整数型
有效对计数	整数型

结果 ＝ “”
临时组 ＝ “”
上一对 ＝ “”
上一值 ＝ -1
有效对计数 ＝ 0
' 确保源文本长度为偶数
如果 (取文本长度 (源文本) ％ 2 ≠ 0)
源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)



计次循环首 (取文本长度 (源文本) ÷ 2, i)
当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)
' 检查是否为有效的十六进制对
如果 (是否为有效Hex对 (当前对))
当前值 ＝ 十六进制到整数 (当前对)
如果 (上一值 ＝ -1)
' 第一对有效数字
临时组 ＝ 当前对
上一值 ＝ 当前值
有效对计数 ＝ 1
如果 (当前值 ＝ 上一值 ＋ 1)
' 连续的数字对
临时组 ＝ 临时组 ＋ 当前对
上一值 ＝ 当前值
有效对计数 ＝ 有效对计数 ＋ 1
' 不连续，结束当前组
如果 (有效对计数 ≥ 2)
如果 (结果 ＝ “”)
结果 ＝ 临时组
结果 ＝ 结果 ＋ “/” ＋ 临时组


临时组 ＝ 当前对
上一值 ＝ 当前值
有效对计数 ＝ 1


' 无效的十六进制对，结束当前组
如果 (有效对计数 ≥ 2)
如果 (结果 ＝ “”)
结果 ＝ 临时组
结果 ＝ 结果 ＋ “/” ＋ 临时组


临时组 ＝ “”
上一值 ＝ -1
有效对计数 ＝ 0

计次循环尾 ()
' 处理最后一组
如果 (有效对计数 ≥ 2)
如果 (结果 ＝ “”)
结果 ＝ 临时组
结果 ＝ 结果 ＋ “/” ＋ 临时组


返回 (结果)

子程序名	返回值类型	公开	备 注
是否为有效Hex对	逻辑型
参数名	类 型	参考	可空	数组	备 注
hex对	文本型

变量名	类 型	静态	数组	备 注
i	整数型
字符	文本型

如果 (取文本长度 (hex对) ≠ 2)
返回 (假)



计次循环首 (2, i)
字符 ＝ 取文本中间 (hex对, i, 1)
如果 (字符 ≥ “0” 且 字符 ≤ “9”)
' 是数字，有效
如果 (字符 ≥ “A” 且 字符 ≤ “F”)
' 是大写字母A-F，有效
如果 (字符 ≥ “a” 且 字符 ≤ “f”)
' 是小写字母a-f，有效
返回 (假)  ' 不是有效的十六进制字符



计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
十六进制到整数	整数型
参数名	类 型	参考	可空	数组	备 注
hex文本	文本型

变量名	类 型	静态	数组	备 注
结果	整数型
i	整数型
当前字符	文本型
当前值	整数型

结果 ＝ 0
计次循环首 (取文本长度 (hex文本), i)
当前字符 ＝ 取文本中间 (hex文本, i, 1)
如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)
当前值 ＝ 取代码 (当前字符, ) － 取代码 (“0”, )
如果 (当前字符 ≥ “A” 且 当前字符 ≤ “F”)
当前值 ＝ 取代码 (当前字符, ) － 取代码 (“A”, ) ＋ 10
如果 (当前字符 ≥ “a” 且 当前字符 ≤ “f”)
当前值 ＝ 取代码 (当前字符, ) － 取代码 (“a”, ) ＋ 10
返回 (0)



结果 ＝ 结果 × 16 ＋ 当前值
计次循环尾 ()
返回 (结果)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 源文本, 文本型<br /> .局部变量 结果1, 文本型<br /> <br /> 源文本 ＝ “234330313233903435363738953930AF3132863334353637383951”<br /> 结果1 ＝ 提取连续Hex对 (源文本)<br /> 输出调试文本 (结果1)  ' 期望输出：30313233/3435363738/3132/33343536373839<br /> <br /> <br /> .子程序 提取连续Hex对, 文本型<br /> .参数 源文本, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 临时组, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 当前对, 文本型<br /> .局部变量 上一对, 文本型<br /> .局部变量 当前值, 整数型<br /> .局部变量 上一值, 整数型<br /> .局部变量 有效对计数, 整数型<br /> <br /> 结果 ＝ “”<br /> 临时组 ＝ “”<br /> 上一对 ＝ “”<br /> 上一值 ＝ -1<br /> 有效对计数 ＝ 0<br /> <br /> ' 确保源文本长度为偶数<br /> .如果 (取文本长度 (源文本) ％ 2 ≠ 0)<br />     源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .计次循环首 (取文本长度 (源文本) ÷ 2, i)<br />     当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)<br /> <br />     ' 检查是否为有效的十六进制对<br />     .如果 (是否为有效Hex对 (当前对))<br />         当前值 ＝ 十六进制到整数 (当前对)<br /> <br />         .如果 (上一值 ＝ -1)<br />             ' 第一对有效数字<br />             临时组 ＝ 当前对<br />             上一值 ＝ 当前值<br />             有效对计数 ＝ 1<br />         .否则<br />             .如果 (当前值 ＝ 上一值 ＋ 1)<br />                 ' 连续的数字对<br />                 临时组 ＝ 临时组 ＋ 当前对<br />                 上一值 ＝ 当前值<br />                 有效对计数 ＝ 有效对计数 ＋ 1<br />             .否则<br />                 ' 不连续，结束当前组<br />                 .如果 (有效对计数 ≥ 2)<br />                     .如果 (结果 ＝ “”)<br />                         结果 ＝ 临时组<br />                     .否则<br />                         结果 ＝ 结果 ＋ “/” ＋ 临时组<br />                     .如果结束<br /> <br />                 .否则<br />                 .如果结束<br /> <br />                 临时组 ＝ 当前对<br />                 上一值 ＝ 当前值<br />                 有效对计数 ＝ 1<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .否则<br />         ' 无效的十六进制对，结束当前组<br />         .如果 (有效对计数 ≥ 2)<br />             .如果 (结果 ＝ “”)<br />                 结果 ＝ 临时组<br />             .否则<br />                 结果 ＝ 结果 ＋ “/” ＋ 临时组<br />             .如果结束<br /> <br />         .否则<br />         .如果结束<br /> <br />         临时组 ＝ “”<br />         上一值 ＝ -1<br />         有效对计数 ＝ 0<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 处理最后一组<br /> .如果 (有效对计数 ≥ 2)<br />     .如果 (结果 ＝ “”)<br />         结果 ＝ 临时组<br />     .否则<br />         结果 ＝ 结果 ＋ “/” ＋ 临时组<br />     .如果结束<br /> <br /> .否则<br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 是否为有效Hex对, 逻辑型<br /> .参数 hex对, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> <br /> .如果 (取文本长度 (hex对) ≠ 2)<br />     返回 (假)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .计次循环首 (2, i)<br />     字符 ＝ 取文本中间 (hex对, i, 1)<br /> <br />     .如果 (字符 ≥ “0” 且 字符 ≤ “9”)<br />         ' 是数字，有效<br />     .否则<br />         .如果 (字符 ≥ “A” 且 字符 ≤ “F”)<br />             ' 是大写字母A-F，有效<br />         .否则<br />             .如果 (字符 ≥ “a” 且 字符 ≤ “f”)<br />                 ' 是小写字母a-f，有效<br />             .否则<br />                 返回 (假)  ' 不是有效的十六进制字符<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (真)<br /> <br /> .子程序 十六进制到整数, 整数型<br /> .参数 hex文本, 文本型<br /> .局部变量 结果, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 当前字符, 文本型<br /> .局部变量 当前值, 整数型<br /> <br /> 结果 ＝ 0<br /> <br /> .计次循环首 (取文本长度 (hex文本), i)<br />     当前字符 ＝ 取文本中间 (hex文本, i, 1)<br /> <br />     .如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)<br />         当前值 ＝ 取代码 (当前字符, ) － 取代码 (“0”, )<br />     .否则<br />         .如果 (当前字符 ≥ “A” 且 当前字符 ≤ “F”)<br />             当前值 ＝ 取代码 (当前字符, ) － 取代码 (“A”, ) ＋ 10<br />         .否则<br />             .如果 (当前字符 ≥ “a” 且 当前字符 ≤ “f”)<br />                 当前值 ＝ 取代码 (当前字符, ) － 取代码 (“a”, ) ＋ 10<br />             .否则<br />                 返回 (0)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br />     结果 ＝ 结果 × 16 ＋ 当前值<br /> .计次循环尾 ()<br /> <br /> 返回 (结果)

神行

又看了一下要求，你需要多种方法进行取出结果对比。这是三种方法。取出的结果也都一样。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
源文本	文本型
结果1	文本型
结果2	文本型
结果3	文本型

源文本 ＝ “234330313233903435363738953930AF3132863334353637383951”
结果1 ＝ 提取连续Hex对 (源文本)
结果2 ＝ 状态机提取连续Hex对 (源文本)
结果3 ＝ 位操作提取连续Hex对 (源文本)
输出调试文本 (结果1)  ' 期望输出：30313233/3435363738/3132/33343536373839
输出调试文本 (结果2)  ' 期望输出：30313233/3435363738/3132/33343536373839
输出调试文本 (结果3)  ' 期望输出：30313233/3435363738/3132/33343536373839

子程序名	返回值类型	公开	备 注
提取连续Hex对	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

变量名	类 型	静态	数组	备 注
结果	文本型
临时组	文本型
i	整数型
当前对	文本型
上一对	文本型
当前值	整数型
上一值	整数型
有效对计数	整数型

结果 ＝ “”
临时组 ＝ “”
上一对 ＝ “”
上一值 ＝ -1
有效对计数 ＝ 0
' 确保源文本长度为偶数
如果 (取文本长度 (源文本) ％ 2 ≠ 0)
源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)



计次循环首 (取文本长度 (源文本) ÷ 2, i)
当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)
' 检查是否为有效的十六进制对
如果 (是否为有效Hex对 (当前对))
当前值 ＝ 十六进制到整数 (当前对)
如果 (上一值 ＝ -1)
' 第一对有效数字
临时组 ＝ 当前对
上一值 ＝ 当前值
有效对计数 ＝ 1
如果 (当前值 ＝ 上一值 ＋ 1)
' 连续的数字对
临时组 ＝ 临时组 ＋ 当前对
上一值 ＝ 当前值
有效对计数 ＝ 有效对计数 ＋ 1
' 不连续，结束当前组
如果 (有效对计数 ≥ 2)
如果 (结果 ＝ “”)
结果 ＝ 临时组
结果 ＝ 结果 ＋ “/” ＋ 临时组


临时组 ＝ 当前对
上一值 ＝ 当前值
有效对计数 ＝ 1


' 无效的十六进制对，结束当前组
如果 (有效对计数 ≥ 2)
如果 (结果 ＝ “”)
结果 ＝ 临时组
结果 ＝ 结果 ＋ “/” ＋ 临时组


临时组 ＝ “”
上一值 ＝ -1
有效对计数 ＝ 0

计次循环尾 ()
' 处理最后一组
如果 (有效对计数 ≥ 2)
如果 (结果 ＝ “”)
结果 ＝ 临时组
结果 ＝ 结果 ＋ “/” ＋ 临时组


返回 (结果)

子程序名	返回值类型	公开	备 注
是否为有效Hex对	逻辑型
参数名	类 型	参考	可空	数组	备 注
hex对	文本型

变量名	类 型	静态	数组	备 注
i	整数型
字符	文本型

如果 (取文本长度 (hex对) ≠ 2)
返回 (假)



计次循环首 (2, i)
字符 ＝ 取文本中间 (hex对, i, 1)
如果 (字符 ≥ “0” 且 字符 ≤ “9”)
' 是数字，有效
如果 (字符 ≥ “A” 且 字符 ≤ “F”)
' 是大写字母A-F，有效
如果 (字符 ≥ “a” 且 字符 ≤ “f”)
' 是小写字母a-f，有效
返回 (假)  ' 不是有效的十六进制字符



计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
十六进制到整数	整数型
参数名	类 型	参考	可空	数组	备 注
hex文本	文本型

变量名	类 型	静态	数组	备 注
结果	整数型
i	整数型
当前字符	文本型
当前值	整数型

结果 ＝ 0
计次循环首 (取文本长度 (hex文本), i)
当前字符 ＝ 取文本中间 (hex文本, i, 1)
如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)
当前值 ＝ 取代码 (当前字符, ) － 取代码 (“0”, )
如果 (当前字符 ≥ “A” 且 当前字符 ≤ “F”)
当前值 ＝ 取代码 (当前字符, ) － 取代码 (“A”, ) ＋ 10
如果 (当前字符 ≥ “a” 且 当前字符 ≤ “f”)
当前值 ＝ 取代码 (当前字符, ) － 取代码 (“a”, ) ＋ 10
返回 (0)



结果 ＝ 结果 × 16 ＋ 当前值
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
状态机提取连续Hex对	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

变量名	类 型	静态	数组	备 注
状态	整数型			0=初始
结果	文本型
当前组	文本型
上一值	整数型
i	整数型
当前对	文本型
当前值	整数型

状态 ＝ 0
结果 ＝ “”
当前组 ＝ “”
上一值 ＝ -1
' 确保长度为偶数
如果 (取文本长度 (源文本) ％ 2 ≠ 0)
源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)



计次循环首 (取文本长度 (源文本) ÷ 2, i)
当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)
如果 (是否为有效Hex对 (当前对))
当前值 ＝ 十六进制到整数 (当前对)
判断 (状态 ＝ 0)  ' 初始状态
当前组 ＝ 当前对
上一值 ＝ 当前值
状态 ＝ 1
判断 (状态 ＝ 1)  ' 收集连续状态
如果 (当前值 ＝ 上一值 ＋ 1)
当前组 ＝ 当前组 ＋ 当前对
上一值 ＝ 当前值
如果 (取文本长度 (当前组) ≥ 4)  ' 至少2对
如果 (结果 ≠ “”)
结果 ＝ 结果 ＋ “/”


结果 ＝ 结果 ＋ 当前组


当前组 ＝ 当前对
上一值 ＝ 当前值




如果 (状态 ＝ 1 且 取文本长度 (当前组) ≥ 4)
如果 (结果 ≠ “”)
结果 ＝ 结果 ＋ “/”


结果 ＝ 结果 ＋ 当前组


当前组 ＝ “”
上一值 ＝ -1
状态 ＝ 0

计次循环尾 ()
' 处理最后一组
如果 (状态 ＝ 1 且 取文本长度 (当前组) ≥ 4)
如果 (结果 ≠ “”)
结果 ＝ 结果 ＋ “/”


结果 ＝ 结果 ＋ 当前组



返回 (结果)

子程序名	返回值类型	公开	备 注
位操作提取连续Hex对	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

变量名	类 型	静态	数组	备 注
字节集	字节集
结果	文本型
当前组	文本型
上一值	整数型
i	整数型
高位	整数型
低位	整数型
当前值	整数型

' 转换为字节集处理
字节集 ＝ 到字节集 (源文本)
结果 ＝ “”
当前组 ＝ “”
上一值 ＝ -1
计次循环首 (取字节集长度 (字节集) ÷ 2, i)
高位 ＝ 字节集 [ (i － 1) × 2 ＋ 1]
低位 ＝ 字节集 [ (i － 1) × 2 ＋ 2]
' 转换为十六进制值
当前值 ＝ 位操作_组合Hex值 (高位, 低位)
如果 (当前值 ≠ -1)  ' 有效Hex对
如果 (上一值 ＝ -1)
当前组 ＝ 取十六进制文本 (当前值)
上一值 ＝ 当前值
如果 (当前值 ＝ 上一值 ＋ 1)
当前组 ＝ 当前组 ＋ 取十六进制文本 (当前值)
上一值 ＝ 当前值
如果 (取文本长度 (当前组) ≥ 4)
如果 (结果 ≠ “”)
结果 ＝ 结果 ＋ “/”


结果 ＝ 结果 ＋ 当前组


当前组 ＝ 取十六进制文本 (当前值)
上一值 ＝ 当前值


如果 (取文本长度 (当前组) ≥ 4)
如果 (结果 ≠ “”)
结果 ＝ 结果 ＋ “/”


结果 ＝ 结果 ＋ 当前组


当前组 ＝ “”
上一值 ＝ -1

计次循环尾 ()
' 处理最后一组
如果 (取文本长度 (当前组) ≥ 4)
如果 (结果 ≠ “”)
结果 ＝ 结果 ＋ “/”


结果 ＝ 结果 ＋ 当前组



返回 (结果)

子程序名	返回值类型	公开	备 注
位操作_组合Hex值	整数型
参数名	类 型	参考	可空	数组	备 注
高位	整数型
低位	整数型

变量名	类 型	静态	数组	备 注
结果	整数型

结果 ＝ -1
' 检查高位字符
判断 (高位 ≥ 取代码 (“0”, ) 且 高位 ≤ 取代码 (“9”, ))
结果 ＝ (高位 － 取代码 (“0”, )) × 16
判断 (高位 ≥ 取代码 (“A”, ) 且 高位 ≤ 取代码 (“F”, ))
结果 ＝ (高位 － 取代码 (“A”, ) ＋ 10) × 16
判断 (高位 ≥ 取代码 (“a”, ) 且 高位 ≤ 取代码 (“f”, ))
结果 ＝ (高位 － 取代码 (“a”, ) ＋ 10) × 16
返回 (-1)

' 检查低位字符
判断 (低位 ≥ 取代码 (“0”, ) 且 低位 ≤ 取代码 (“9”, ))
结果 ＝ 结果 ＋ 低位 － 取代码 (“0”, )
判断 (低位 ≥ 取代码 (“A”, ) 且 低位 ≤ 取代码 (“F”, ))
结果 ＝ 结果 ＋ 低位 － 取代码 (“A”, ) ＋ 10
判断 (低位 ≥ 取代码 (“a”, ) 且 低位 ≤ 取代码 (“f”, ))
结果 ＝ 结果 ＋ 低位 － 取代码 (“a”, ) ＋ 10
返回 (-1)

返回 (结果)

子程序名	返回值类型	公开	备 注
取十六进制文本1	文本型
参数名	类 型	参考	可空	数组	备 注
值	整数型

变量名	类 型	静态	数组	备 注
高位	整数型
低位	整数型
高位文本	文本型
低位文本	文本型

高位 ＝ 值 ÷ 16
低位 ＝ 值 ％ 16
' 处理高位
如果 (高位 ＜ 10)
高位文本 ＝ 到文本 (高位)
判断 (高位 ＝ 10)
高位文本 ＝ “A”
判断 (高位 ＝ 11)
高位文本 ＝ “B”
判断 (高位 ＝ 12)
高位文本 ＝ “C”
判断 (高位 ＝ 13)
高位文本 ＝ “D”
判断 (高位 ＝ 14)
高位文本 ＝ “E”
判断 (高位 ＝ 15)
高位文本 ＝ “F”
高位文本 ＝ “0”  ' 错误情况默认返回0


' 处理低位
如果 (低位 ＜ 10)
低位文本 ＝ 到文本 (低位)
判断 (低位 ＝ 10)
低位文本 ＝ “A”
判断 (低位 ＝ 11)
低位文本 ＝ “B”
判断 (低位 ＝ 12)
低位文本 ＝ “C”
判断 (低位 ＝ 13)
低位文本 ＝ “D”
判断 (低位 ＝ 14)
低位文本

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 源文本, 文本型<br /> .局部变量 结果1, 文本型<br /> .局部变量 结果2, 文本型<br /> .局部变量 结果3, 文本型<br /> <br /> 源文本 ＝ “234330313233903435363738953930AF3132863334353637383951”<br /> 结果1 ＝ 提取连续Hex对 (源文本)<br /> 结果2 ＝ 状态机提取连续Hex对 (源文本)<br /> 结果3 ＝ 位操作提取连续Hex对 (源文本)<br /> 输出调试文本 (结果1)  ' 期望输出：30313233/3435363738/3132/33343536373839<br /> 输出调试文本 (结果2)  ' 期望输出：30313233/3435363738/3132/33343536373839<br /> 输出调试文本 (结果3)  ' 期望输出：30313233/3435363738/3132/33343536373839<br /> <br /> .子程序 提取连续Hex对, 文本型<br /> .参数 源文本, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 临时组, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 当前对, 文本型<br /> .局部变量 上一对, 文本型<br /> .局部变量 当前值, 整数型<br /> .局部变量 上一值, 整数型<br /> .局部变量 有效对计数, 整数型<br /> <br /> 结果 ＝ “”<br /> 临时组 ＝ “”<br /> 上一对 ＝ “”<br /> 上一值 ＝ -1<br /> 有效对计数 ＝ 0<br /> <br /> ' 确保源文本长度为偶数<br /> .如果 (取文本长度 (源文本) ％ 2 ≠ 0)<br />     源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .计次循环首 (取文本长度 (源文本) ÷ 2, i)<br />     当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)<br /> <br />     ' 检查是否为有效的十六进制对<br />     .如果 (是否为有效Hex对 (当前对))<br />         当前值 ＝ 十六进制到整数 (当前对)<br /> <br />         .如果 (上一值 ＝ -1)<br />             ' 第一对有效数字<br />             临时组 ＝ 当前对<br />             上一值 ＝ 当前值<br />             有效对计数 ＝ 1<br />         .否则<br />             .如果 (当前值 ＝ 上一值 ＋ 1)<br />                 ' 连续的数字对<br />                 临时组 ＝ 临时组 ＋ 当前对<br />                 上一值 ＝ 当前值<br />                 有效对计数 ＝ 有效对计数 ＋ 1<br />             .否则<br />                 ' 不连续，结束当前组<br />                 .如果 (有效对计数 ≥ 2)<br />                     .如果 (结果 ＝ “”)<br />                         结果 ＝ 临时组<br />                     .否则<br />                         结果 ＝ 结果 ＋ “/” ＋ 临时组<br />                     .如果结束<br /> <br />                 .否则<br />                 .如果结束<br /> <br />                 临时组 ＝ 当前对<br />                 上一值 ＝ 当前值<br />                 有效对计数 ＝ 1<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .否则<br />         ' 无效的十六进制对，结束当前组<br />         .如果 (有效对计数 ≥ 2)<br />             .如果 (结果 ＝ “”)<br />                 结果 ＝ 临时组<br />             .否则<br />                 结果 ＝ 结果 ＋ “/” ＋ 临时组<br />             .如果结束<br /> <br />         .否则<br />         .如果结束<br /> <br />         临时组 ＝ “”<br />         上一值 ＝ -1<br />         有效对计数 ＝ 0<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 处理最后一组<br /> .如果 (有效对计数 ≥ 2)<br />     .如果 (结果 ＝ “”)<br />         结果 ＝ 临时组<br />     .否则<br />         结果 ＝ 结果 ＋ “/” ＋ 临时组<br />     .如果结束<br /> <br /> .否则<br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 是否为有效Hex对, 逻辑型<br /> .参数 hex对, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> <br /> .如果 (取文本长度 (hex对) ≠ 2)<br />     返回 (假)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .计次循环首 (2, i)<br />     字符 ＝ 取文本中间 (hex对, i, 1)<br /> <br />     .如果 (字符 ≥ “0” 且 字符 ≤ “9”)<br />         ' 是数字，有效<br />     .否则<br />         .如果 (字符 ≥ “A” 且 字符 ≤ “F”)<br />             ' 是大写字母A-F，有效<br />         .否则<br />             .如果 (字符 ≥ “a” 且 字符 ≤ “f”)<br />                 ' 是小写字母a-f，有效<br />             .否则<br />                 返回 (假)  ' 不是有效的十六进制字符<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (真)<br /> <br /> .子程序 十六进制到整数, 整数型<br /> .参数 hex文本, 文本型<br /> .局部变量 结果, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 当前字符, 文本型<br /> .局部变量 当前值, 整数型<br /> <br /> 结果 ＝ 0<br /> <br /> .计次循环首 (取文本长度 (hex文本), i)<br />     当前字符 ＝ 取文本中间 (hex文本, i, 1)<br /> <br />     .如果 (当前字符 ≥ “0” 且 当前字符 ≤ “9”)<br />         当前值 ＝ 取代码 (当前字符, ) － 取代码 (“0”, )<br />     .否则<br />         .如果 (当前字符 ≥ “A” 且 当前字符 ≤ “F”)<br />             当前值 ＝ 取代码 (当前字符, ) － 取代码 (“A”, ) ＋ 10<br />         .否则<br />             .如果 (当前字符 ≥ “a” 且 当前字符 ≤ “f”)<br />                 当前值 ＝ 取代码 (当前字符, ) － 取代码 (“a”, ) ＋ 10<br />             .否则<br />                 返回 (0)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br />     结果 ＝ 结果 × 16 ＋ 当前值<br /> .计次循环尾 ()<br /> <br /> 返回 (结果)<br /> <br /> .子程序 状态机提取连续Hex对, 文本型<br /> .参数 源文本, 文本型<br /> .局部变量 状态, 整数型, , , 0=初始<br /> .局部变量 结果, 文本型<br /> .局部变量 当前组, 文本型<br /> .局部变量 上一值, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 当前对, 文本型<br /> .局部变量 当前值, 整数型<br /> <br /> 状态 ＝ 0<br /> 结果 ＝ “”<br /> 当前组 ＝ “”<br /> 上一值 ＝ -1<br /> <br /> ' 确保长度为偶数<br /> .如果 (取文本长度 (源文本) ％ 2 ≠ 0)<br />     源文本 ＝ 取文本左边 (源文本, 取文本长度 (源文本) － 1)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .计次循环首 (取文本长度 (源文本) ÷ 2, i)<br />     当前对 ＝ 取文本中间 (源文本, (i － 1) × 2 ＋ 1, 2)<br /> <br />     .如果 (是否为有效Hex对 (当前对))<br />         当前值 ＝ 十六进制到整数 (当前对)<br /> <br />         .判断开始 (状态 ＝ 0)  ' 初始状态<br />             当前组 ＝ 当前对<br />             上一值 ＝ 当前值<br />             状态 ＝ 1<br />         .判断 (状态 ＝ 1)  ' 收集连续状态<br />             .如果 (当前值 ＝ 上一值 ＋ 1)<br />                 当前组 ＝ 当前组 ＋ 当前对<br />                 上一值 ＝ 当前值<br />             .否则<br />                 .如果 (取文本长度 (当前组) ≥ 4)  ' 至少2对<br />                     .如果 (结果 ≠ “”)<br />                         结果 ＝ 结果 ＋ “/”<br />                     .否则<br /> <br />                     .如果结束<br />                     结果 ＝ 结果 ＋ 当前组<br />                 .否则<br /> <br />                 .如果结束<br />                 当前组 ＝ 当前对<br />                 上一值 ＝ 当前值<br />             .如果结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .否则<br />         .如果 (状态 ＝ 1 且 取文本长度 (当前组) ≥ 4)<br />             .如果 (结果 ≠ “”)<br />                 结果 ＝ 结果 ＋ “/”<br />             .否则<br /> <br />             .如果结束<br />             结果 ＝ 结果 ＋ 当前组<br />         .否则<br /> <br />         .如果结束<br />         当前组 ＝ “”<br />         上一值 ＝ -1<br />         状态 ＝ 0<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 处理最后一组<br /> .如果 (状态 ＝ 1 且 取文本长度 (当前组) ≥ 4)<br />     .如果 (结果 ≠ “”)<br />         结果 ＝ 结果 ＋ “/”<br />     .否则<br /> <br />     .如果结束<br />     结果 ＝ 结果 ＋ 当前组<br /> .否则<br /> <br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 位操作提取连续Hex对, 文本型<br /> .参数 源文本, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 结果, 文本型<br /> .局部变量 当前组, 文本型<br /> .局部变量 上一值, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 高位, 整数型<br /> .局部变量 低位, 整数型<br /> .局部变量 当前值, 整数型<br /> <br /> ' 转换为字节集处理<br /> 字节集 ＝ 到字节集 (源文本)<br /> 结果 ＝ “”<br /> 当前组 ＝ “”<br /> 上一值 ＝ -1<br /> <br /> .计次循环首 (取字节集长度 (字节集) ÷ 2, i)<br /> <br />     高位 ＝ 字节集 [(i － 1) × 2 ＋ 1]<br />     低位 ＝ 字节集 [(i － 1) × 2 ＋ 2]<br /> <br />     ' 转换为十六进制值<br />     当前值 ＝ 位操作_组合Hex值 (高位, 低位)<br /> <br />     .如果 (当前值 ≠ -1)  ' 有效Hex对<br />         .如果 (上一值 ＝ -1)<br />             当前组 ＝ 取十六进制文本 (当前值)<br />             上一值 ＝ 当前值<br />         .否则<br />             .如果 (当前值 ＝ 上一值 ＋ 1)<br />                 当前组 ＝ 当前组 ＋ 取十六进制文本 (当前值)<br />                 上一值 ＝ 当前值<br />             .否则<br />                 .如果 (取文本长度 (当前组) ≥ 4)<br />                     .如果 (结果 ≠ “”)<br />                         结果 ＝ 结果 ＋ “/”<br />                     .否则<br /> <br />                     .如果结束<br />                     结果 ＝ 结果 ＋ 当前组<br />                 .否则<br /> <br />                 .如果结束<br />                 当前组 ＝ 取十六进制文本 (当前值)<br />                 上一值 ＝ 当前值<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .否则<br />         .如果 (取文本长度 (当前组) ≥ 4)<br />             .如果 (结果 ≠ “”)<br />                 结果 ＝ 结果 ＋ “/”<br />             .否则<br /> <br />             .如果结束<br />             结果 ＝ 结果 ＋ 当前组<br />         .否则<br /> <br />         .如果结束<br />         当前组 ＝ “”<br />         上一值 ＝ -1<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 处理最后一组<br /> .如果 (取文本长度 (当前组) ≥ 4)<br />     .如果 (结果 ≠ “”)<br />         结果 ＝ 结果 ＋ “/”<br />     .否则<br /> <br />     .如果结束<br />     结果 ＝ 结果 ＋ 当前组<br /> .否则<br /> <br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 位操作_组合Hex值, 整数型<br /> .参数 高位, 整数型<br /> .参数 低位, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 结果 ＝ -1<br /> <br /> ' 检查高位字符<br /> .判断开始 (高位 ≥ 取代码 (“0”, ) 且 高位 ≤ 取代码 (“9”, ))<br />     结果 ＝ (高位 － 取代码 (“0”, )) × 16<br /> .判断 (高位 ≥ 取代码 (“A”, ) 且 高位 ≤ 取代码 (“F”, ))<br />     结果 ＝ (高位 － 取代码 (“A”, ) ＋ 10) × 16<br /> .判断 (高位 ≥ 取代码 (“a”, ) 且 高位 ≤ 取代码 (“f”, ))<br />     结果 ＝ (高位 － 取代码 (“a”, ) ＋ 10) × 16<br /> .默认<br />     返回 (-1)<br /> .判断结束<br /> <br /> ' 检查低位字符<br /> .判断开始 (低位 ≥ 取代码 (“0”, ) 且 低位 ≤ 取代码 (“9”, ))<br />     结果 ＝ 结果 ＋ 低位 － 取代码 (“0”, )<br /> .判断 (低位 ≥ 取代码 (“A”, ) 且 低位 ≤ 取代码 (“F”, ))<br />     结果 ＝ 结果 ＋ 低位 － 取代码 (“A”, ) ＋ 10<br /> .判断 (低位 ≥ 取代码 (“a”, ) 且 低位 ≤ 取代码 (“f”, ))<br />     结果 ＝ 结果 ＋ 低位 － 取代码 (“a”, ) ＋ 10<br /> .默认<br />     返回 (-1)<br /> .判断结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 取十六进制文本1, 文本型<br /> .参数 值, 整数型<br /> .局部变量 高位, 整数型<br /> .局部变量 低位, 整数型<br /> .局部变量 高位文本, 文本型<br /> .局部变量 低位文本, 文本型<br /> <br /> 高位 ＝ 值 ÷ 16<br /> 低位 ＝ 值 ％ 16<br /> <br /> ' 处理高位<br /> .如果 (高位 ＜ 10)<br />     高位文本 ＝ 到文本 (高位)<br /> .否则<br />     .判断开始 (高位 ＝ 10)<br />         高位文本 ＝ “A”<br />     .判断 (高位 ＝ 11)<br />         高位文本 ＝ “B”<br />     .判断 (高位 ＝ 12)<br />         高位文本 ＝ “C”<br />     .判断 (高位 ＝ 13)<br />         高位文本 ＝ “D”<br />     .判断 (高位 ＝ 14)<br />         高位文本 ＝ “E”<br />     .判断 (高位 ＝ 15)<br />         高位文本 ＝ “F”<br />     .默认<br />         高位文本 ＝ “0”  ' 错误情况默认返回0<br />     .判断结束<br /> <br /> .如果结束<br /> <br /> ' 处理低位<br /> .如果 (低位 ＜ 10)<br />     低位文本 ＝ 到文本 (低位)<br /> .否则<br />     .判断开始 (低位 ＝ 10)<br />         低位文本 ＝ “A”<br />     .判断 (低位 ＝ 11)<br />         低位文本 ＝ “B”<br />     .判断 (低位 ＝ 12)<br />         低位文本 ＝ “C”<br />     .判断 (低位 ＝ 13)<br />         低位文本 ＝ “D”<br />     .判断 (低位 ＝ 14)<br />         低位文本