解决易难杂症源码记录贴

chenboss

监视指定目录文件变化.e (22.37 KB, 下载次数: 9, 售价: 2 枚 精币)

2025-1-3 02:54 上传

点击文件名下载附件

chenboss

易语言原生TCP客户Duan服务器
多线程高效tcp.e (5.61 KB, 下载次数: 16, 售价: 2 枚 精币)

2025-1-3 02:15 上传

点击文件名下载附件

chenboss

精易浏览器太老了，一直没更新，很多网页都打不开，换edge
edgeview-dev-1.1120.02.7z (1021.77 KB, 下载次数: 54, 售价: 2 枚 精币)

2025-1-3 00:42 上传

点击文件名下载附件

豆豆2020

感谢分享，学习了！！！

豆豆2020

学习下我需要的源码，感谢老板的分享

豆豆2020

向老板学习！

ccofficial

https://bbs.125.la/forum.php?mod=viewthread&tid=14845059
我想做一个自动搜索，提炼出选项
这是软件界面。

这是题库（编辑框3）

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

.版本 2
.支持库 spec

.局部变量 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>)
    .如果真结束

.计次循环尾 ()

ccofficial

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

这是题库（编辑框3）

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

.版本 2
.支持库 spec

.局部变量 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>)
    .如果真结束

.计次循环尾 ()

前行易语言

chenboss 发表于 2025-1-2 11:45

谢谢楼主..给楼主点赞..

胖子葛格

感谢大神分享~！