• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 1130|回复: 3

[问题] 【求高手】帮我纠正，读取txt，循环不重复输入 [复制链接]

银岚传说
头像

  • 小学一年级
  • 9057445
  • 26
  • 0
  • 52 朵
  • 145 个
  • 80 个
  • 0
  • 2023-06-08
1#
t T
发表于 2024-09-11 20:24 | |只看楼主
求高手帮我纠正，逐行读取txt，然后循环不重复输入的脚本。
它有什么不规范的地方吗？（比如，Randomize，应该写在 For UBound(Text) 之前？还是之后？似乎没有区别？）
  1. Text = split(Plugin.File.ReadFileEx("D:\1.txt"), "|")
  2. For UBound(Text)
  3. Randomize
  4. Rem sj
  5. x1 = int((UBound(Text)*rnd))
  6. If instr(x2, x1) > 0 Then
  7. Goto sj
  8. Else
  9. x2 = x2 & x1
  10. SayString Text(x1)
  11. KeyPress "Enter", 1
  12. End If
  13. Next
复制代码
点赞
回顶部
xzw1
头像

XZW-AJ

  • 初中一年级
  • 8114808
  • 166
  • 0
  • 185 朵
  • 11 个
  • 7 个
  • 0
  • 2021-01-16
2#
t T
发表于 2024-09-12 14:13 | |只看该用户

感觉你的代码和你的描述完全不搭。

不可捉摸
回顶部
魅舒
头像

魅舒

  • 初中三年级
  • 3586920
  • 364
  • 0
  • 41 朵
  • 97 个
  • 91 个
  • 21860
  • 2015-11-14
按键精灵开发者5级
3#
t T
发表于 2024-09-12 15:02 | |只看该用户

  1. Text = split(Plugin.File.ReadFileEx("D:\1.txt"), "|")
  2. 最大值 = UBound(Text)-1
  3. 最小值 = 0
  4. Randomize
  5. For 10 //例如循环10次，不重复输出每行内容
  6. TracePrint Text(Int((最大值 - 最小值 + 1) * Rnd + 最小值))
  7. Next
复制代码
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器