错误(10044): 不能将“文本型 数组”数据转换到“整数型”...

llalla

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 局部变量_行内容数组, 文本型, , "0"
.程序集变量 局部变量_非空行内容数组, 文本型, , "0"
.程序集变量 局部变量_当前复制内容, 文本型
.程序集变量 局部变量_索引, 整数型
.程序集变量 局部变量_非空行数量, 整数型
.程序集变量 局部变量_当前行内容, 文本型
.程序集变量 变量_点击次数, 整数型

.子程序 __启动窗口_创建完毕

编辑框1.内容 ＝ “第一行文本” ＋ #换行符 ＋ “第二行文本” ＋ #换行符 ＋ “第三行文本”
变量_点击次数 ＝ 0

.子程序 _按钮1_被单击

' 初始化数组为文本型空数组
重定义数组 (局部变量_行内容数组, 假, 0)
重定义数组 (局部变量_非空行内容数组, 假, 0)

' 正确使用分割文本函数
分割文本 (编辑框1.内容, #换行符, 局部变量_行内容数组)

局部变量_索引 ＝ 1
.判断循环首 (局部变量_索引 ≤ 取数组成员数 (局部变量_行内容数组))
    局部变量_当前行内容 ＝ 局部变量_行内容数组 [局部变量_索引]
    局部变量_当前行内容 ＝ 删首尾空 (局部变量_当前行内容)
    .如果真 (局部变量_当前行内容 ≠ “”)
        加入成员 (局部变量_非空行内容数组, 局部变量_当前行内容)
    .如果真结束
    局部变量_索引 ＝ 局部变量_索引 ＋ 1
.判断循环尾 ()

局部变量_非空行数量 ＝ 取数组成员数 (局部变量_非空行内容数组)

.如果 (变量_点击次数 ≥ 局部变量_非空行数量)
    变量_点击次数 ＝ 0
.否则

.如果结束

.如果 (局部变量_非空行数量 ＞ 0)
    局部变量_当前复制内容 ＝ 局部变量_非空行内容数组 [变量_点击次数 ＋ 1]
    置剪辑板文本 (局部变量_当前复制内容)
    标签1.标题 ＝ “复制成功”
    变量_点击次数 ＝ 变量_点击次数 ＋ 1
.否则
    标签1.标题 ＝ “没有可复制的非空行”
.如果结束

路人丁20

分割文本 (编辑框1.内容, #换行符, 局部变量_行内容数组)
把上面改这个

新内容分割 ＝ 分割文本 (编辑框1.内容, #换行符, )
后面的你重新计算就好

llalla

路人丁20 发表于 2025-5-5 13:20
分割文本 (编辑框1.内容, #换行符, 局部变量_行内容数组)
把上面改这个

分割结果 ＝ 分割文本 (编辑框1.内容, #换行符, 局部变量_行内容数组)

.程序集变量 分割结果, 文本型

还是提示错误(10044): 不能将“文本型 数组”数据转换到“整数型”数据。

路人丁20

llalla 发表于 2025-5-5 13:23
分割结果 ＝ 分割文本 (编辑框1.内容, #换行符, 局部变量_行内容数组)

.程序集变量 分割结果, 文本型

换行符后面那个 ,  局部变量_行内容数组 删除掉

aipca

  

局部变量_行内容数组 ＝ 分割文本 (编辑框1.内容, #换行符, )

局部变量_行内容数组 ＝ 分割文本 (编辑框1.内容, #换行符, )

路人丁20

路人丁20 发表于 2025-5-5 13:24
换行符后面那个 ,  局部变量_行内容数组 删除掉

你如果需要那个 要这样写
分割结果 ＝ 分割文本 (编辑框1.内容, #换行符,  取数组成员数 (局部变量_行内容数组))