判断是否为十六进制文本

改名卡

[e].版本 2  .子程序 判断是否为十六进制文本, 逻辑型, 公开, 成功返回真 失败返回假 .参数 文本, 文本型 .局部变量 len, 整数型 .局部变量 变量, 整数型 .局部变量 文本变量, 文本型 .局部变量 变量1, 整数型 .局部变量 返回, 逻辑型 .局部变量 文本变量01, 文本型 .局部变量 跳出循环变量, 逻辑型  len ＝ 取文本内容长度 (文本) .如果真 (len ＞ 0)     .计次循环首 (len, 变量)         ' 输出调试文本 (“变量:” ＋ 到文本 (变量))          文本变量01 ＝ 取文本中间 (文本, 变量, 1)          .计次循环首 (16, 变量1)             ' 输出调试文本 (“变量01:” ＋ 到文本 (变量1))             文本变量 ＝ 零到九A到F (变量1)             文本变量01 ＝ 到大写Dll (文本变量01)              .如果 (文本变量01 ＝ 文本变量)                   返回 ＝ 真                 跳出循环变量 ＝ 假                 跳出循环 ()              .否则                   返回 ＝ 假                 跳出循环变量 ＝ 真              .如果结束           .计次循环尾 ()           .如果真 (跳出循环变量)             跳出循环 ()         .如果真结束      .计次循环尾 ()      返回 (返回)  .如果真结束 返回 (假)  [/e]

改名卡

.版本 2

.子程序 判断是否为十六进制文本, 逻辑型, 公开, 成功返回真 失败返回假
.参数 文本, 文本型
.局部变量 len, 整数型
.局部变量 变量, 整数型
.局部变量 文本变量, 文本型
.局部变量 变量1, 整数型
.局部变量 返回, 逻辑型
.局部变量 文本变量01, 文本型
.局部变量 跳出循环变量, 逻辑型

len ＝ 取文本内容长度 (文本)
.如果真 (len ＞ 0)
    .计次循环首 (len, 变量)
        ' 输出调试文本 (“变量:” ＋ 到文本 (变量))

        文本变量01 ＝ 取文本中间 (文本, 变量, 1)

        .计次循环首 (16, 变量1)
            ' 输出调试文本 (“变量01:” ＋ 到文本 (变量1))
            文本变量 ＝ 零到九A到F (变量1)
            文本变量01 ＝ 到大写Dll (文本变量01)

            .如果 (文本变量01 ＝ 文本变量)


                返回 ＝ 真
                跳出循环变量 ＝ 假
                跳出循环 ()

            .否则


                返回 ＝ 假
                跳出循环变量 ＝ 真

            .如果结束


        .计次循环尾 ()


        .如果真 (跳出循环变量)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()

    返回 (返回)

.如果真结束
返回 (假)

乐融天天

只要是知识全收