多线程取文本

学习委员

  

子程序名	返回值类型	公开	备 注
获取关键词	文本型

变量名	类 型	静态	数组	备 注
文本	快速文本对象
文本数组	文本型		0
n	整数型
关键词	文本型

文本.从文件读 (取运行目录 () ＋ “/文本/关键词.txt”)
文本数组 ＝ 文本.分割文本 ( #换行符, )
如果真 (取数组成员数 (文本数组) ＜ 1)
返回 (“”)

n ＝ 到整数 (_启动窗口.关键词位置编辑框.内容)
如果真 (n ＞ 取数组成员数 (文本数组))
n ＝ 1
关键词 ＝ 编码_Utf8到Ansi_对象 (到字节集 (文本数组 [n]))
原子_递增 (n)
临界.进入 ()
_启动窗口.关键词位置编辑框.内容 ＝ 到文本 (n)
临界.退出 ()
返回 (关键词)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 获取关键词, 文本型<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 关键词, 文本型<br /> <br /> 文本.从文件读 (取运行目录 () ＋ “/文本/关键词.txt”)<br /> 文本数组 ＝ 文本.分割文本 (#换行符, )<br /> .如果真 (取数组成员数 (文本数组) ＜ 1)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> n ＝ 到整数 (_启动窗口.关键词位置编辑框.内容)<br /> .如果真 (n ＞ 取数组成员数 (文本数组))<br />     n ＝ 1<br /> .如果真结束<br /> 关键词 ＝ 编码_Utf8到Ansi_对象 (到字节集 (文本数组 [n]))<br /> 原子_递增 (n)<br /> 临界.进入 ()<br /> _启动窗口.关键词位置编辑框.内容 ＝ 到文本 (n)<br /> 临界.退出 ()<br /> 返回 (关键词)

由关键词位置编辑框控制文本位置，但这样有一个问题：

多线程中，关键词 ＝ 编码_Utf8到Ansi_对象 (到字节集 (文本数组 [n]))会报错：数组成员引用下标必须大于等于1
但是前面写了n ＝ 到整数 (_启动窗口.关键词位置编辑框.内容)，而这个编辑框里是不会有0的。

前辈们帮我看一下，另外有没有更稳定的的按顺序取用文本的方式。

温柔小仙女

多个线程同时读取 n 并修改 关键词位置编辑框.内容，可能导致 n 的值被覆盖或错误递增。
虽然你使用了 临界.进入() 和 临界.退出() 保护了 n 的写入，但 ​读取 n 时没有加锁，可能导致线程读到脏数据。

Mr、Darren

鱼刺 队列

学习委员

温柔小仙女 发表于 2025-7-25 21:43
多个线程同时读取 n 并修改 关键词位置编辑框.内容，可能导致 n 的值被覆盖或错误递增。
虽然你使用了 临界 ...

读取控件要加锁的吗？我记得之前问过一次说写入需要加锁，读取不用，所以我没加锁。

学习委员

Mr、Darren 发表于 2025-7-25 21:32
鱼刺 队列

我不会用队列，哥。论坛上搜鱼刺队列，只有几个帖子，还全是提问的，没有参考

温柔小仙女

学习委员 发表于 2025-7-25 21:54
读取控件要加锁的吗？我记得之前问过一次说写入需要加锁，读取不用，所以我没加锁。 ...

给个最佳呀.哥哥