精易论坛

标题: 错误(10044): 不能将“文本型数组”数据转换到“整数型”... [打印本页]

作者: llalla 时间: 2025-5-5 13:09
标题: 错误(10044): 不能将“文本型数组”数据转换到“整数型”...
.版本 2

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

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

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

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

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

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

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

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

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

.如果结束

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

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

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

作者: llalla 时间: 2025-5-5 13:23

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

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

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

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

作者: 路人丁20 时间: 2025-5-5 13:24

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

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

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

作者: aipca 时间: 2025-5-5 13:25

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

作者: 路人丁20 时间: 2025-5-5 13:26

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

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

作者: 轨迹轨迹 时间: 2025-5-6 09:29
.版本 2

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

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

编辑框1.内容＝ “第一行文本” ＋ #换行符＋ “第二行文本” ＋ #换行符＋ “第三行文本”

变量_点击次数＝ 0

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

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

重定义数组 (局部变量_非空行内容数组, 假, 0)

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

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

.如果真结束
局部变量_索引＝局部变量_索引＋ 1

.判断循环尾 ()

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

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

变量_点击次数＝ 0
.否则

.如果结束

.如果 (局部变量_非空行数量＞ 0)

局部变量_当前复制内容＝局部变量_非空行内容数组 [变量_点击次数＋ 1]

置剪辑板文本 (局部变量_当前复制内容)

标签1.标题＝ “复制成功”

变量_点击次数＝变量_点击次数＋ 1

.否则
标签1.标题＝ “没有可复制的非空行”

.如果结束

欢迎光临精易论坛 (https://125.confly.eu.org/)