我想做一个自动搜索，提炼出选项

ccofficial · 发表于 2025-1-2 21:41:23

我想做一个自动搜索，提炼出选项
这是软件界面。

这是题库的答案

对比两张图可以发现，图一选项的答案与题库中的答案不一致，怎么样使调试出来的结果是“A”“D”？
以下是搜索的代码（编辑框1是题干，编辑框2是选项，编辑框3是题库）

变量名	类型	静态	数组	备注
fg	文本型		0
i	整数型
s	逻辑型
z	逻辑型
a	文本型		0
j	整数型
答案a	文本型		0
n	整数型
b	整数型

fg ＝分割文本 (编辑框3.内容, #换行符, )

计次循环首 (取数组成员数 (fg), i)

如果真 (寻找文本 (fg [i], 编辑框1.内容, , 真) ＞ 0)

s ＝真

如果真 (s 且 fg [i] ＝ “正确答案”)

' 对正确答案的下一行文本按“、”分割，存到答案a数组中

答案a ＝分割文本 (fg [i ＋ 1], “、”, )

计次循环首 (取数组成员数 (答案a), n)

b ＝ 1

判断循环首 (b ≠ 0)

判断 (寻找文本 (fg [i － b], 删全部空 (答案a [n]), , 假) ＞ 0)

' 提取答案内容，去除前面的选项标识和多余空格、标点等

答案＝删全部空 (取文本中间 (fg [i － b], 寻找文本 (fg [i － b], “.”, , 假) ＋ 1, 取文本长度 (fg [i － b]) － 1))

调试输出 (答案)

b ＝ 0

b ＝ b ＋ 1

判断循环尾 ()

计次循环尾 ()

计次循环首 (取数组成员数 (a), j)

' 此处原代码中调试输出 (fg [i + 1]) 可按需保留或去除，暂时注释掉以免影响结果查看

如果真 (寻找文本 (a [j], fg [i ＋ 1], , 真) ＞ 0)

答案＝取文本右边 (a [j], 取文本长度 (a [j]) － 2)

返回 ()

计次循环尾 ()

如果真 (s)

加入成员 (a, fg [i])

计次循环尾 ()

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

.版本 2<br />
.支持库 spec<br />
<br />
.局部变量 fg, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 s, 逻辑型<br />
.局部变量 z, 逻辑型<br />
.局部变量 a, 文本型, , "0"<br />
.局部变量 j, 整数型<br />
.局部变量 答案a, 文本型, , "0"<br />
.局部变量 n, 整数型<br />
.局部变量 b, 整数型<br />
<br />
fg ＝ 分割文本 (编辑框3.内容, #换行符, )<br />
.计次循环首 (取数组成员数 (fg), i)<br />
    .如果真 (寻找文本 (fg <i>, 编辑框1.内容, , 真) ＞ 0)<br />
        s ＝ 真<br />
    .如果真结束<br />
<br />
    .如果真 (s 且 fg <i> ＝ “正确答案”)<br />
        ' 对正确答案的下一行文本按“、”分割，存到答案a数组中<br />
        答案a ＝ 分割文本 (fg [i ＋ 1], “、”, )<br />
        .计次循环首 (取数组成员数 (答案a), n)<br />
            b ＝ 1<br />
            .判断循环首 (b ≠ 0)<br />
                .判断开始 (寻找文本 (fg [i － b], 删全部空 (答案a [n]), , 假) ＞ 0)<br />
                    ' 提取答案内容，去除前面的选项标识和多余空格、标点等<br />
                    答案 ＝ 删全部空 (取文本中间 (fg [i － b], 寻找文本 (fg [i － b], “.”, , 假) ＋ 1, 取文本长度 (fg [i － b]) － 1))<br />
                    调试输出 (答案)<br />
                    b ＝ 0<br />
                .默认<br />
                    b ＝ b ＋ 1<br />
                .判断结束<br />
<br />
<br />
            .判断循环尾 ()<br />
        .计次循环尾 ()<br />
        .计次循环首 (取数组成员数 (a), j)<br />
            ' 此处原代码中调试输出 (fg [i + 1]) 可按需保留或去除，暂时注释掉以免影响结果查看<br />
            .如果真 (寻找文本 (a [j], fg [i ＋ 1], , 真) ＞ 0)<br />
                答案 ＝ 取文本右边 (a [j], 取文本长度 (a [j]) － 2)<br />
                返回 ()<br />
            .如果真结束<br />
<br />
        .计次循环尾 ()<br />
<br />
<br />
<br />
    .如果真结束<br />
<br />
    .如果真 (s)<br />
        加入成员 (a, fg <i>)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()