没搞明白问题出在哪里

大连移动 · 发表于 2022-9-3 17:47:31

.版本 2
.支持库 iext

.子程序 __启动窗口_创建完毕
.局部变量分割, 文本型, , "0"
.局部变量子分割, 文本型, , "0"
.局部变量内容提取, 文本型

超级列表框1.全部删除 ()
内容提取＝到文本 (读入文件 (取运行目录 () ＋ “/发帖内容.txt”))
.计次循环首 (文本_取出现次数 (内容提取, #换行符), )
分割＝分割文本 (内容提取, #换行符, )
子分割＝分割文本 (分割 [1], “----”, )
超级列表框1.插入表项 (0, 到文本 (文本_取出现次数 (内容提取, #换行符)), , , , )
超级列表框1.置标题 (0, 1, 子分割 [1])
超级列表框1.置标题 (0, 2, 子分割 [2])
超级列表框1.置标题 (0, 3, 子分割 [3])
超级列表框1.置标题 (0, 4, 子分割 [4])
内容提取＝子文本替换 (内容提取, 分割 [1] ＋ #换行符, “”, , , 真)
.计次循环尾 ()

zainex · 发表于 2022-9-3 17:47:32

对于你自己的代码，问题出在计次循环中，计次循环的第一个参数只会在循环开始前运行一次（用来获取循环次数），而在循环过程中不会再次运行。
所以改进的方法可以使用判断循环来代替计次循环，因为判断循环的参数在循环过程中会不断执行：

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

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

变量名	类型	静态	数组	备注
文本	文本型
原文本	文本型
数组	文本型		0
信息	文本型		0

超级列表框1.全部删除 ()
文本＝到文本 (读入文件 (取运行目录 () ＋ “\文本.txt”))
原文本＝文本

判断循环首 (文本_取出现次数 (文本, #换行符 ) ≠ 0)

数组＝分割文本 (文本, #换行符, )

信息＝分割文本 (数组 [1], “----”, )

超级列表框1.插入表项 (0, 到文本 (文本_取出现次数 (原文本, 数组 [1])), , , , )

超级列表框1.置标题 (0, 1, 信息 [1])

超级列表框1.置标题 (0, 2, 信息 [2])

超级列表框1.置标题 (0, 3, 信息 [3])

超级列表框1.置标题 (0, 4, 信息 [4])

文本＝子文本替换 (文本, 数组 [1] ＋ #换行符, “”, , , 真)

判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

大连移动 · 发表于 2022-9-3 19:57:59

@nikezhi

zainex · 发表于 2022-9-3 20:00:29

你可以先去重复，然后再统计重复的次数，以及做其它事情，这些都可以通过节点来实现：

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

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

变量名	类型	静态	数组	备注
文本	文本型
节点	节点
数组	文本型		0
信息	文本型		0
数	整数型
临时	整数型
结果	文本型

超级列表框1.全部删除 ()
文本＝到文本 (读入文件 (取运行目录 () ＋ “\文本.txt”))
数组＝分割文本 (文本, #换行符, )

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

如果真 (节点.加入属性 (数组 [数], 1) ＝假)

节点.取数值 (数组 [数], 临时)

节点.修改属性 (数组 [数], 临时＋ 1)

计次循环尾 ()
节点.取全部属性名 (数组)

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

信息＝分割文本 (数组 [数], “----”, )

节点.取数值 (信息 [1], 临时)

超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (数－ 1, 0, 到文本 (临时))

超级列表框1.置标题 (数－ 1, 1, 信息 [1])

超级列表框1.置标题 (数－ 1, 2, 信息 [2])

超级列表框1.置标题 (数－ 1, 3, 信息 [3])

超级列表框1.置标题 (数－ 1, 4, 信息 [4])

结果＝结果＋数组 [数] ＋ #换行符

计次循环尾 ()
调试输出 (结果)

i支持库列表	支持库注释
EDataStructure	数据结构支持库
iext	扩展界面支持库一
spec	特殊功能支持库

补充内容 (2022-9-3 20:06):
节点.取数值 (信息 [1], 临时) 改为节点.取数值 (数组 [数], 临时)

		自动登录	找回密码
密码			注册

[已解决] 没搞明白问题出在哪里

最佳答案

评分