如何随机读取TXT文本中的一行数据并复制在粘贴板

By | 2017 年 4 月 8 日

Text = Plugin.File.ReadFileEx(“C:\1.txt”)
TracePrint Text
Var = Split(Text, “|”)
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Call Plugin.Sys.SetCLB(Var(行数)) ‘将内容写入剪切板
TracePrint Plugin.Sys.GetCLB()’读取剪切板内容

Text = Plugin.File.ReadFileEx(“C:\Users\Administrator.HS-201403090836\Desktop\444.txt”)
TracePrint Text
Var1 = UBound(Split(Text, “|”))
TracePrint Var1
Randomize
行数 = Int(Var1 * Rnd + 1)
返回值 = Lib.文件.读取指定行文本内容(“C:\Users\Administrator.HS-201403090836\Desktop\444.txt”, 行数)
TracePrint 返回值

这个。。之后怎么复制至粘贴板呀

发表评论

电子邮件地址不会被公开。 必填项已用*标注