mrzcpo 大佬来回答

lcsq001

只 计算编辑4 内容 的玩家 的  咋搜索呀

neige轩

  

循环判断首 ()
计次循环首 (50, )
L_单行 ＝ 读入一行 (L_文件号)
如果真 (L_单行 ≠ “”)
跳出循环 ()

计次循环尾 ()
L_位置 ＝ 寻找文本 (L_单行, 编辑框4.内容 ＋ “ 获得:”, , 假)  ' 编辑框4的位置
如果真 (L_单行 ≠ “” 且 L_位置 ≠ -1)
L_总行数 ＝ L_总行数 ＋ 1
L_右边 ＝ 到整数 (取文本右边 (L_单行, 取文本长度 (L_单行) － L_位置 － 5))  ' 编辑框4的位置
L_总结果 ＝ L_总结果 ＋ L_右边

循环判断尾 (L_单行 ≠ “”)

.版本 2<br /> <br /> .循环判断首 ()<br />     .计次循环首 (50, )<br />         L_单行 ＝ 读入一行 (L_文件号)<br />         .如果真 (L_单行 ≠ “”)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     L_位置 ＝ 寻找文本 (L_单行, 编辑框4.内容 ＋ “ 获得:”, , 假)  ' 编辑框4的位置<br />     .如果真 (L_单行 ≠ “” 且 L_位置 ≠ -1)<br />         L_总行数 ＝ L_总行数 ＋ 1<br /> <br />         L_右边 ＝ 到整数 (取文本右边 (L_单行, 取文本长度 (L_单行) － L_位置 － 5))  ' 编辑框4的位置<br />         L_总结果 ＝ L_总结果 ＋ L_右边<br /> <br />     .如果真结束<br /> <br /> .循环判断尾 (L_单行 ≠ “”)

lcsq001

.版本 2


.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束

L_文件号 ＝ 打开文件 (通用对话框1.文件名, 1, 1)
移到文件首 (L_文件号)
.循环判断首 ()
    .计次循环首 (50, )
        L_单行 ＝ 读入一行 (L_文件号)
        .如果真 (L_单行 ≠ “”)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (L_单行 ≠ “”)
        L_总行数 ＝ L_总行数 ＋ 1
        L_右边 ＝ 到整数 (取文本右边 (L_单行, 取文本长度 (L_单行) － 寻找文本 (L_单行, “ 获得:”, , 假) － 5))
        L_总结果 ＝ L_总结果 ＋ L_右边

    .如果真结束

.循环判断尾 (L_单行 ≠ “”)
' 调试输出 (“总行数：” ＋ 到文本 (L_总行数))
' 调试输出 (“计算结果：” ＋ 到文本 (L_总结果))

编辑框1.内容 ＝ 到文本 (L_总行数)
编辑框2.内容 ＝ 到文本 (L_总行数 × 50000)
编辑框3.内容 ＝ 到文本 (L_总结果)
编辑框5.内容 ＝ 到文本 (到整数 (编辑框3.内容) － 到整数 (编辑框2.内容))